diff options
| -rw-r--r-- | cl-math.lisp | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index a022c4d..3bcddfb 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -23,9 +23,13 @@ "Given a list of the symbols of a number (which can have letters), it returns the symbol of this number" (intern (apply #'concatenate 'string (mapcar #'symbol-name number)))) -(defun explode-string (number) - "Given a string of a number (which can have letters), it returns a list of the number" - (loop for letter across number collect (string letter))) +(defun explode-string (string) + "Given a string of a number (which can have letters), it returns a list of strings of the number" + (loop for letter across string collect (string letter))) + +(defun implode-string (string) + "Given a list of strings of a number (which can have letters), it returns the string of this number" + (apply #'concatenate 'string string)) (defun next-list-number (numerals number-list) "Given a list of a numeral system and a list of a number, it returns a list of the next number." |