Task 3: replace AGAINBRK with UNTIL

akifoq · Aug 18, 2023 · 2420f28 · 2420f28
1 parent 9d057cf
commit 2420f28
Showing 1 changed file with 27 additions and 24 deletions.
diff --git a/contracts/3.fc b/contracts/3.fc
@@ -62,30 +62,33 @@ builder solve_asm(int flat, slice text) asm """
   NEWC	//  next f t fl blds res
 
   AGAINBRK:<{
-    AGAINBRK:<{
-      // f t fl blds res
-      2OVER	PLDUXQ IFNOTRETALT
-      // f t fl blds res x
-
-      s5 PUSH	//  f t fl blds res x f
-
-      EQUAL	//  f t fl blds res _15
-      IF:<{	//  f t fl blds res 
-        2OVER SDSKIPFIRST // f t fl blds res t' 
-        s4 POP	//  f t' fl blds res
-        value GETGLOB	//  f t fl blds res v
-      }>ELSE<{	//  f t fl blds res 
-        s0 s3 XCHG	//  f res fl blds t
-        1 LDSLICE	//  f res fl blds v t
-        s4 s4 XCHG2	//  f t fl blds res v
-      }>
-
-      // f t fl blds res v
-      STSLICERQ // .. res v -1 or res' 0
-      IF:<{ 
-        // .. next f t fl blds res v
-        NEWC STSLICE // .. next f t fl blds res res'
-        SWAP 6 ROLLREV // .. res next f t fl blds res'
+    // f t fl blds res
+    2OVER	PLDUXQ IF:<{
+      UNTIL:<{    
+        // f t fl blds res x
+
+        s5 PUSH	//  f t fl blds res x f
+
+        EQUAL	//  f t fl blds res _15
+        IF:<{	//  f t fl blds res 
+          2OVER SDSKIPFIRST // f t fl blds res t' 
+          s4 POP	//  f t' fl blds res
+          value GETGLOB	//  f t fl blds res v
+        }>ELSE<{	//  f t fl blds res 
+          s0 s3 XCHG	//  f res fl blds t
+          1 LDSLICE	//  f res fl blds v t
+          s4 s4 XCHG2	//  f t fl blds res v
+        }>
+
+        // f t fl blds res v
+        STSLICERQ // .. res v -1 or res' 0
+        IF:<{ 
+          // .. next f t fl blds res v
+          NEWC STSLICE // .. next f t fl blds res res'
+          SWAP 6 ROLLREV // .. res next f t fl blds res'
+        }>
+
+        2OVER	PLDUXQ NOT
       }>
     }> // .. next f t fl blds res