4 lines
162 B
Common Lisp
4 lines
162 B
Common Lisp
(setq days
|
|
(map (fn(i) (all-readings i 1))
|
|
(index (curry = len) (map last all-readings))))
|
|
(println "Bad runs with that length ended on these days: " days)
|