| Author: | jonenst |
|---|---|
| Mode: | factor |
| Date: | Sun, 23 Dec 2018 19:01:52 |
"/tmp/input" ascii file-lines [ "<,>=" split { 2 3 4 7 } swap nths [ string>number ] map unclip-last 2array ] map dup [ second ] supremum-by first2 [ [ first ] 2dip [ [ - abs ] 2map sum ] dip <= ] 2curry count .