: 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 .
Done