Arnot · August 16, 2017 15:28
diff --git a/*scratch*.el b/*scratch*.el
 (defun filter (&rest args) ; args = list of all arguments
  (let ((factors (list -1 -1 -1
                       -1  8 -1
                       -1 -1 -1)))
    (reduce '+ (mapcar* '* factors args))))

 (filter 10 20 30 40 50 60 70 80 90)
 ;; => 0
	(defun filter (&rest args) ; args = list of all arguments
	(let ((factors (list -1 -1 -1
	-1 8 -1
	-1 -1 -1)))
	(reduce '+ (mapcar* '* factors args))))

	(filter 10 20 30 40 50 60 70 80 90)
	;; => 0