15 lines
664 B
Plaintext
15 lines
664 B
Plaintext
|
|
; TODO convert generators arg to list of generators
|
|
|
|
(mod (decompress_puzzle decompress_coin_solution_entry start end compressed_cses deserialize gen_list reserved_arg)
|
|
|
|
(defun decompress_cses (decompress_puzzle decompress_coin_solution_entry cses deserialize puzzle_prefix)
|
|
(if cses
|
|
(c (a decompress_coin_solution_entry (list deserialize decompress_puzzle puzzle_prefix (f cses)))
|
|
(decompress_cses decompress_puzzle decompress_coin_solution_entry (r cses) deserialize puzzle_prefix ))
|
|
()) )
|
|
|
|
(list (decompress_cses decompress_puzzle decompress_coin_solution_entry compressed_cses deserialize (substr (f gen_list) start end)))
|
|
|
|
)
|