diff options
Diffstat (limited to 'src/04.lisp')
-rw-r--r-- | src/04.lisp | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/04.lisp b/src/04.lisp index 4bbdd60..b58825c 100644 --- a/src/04.lisp +++ b/src/04.lisp @@ -3,10 +3,14 @@ (defun 04/parse-input-direct (input) (let ((in-list (mapcar #'parse-integer (split "," (car input)))) - (boards (mapcar (lambda (x) (mapcar (lambda (y) - (mapcar (lambda (z) - (list (parse-integer z) nil)) (split " +" (trim y)))) x)) - (cl-utilities:split-sequence-if (lambda (x) (equalp x "")) (cddr input))))) + (boards (mapcar + (lambda (x) + (mapcar + (lambda (y) + (mapcar + (lambda (z) + (list (parse-integer z) nil)) (split " +" (trim y)))) x)) + (cl-utilities:split-sequence-if (lambda (x) (equalp x "")) (cddr input))))) (list in-list boards))) (defun 04/parse-input (input-file) |