From d3ed2f503e58c604bb85dc3487fda3d1191313b4 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Tue, 17 Oct 2023 14:12:46 +0100 Subject: Version control lib.lisp --- 2022/lib.lisp | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 2022/lib.lisp (limited to '2022/lib.lisp') diff --git a/2022/lib.lisp b/2022/lib.lisp new file mode 100644 index 0000000..b6fa70f --- /dev/null +++ b/2022/lib.lisp @@ -0,0 +1,28 @@ +(defun string-to-clist (str) + (coerce str 'list)) + +(defun clist-to-string (clist) + (if (atom clist) + (string clist) + (coerce clist 'string))) + +(defun split-by (lst delim) + "Splits LST by the first instance of DELIM" + (let ((pos (position delim lst))) + (if pos + (cons (subseq lst 0 pos) (list (subseq lst (+ pos 1)))) + (error (format nil "No instance of ~a was found in ~a" delim lst))))) + +(defun split-completely (lst delim) + (if (or (null lst) (not (cdr lst))) + (cons (list (car lst)) nil) + (if (member delim lst) + (destructuring-bind (first rest) (split-by lst delim) + (cons first (split-completely rest delim))) + (list lst)))) + +(defun get-lines (input-string) + (with-input-from-string (s input-string) + (loop for line = (read-line s nil) + while line + collect line))) -- cgit v1.2.3-13-gbd6f