DEV Community

Discussion on: Daily Coding Puzzles - Oct 29th - Nov 2nd

Collapse
 
tux0r profile image
tux0r
(defun monday (in-param)
    (list
        ;; positive numbers:
        (apply #'+ (remove-if-not #'plusp in-param))

        ;; negative numbers:
        (apply #'+ (remove-if #'plusp in-param))))

Usage:

* (monday (list 1 2 5 -2 -7))

(8 -9)
Collapse
 
gypsydave5 profile image
David Wickes

Common Lisp FTW!