Paste: aoc10

Author: jon
Mode: factor
Date: Thu, 10 Dec 2020 07:34:34
Plain Text | 
"/tmp/input" ascii file-lines [ string>number ] map natural-sort 0 prefix
dup rest dup last 3 + suffix swap v-
[
histogram 3 1 [ of ] bi-curry@ bi * .
] [
 but-last { 3 } split
 [ length { 1 1 2 4 7 } nth ] map product .
] bi

New Annotation

Summary:
Author:
Mode:
Body: