Maps are better than hand-made lists

p7/operators.el

@@ -20,6 +20,6 @@
 (defun sequence-works-p (l)
   (let ((result (car l))
         (numbers (cdr l)))
-    (member result (-reduce (lambda (lx y) (-flatten (--map (list (|| it y) (+ it y) (* it y)) (-list lx)))) numbers))))
+    (member result (-reduce (lambda (lx y) (-flatten (--map (-map (lambda (op) (funcall op it y)) '(+ * ||)) (-list lx)))) numbers))))
 
 (apply '+ (-map 'car (-filter 'sequence-works-p data)))