Maps are better than hand-made lists

1 year ago · 10c6c953ae
parent a110457618
commit 10c6c953ae
1 changed files with 1 additions and 1 deletions
--- a/p7/operators.el
+++ b/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)))