Zig-zag matrix: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,969: / Line 2,969: @@
 =={{header|Klingphix}}==
 <lang Klingphix>include ..\Utilitys.tlhy
-:if! ;
-:endif if ;
-:for! ;
-:next for ;
@@ Line 2,982: / Line 2,977: @@
-<Size 2 power for! [
+<Size 2 power [
 sub
-    swap <i get rot <j set <i set
+    ( <i <j ) set
-    <i <j add 1 band 0 equal if! (
+    <i <j add 1 band 0 equal (
-        [<j <Size less if! ( [<j 1 add >j] [<i 2 add >i] ) endif
+        [<j <Size less ( [<j 1 add >j] [<i 2 add >i] ) if
-        <i 1 great if! [ <i 1 sub >i] endif ]
+        <i 1 great [ <i 1 sub >i] if ]
-        [<i <Size less if! ( [<i 1 add >i] [<j 2 add >j] ) endif
+        [<i <Size less ( [<i 1 add >i] [<j 2 add >j] ) if
-        <j 1 great if! [ <j 1 sub >j] endif ]
+        <j 1 great [ <j 1 sub >j] if ]
-    ) endif
+    ) if
-] next
+] for
-<Size for! [
+<Size [
     %row >row
-    <Size for! [
+    <Size [
         %col >col
-        <row get <col get tostr 32 32 chain chain 1 3 slice print drop drop
+        ( <row <col ) get tostr 32 32 chain chain 1 3 slice print drop
-    ] next
+    ] for
     nl
-] next
+] for
 nl "End " input</lang>