Paste: AOC Day 1

Author: chunes
Mode: factor
Date: Wed, 1 Dec 2021 08:56:02
Plain Text |
: ends ( seq -- a b ) [ first ] [ last ] bi ;
: increases ( seq m -- n ) 1 + <clumps> [ ends < ] count ;

"input.txt" ascii file-lines [ dec> ] map dup
1 increases .
3 increases .

New Annotation

Summary:
Author:
Mode:
Body: