Paste: aoc13p1

Author: jon
Mode: factor
Date: Sun, 13 Dec 2020 10:51:08
Plain Text |
"/tmp/input" ascii file-lines
first2 [ string>number ] [ "," split
  [ "x" = ] reject [ string>number ] map
] bi*
dupd [
  [ [ 1 - + ] [ /i ] [ * ] tri ] keep 2array
] with map infimum
first2 [ swap - ] dip *

New Annotation

Summary:
Author:
Mode:
Body: