commit 40bd93f303eb221b20a12c2ddae113973931b666 parent ec70cafdfa401e08b0ab4ca54ccc08e89ae24053 Author: alex wennerberg <alex@alexwennerberg.com> Date: Thu, 1 Dec 2022 13:45:06 -0800 use m*/ properly Diffstat:
| M | 2022/01.fs | | | 6 | +----- |
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/2022/01.fs b/2022/01.fs @@ -6,14 +6,10 @@ create 4 * allot does> swap 4 * + ; 6 darray foo variable cals -\ multiplication through recursive adding (Lol) -2variable t10 -: d* ( u1 d1 -- d2 ) 0 0 t10 2! 0 do 2dup t10 2@ d+ t10 2! loop 2drop t10 2@ ; - 2variable tmp : to-num ( a u -- d ) 0 0 tmp 2! 0 do dup r@ + c@ h# 30 - 0 -tmp 2@ 10 d* d+ tmp 2! loop drop tmp 2@ ; +tmp 2@ 10 1 m*/ d+ tmp 2! loop drop tmp 2@ ; \ d1 == highest