commit 5b8370cdb904cdf91d4bd7c8353cf530497b464d parent 422094de68f4b447a066411821e125c7736aa4d0 Author: alex wennerberg <alex@alexwennerberg.com> Date: Sat, 3 Jan 2026 10:17:40 -0800 WIP day 2 Diffstat:
| A | 02.f | | | 21 | +++++++++++++++++++++ |
1 file changed, 21 insertions(+), 0 deletions(-)
diff --git a/02.f b/02.f @@ -0,0 +1,21 @@ +include ./utils/dmath.f +11 constant pairs + +variable _tmp +: str>double ( a u -- d ) _tmp 2! 0 + 0 do dup r@ + c@ h# 30 - 0 + _tmp 2@ 10 1 m*/ d+ _tmp 2! loop drop _tmp 2@ ; + +: invalid ( a u -- d ) + .s cr + 2dup 2/ 2dup + over ( s1 s2 [each half] ) compare + if str>double else 2drop 0 0 then + ; + +: next-pair ( -- a1 u1 a2 u2 ) [char] - parse + [char] , parse + ; +: solve 0 0 \ double + pairs 0 do + next-pair invalid -rot invalid + + + loop d. bye ;