! 2021 nomennescio USING: kernel io io.files io.encodings.utf8 math math.parser math.vectors prettyprint sequences sequences.windowed ; IN: aoc2021 : file-numbers ( path encoding -- numbers ) file-lines [ string>number ] map ; : deltas ( numbers -- deltas ) [ 0 suffix ] [ 0 prefix ] bi v- rest ; : #increases ( numbers -- n ) deltas [ 0 > ] count ; : threesum ( numbers -- threesum ) 0 suffix 3 rolling-sum 3 tail ; : 1-2 ( -- ) "input.1-1.txt" utf8 file-numbers threesum #increases . ; MAIN: 1-2