aoc-forth

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

01a.f (319B) - raw

      1 variable last
      2 : to-num ( a u -- n ) 0 -rot 0 do dup r@ + c@ h# 30 - rot 10 * + swap loop drop ;
      3 : read-num ( -- n ) pad pad 10 accept to-num ;
      4 : get-first-depth read-num last ! ;
      5 : ?deeper dup last @ u> swap last ! ;
      6 : count-deepers 1999 0 do read-num ?deeper if 1+ then loop ;
      7 get-first-depth 0 count-deepers . cr bye