From 9520f3b2dc505d48c3987afdaa856b97e3cfa1cf Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Wed, 22 Dec 2021 18:35:51 +0100 Subject: Fix some formatting --- src/04.lisp | 12 ++++++++---- 1 file 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) -- cgit