diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-12 13:36:50 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-12 13:44:15 +0000 |
| commit | c6016fffcf6ecfbfacb18f146e2ce7b5d667d724 (patch) | |
| tree | 83106c0ece3ecf6481813cf519ba3fd478368b69 | |
| parent | ec9cdf9f1e84bd4c8357bbbfbbec88b774c4865f (diff) | |
| download | cl-math-c6016fffcf6ecfbfacb18f146e2ce7b5d667d724.tar.gz | |
bug fix plus-decimal plus-earth
| -rw-r--r-- | plus.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plus.lisp b/plus.lisp index 0b49201..6e3dc72 100644 --- a/plus.lisp +++ b/plus.lisp @@ -75,8 +75,8 @@ (defun plus-decimal (&rest args) "Given decimal numbers, it returns the symbol it's sum." - (nth-value 0 (implode-from-symbol (reduce (lambda (a b) (plus '(|0| |1| |2| |3| |4| |5| |6| |7| |8| |9|) a b)) args)))) + (nth-value 0 (implode-from-symbol (may-reverse (reduce (lambda (a b) (plus-args-list '(|0| |1| |2| |3| |4| |5| |6| |7| |8| |9|) a b)) (mapcar #'may-reverse (mapcar #'explode-to-symbol args))))))) (defun plus-earth (&rest args) "Give earthal numbers, it returns it's sum." - (symbol-to-number (nth-value 0 (implode-from-symbol (reduce (lambda (a b) (plus '(|1| |2| |3| |4| |5|) a b)) args))))) + (symbol-to-number (nth-value 0 (implode-from-symbol (may-reverse (reduce (lambda (a b) (plus-args-list '(|1| |2| |3| |4| |5|) a b)) (mapcar #'may-reverse (mapcar #'explode-to-symbol args)))))))) |