diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-12 12:17:36 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-12 12:17:36 +0000 |
| commit | 834b16851be2d52f397dfc42c6e6b73b0188c692 (patch) | |
| tree | de9eb1d7ae731dc809a05186cd8b18d74c22bdb8 | |
| parent | 713415c02fa8652a85b6e69ebf80f66a07671efa (diff) | |
| download | cl-math-834b16851be2d52f397dfc42c6e6b73b0188c692.tar.gz | |
remove plus with string functions
| -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)))) |