From 33be10b57d00b5fc091e2da23e4c48c02d1e2076 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Thu, 8 Dec 2022 16:09:21 +0200 Subject: [collections] Implemented integer-to-list function --- src/collections.lisp | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/collections.lisp') 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))) -- cgit v1.2.3