tobega / aoc2021 Goto Github PK

composer number
    <INT>
end number

processor Increments
    @: {
        count: -1"1",
        prev: 0"1"
    };

    sink accumulate
        when <?($ <[email protected]~..>)> do @Increments.count: [email protected] + 1;
        @Increments.prev: $;
        otherwise 
        @Increments.prev: $;
    end accumulate

    source result
      [email protected] !
    end result
end Increments

$IN::lines -> number -> ..=Increments -> !OUT::write

templates window
   <> $(i-1..i+1)!
end window