X-Git-Url: http://git.jkinsey.net/?p=adventofcode2020.git;a=blobdiff_plain;f=src%2Futilities.lisp;fp=src%2Futilities.lisp;h=6e0ca47d84f02726cd4becea7d1db06bc557b60d;hp=91e74d11b1aeb5a8a6316c11562e7934f9eb0aa1;hb=d0fc5e86a211060610de320334535324abd94a84;hpb=007500675a2dd10e250d3ad0588852ed6f9225a6

diff --git a/src/utilities.lisp b/src/utilities.lisp
index 91e74d1..6e0ca47 100644
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -8,6 +8,9 @@
 (defun int-list-from (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)
                   (if Y (loop for x in X