diff options
| -rw-r--r-- | cl-math.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/cl-math.lisp b/cl-math.lisp index 61a8e26..a217df4 100644 --- a/cl-math.lisp +++ b/cl-math.lisp @@ -85,10 +85,10 @@ (plus numerals number1 number2) :initial-value 0)) -(defun plus-decimal (a b) - "Given 2 decimal numbers, it returns it's sum." - (plus-number '(0 1 2 3 4 5 6 7 8 9) a b)) +(defun plus-decimal (&rest args) + "Given decimal numbers, it returns it's sum." + (reduce (lambda (a b) (plus-number '(0 1 2 3 4 5 6 7 8 9) a b)) args)) -(defun plus-earth (a b) - "Give 2 earthal numbers, it returns it's sum." - (plus-number '(1 2 3 4 5) a b)) +(defun plus-earth (&rest args) + "Give earthal numbers, it returns it's sum." + (reduce (lambda (a b) (plus-number '(1 2 3 4 5) a b)) args)) |