[collections] Implemented integer-to-list function

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