diff options
| -rw-r--r-- | plus.lisp | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/plus.lisp b/plus.lisp index 03a347d..1b534b1 100644 --- a/plus.lisp +++ b/plus.lisp @@ -23,14 +23,6 @@ "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 (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." (cond @@ -77,10 +69,6 @@ "Given a list of a numeral system and 2 numbers, it returns the list of it's sum." (may-reverse (plus-args-list numerals (may-reverse (explode-to-symbol a)) (may-reverse (explode-to-symbol b))))) -(defun plus-string (numerals a b) - "Given a list of a numeral system and 2 strings, it returns the list of it's sum." - (may-reverse (plus-args-list numerals (may-reverse (explode-string a)) (may-reverse (explode-string b))))) - (defun symbol-to-number (symbol) "Given a symbol, returns it's number." (nth-value 0 (parse-integer (symbol-name symbol)))) |