advent-of-code-2025

commit 422094de68f4b447a066411821e125c7736aa4d0
parent 4101bb0396495ee8ae77a358f85b20641583f3a8
Author: alex wennerberg <alex@alexwennerberg.com>
Date:   Sat,  3 Jan 2026 00:17:49 -0800

fix mod

Diffstat:
M
01.f
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/01.f b/01.f
@@ -2,7 +2,7 @@
 4545 constant input-size 
 : tibs ( -- a u ) tib >limit @ tib - ;
 : s>n ( a u -- n ) 0 -rot 0 do dup r@ + c@ h# 30 - rot 10 * + swap loop drop ;
-: floor-mod ( n1 n2 -- n ) /mod swap 0< if 1- then ;
+: floor// ( n1 n2 -- n ) /mod swap 0< if 1- then ;
 
 \ solution
 variable password
@@ -12,7 +12,7 @@ variable passwordB
 : turn ( old -- new ) dup query tibs turn-val >r r@ +
         ( old new )
         2dup r> 0< if 1- swap 1- then \ border fix
-        100 floor-mod swap 100 floor-mod - abs passwordB +! 
+        100 floor// 100 floor// - abs passwordB +! 
         nip ( new ) wrap-100 dup 0= if 1 password +! then ;
 : solve ( -- ) 50 input-size 0 do turn loop drop
     password @ . cr