aoc-forth

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

03a.f (179B) - raw

      1 variable 0 n 0 !
      2 variable bit 0 bit !
      3 : read-char pad pad 1 accept c@ ;
      4 : rate create here 12 cells dup allot fill
      5       does> ( -- a ) bit @ cell+ 1 bit +!
      6 ;
      7 : solve 5 0 do r@ ;