[p1] More idiomatic

3 months ago · 59d1467004
parent f8f498fd25
commit 59d1467004
1 changed files with 1 additions and 1 deletions
--- a/p1/p1.org
+++ b/p1/p1.org
@ -35,7 +35,7 @@ For part 2, This works:
  (defun average (li)
    (/ (-sum li) (length li)))
-  (let ((number-lists (--map (-running-sum (append (list it) data))
+  (let ((number-lists (--map (-running-sum (cons it data))
  			   (list 50.5 49.5))))
    (average (--map 
  	    (-sum (--map (abs (- (car it) (cdr it)))