diff options
| -rw-r--r-- | src/collections.lisp | 7 | ||||
| -rw-r--r-- | src/packages.lisp | 3 |
2 files changed, 9 insertions, 1 deletions
diff --git a/src/collections.lisp b/src/collections.lisp index b0da74f..84a54a2 100644 --- a/src/collections.lisp +++ b/src/collections.lisp @@ -13,3 +13,10 @@ (defun slice (place &key (begin 0) (end (length place))) "Returns list of elements from begin to end indecies, inclusive" (butlast (nthcdr begin place) (- (length place) end 1))) + +(defun integer-to-list (num &key (min-length 1)) + "Returns a list where each element is a digit" + (loop for i = num then (floor i 10) + for m = (list (mod i 10)) then (push (mod i 10) m) + until (and (= i 0) (> (length m) min-length)) + finally (pop m) (return m))) diff --git a/src/packages.lisp b/src/packages.lisp index 802ec3a..ca6df6b 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -17,7 +17,8 @@ (:use :cl) (:export :push-back :pop-back - :slice) + :slice + :integer-to-list) (:documentation "List functions")) (defpackage senzill.io |