2021/08/one.tl


1
2
3
4
5
6
7

(defun solve (: (name "input"))
  (flow
    (file-get-lines name)
    (mapcar (do match `@a | @b` @1 b))
    (mapcar (opip (spl " ") (mapcar len)))
    (flatten)
    (count-if (op meql @1 2 4 3 7))))