diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-12-22 18:35:51 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-12-22 18:35:51 +0100 |
| commit | 9520f3b2dc505d48c3987afdaa856b97e3cfa1cf (patch) | |
| tree | f9d7a31d36f491acda812e6993ff77c9b285471f | |
| parent | 310d8d21bfc8a024c9a469a1f39a2370008fd9ea (diff) | |
| download | aoc21-9520f3b2dc505d48c3987afdaa856b97e3cfa1cf.tar.gz aoc21-9520f3b2dc505d48c3987afdaa856b97e3cfa1cf.zip | |
Fix some formatting
| -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) |