euler/lisp/euler.lisp

4 lines
159 B
Common Lisp
Raw Normal View History

2016-10-19 06:02:57 +00:00
(defun range (min max) (loop for n from min below max by 1 collect n))
(defun sum (list) (apply '+ list))
(defun select (expr list) (remove-if-not expr list))