diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-13 11:16:49 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-13 11:16:49 +0000 |
| commit | 7ba9315e5d3c6ac8827e5c0aa3f94508269bd58c (patch) | |
| tree | 91dfd8c6dc14dfcd6f015f46b1624d1114733056 | |
| parent | 1b6aac9169e2b7fb7cee64ba29348b8eb0b0bcb3 (diff) | |
| download | cl-math-7ba9315e5d3c6ac8827e5c0aa3f94508269bd58c.tar.gz | |
make plus args as list of symbols, instead of numbers
| -rw-r--r-- | plus-inc.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plus-inc.lisp b/plus-inc.lisp index dbad909..cd12ce0 100644 --- a/plus-inc.lisp +++ b/plus-inc.lisp @@ -74,8 +74,8 @@ (t (plus-args-list numerals (next-list-number numerals a) (previous-list-number numerals b))))) (defun plus (numerals a b) - "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 a)) (may-reverse (explode b))))) + "Given a list of a numeral system and 2 lists of symbols, it returns the list of it's sum." + (may-reverse (plus-args-list numerals (may-reverse a) (may-reverse b)))) (defun plus-decimal (&rest args) "Given decimal numbers, it returns the symbol it's sum." |