diff options
| author | Daniel Santos <dacs.git@brilhante.top> | 2023-01-11 16:43:32 +0000 |
|---|---|---|
| committer | Daniel Santos <dacs.git@brilhante.top> | 2023-01-11 16:43:32 +0000 |
| commit | fc441a4bb98add59d111aae4de21f508d8fe38ee (patch) | |
| tree | aa2fd714e024a124f641eee9c4f96715d4798b38 | |
| parent | 04eb4cd03353eda03b1f4e9606e3becf0d572f5d (diff) | |
| download | cl-math-fc441a4bb98add59d111aae4de21f508d8fe38ee.tar.gz | |
plus-earth returns a number
| -rw-r--r-- | cl-math.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index b0272db..da572de 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -87,4 +87,4 @@ (defun plus-earth (&rest args) "Give earthal numbers, it returns it's sum." - (nth-value 0 (implode (reduce (lambda (a b) (plus '(|1| |2| |3| |4| |5|) a b)) args)))) + (symbol-to-number (nth-value 0 (implode (reduce (lambda (a b) (plus '(|1| |2| |3| |4| |5|) a b)) args))))) |