day01.mew


1
2
3
4
5
6
7
8
9

(op=> (lines "day01")
      (gmap string->number _)
      (gsplit-on not _)
      (gmap (inject +) _)
      (into #() _)
      (sort! _ >)
      ,(juxt (fun=> (get _ 0))
             (fun=> gen (gtake _ 3) ,(inject +)))
      prn)