aoc-forth

Advent of code solutions in UF forth
git clone git://git.alexwennerberg.com/aoc-forth
Log | Files | Refs | README

10.fs (291B) - raw

      1 variable xreg
      2 variable cycle 
      3 1 dup xreg ! cycle !
      4 
      5 variable signalsum
      6 : signalcheck cycle @ dup 20 - 40 mod 0= 
      7   if xreg @ * signalsum +! else drop then ; 
      8 : dostep signalcheck 1 cycle +! ;
      9 
     10 : addx dostep dostep bl word number drop xreg +! ;
     11 : noop dostep ;
     12 include input.txt 
     13 signalsum ?