Paste: aoc7

: day7 ( -- )
    "/tmp/input" ascii file-lines first "," split
    [ string>number ] map
    [ dup median [ - abs ] curry map-sum . ]
    [ dup mean [ floor ] [ ceiling ] bi
      [ [ - abs dup 1 + * 2 / ] curry map-sum ]
      bi-curry@ bi min .
    ] bi ;