diff options
| author | Syndamia <kamen@syndamia.com> | 2022-12-08 16:09:21 +0200 |
|---|---|---|
| committer | Syndamia <kamen@syndamia.com> | 2022-12-08 16:09:21 +0200 |
| commit | 33be10b57d00b5fc091e2da23e4c48c02d1e2076 (patch) | |
| tree | 6ae5074a59c2d940ac358e46f90ab0c93b10282d /src | |
| parent | afb024163e4fee81a6a6af903abcbae2de82f2d3 (diff) | |
| download | senzill-33be10b57d00b5fc091e2da23e4c48c02d1e2076.tar senzill-33be10b57d00b5fc091e2da23e4c48c02d1e2076.tar.gz senzill-33be10b57d00b5fc091e2da23e4c48c02d1e2076.zip | |
[collections] Implemented integer-to-list function
Diffstat (limited to 'src')
| -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 |