X-Git-Url: http://git.jkinsey.net/?a=blobdiff_plain;f=src%2Futilities.lisp;h=6e0ca47d84f02726cd4becea7d1db06bc557b60d;hb=955fe99709e9fd567d2a296e8eee7a1c459ea439;hp=ab6c3e8faa36eb6d59ac780c1ae7d8f6670a142b;hpb=63a814f25cb8eff79f8f566f75b7b5fdac549f5f;p=adventofcode2020.git

diff --git a/src/utilities.lisp b/src/utilities.lisp
index ab6c3e8..6e0ca47 100644
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -6,7 +6,10 @@
   (split "\\n" str))
 
 (defun int-list-from (str)
-  (mapcar #'parse-integer (split "\\n" str)))
+  (mapcar #'parse-integer (list-from str)))
+
+(defun list-list-from (str)
+  (split-sequence "" (list-from str) :test #'string=))
 
 (defun cartesian-product (A B &rest C)
   (let ((helper (lambda (X Y)