aoc-forth

commit 96316ea642d26b3a527cc54a0688bc8e1b90a890
parent 7fd6e53516c2fd0ea0d1c7a253343c2d712c2e3c
Author: alex wennerberg <alex@alexwennerberg.com>
Date:   Thu,  1 Dec 2022 13:34:56 -0800

Fix day 1 finally

Diffstat:
M
2022/01.fs
 | 
12
+++++-------

1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/2022/01.fs b/2022/01.fs
@@ -16,7 +16,7 @@ variable cals
 tmp 2@ d10* d+ tmp 2! loop drop tmp 2@ ;
 
 
-\ low to high
+\ d1 == highest
 : get-nums ( -- d3 d2 d1 ) 0 foo 2@ 1 foo 2@ 2 foo 2@ ; 
 : reset-cals 0 0 cals 2! ;
 : 4dup 3 pick 3 pick 3 pick 3 pick ;
@@ -30,14 +30,12 @@ dpivot 1 foo 2!
 dpivot 0 foo 2!
 2drop ;
 
-: add-calories ( u -- ) 
-  cals 2@ d+ cals 2! ;
+: add-calories ( u -- ) cals 2@ d+ cals 2! ;
 : process-line ( -- a n ) pad pad 10 accept dup 0= 
   if 2drop check-total reset-cals exit 
   then to-num add-calories ;
 : solve reset-cals 2252 0 do process-line loop 
-get-nums d. cr \ part 1
-get-nums d+ d+ d. cr \ part 2
-bye
-;
+  get-nums d. cr       \ part 1
+  get-nums d+ d+ d. cr \ part 2
+bye ;
 solve