June 2018 Update

Task/Zig-zag-matrix/Ring/zig-zag-matrix.ring

@@ -0,0 +1,56 @@
+# Project : Zig-zag matrix
+# Date    : 2018/03/24
+# Author : Gal Zsolt [~ CalmoSoft ~]
+# Email   : <calmosoft@gmail.com>
+
+load "stdlib.ring"
+n = 5
+a = newlist(n,n)
+for j = 1 to n
+     for i = 1 to n
+          a[j][i] = 0
+     next
+next
+i = 1
+j = 1
+k = 1
+while k < n * n
+        a[j][i] = k
+        k = k + 1
+        if i = n
+           j = j + 1
+           a[j][i] = k
+           k = k + 1
+           di = -1
+           dj = 1
+        ok
+        if j = 1
+           i = i + 1
+           a[j][i] = k
+           k = k + 1
+           di = -1
+           dj = 1
+        ok
+        if j = n
+           i = i + 1
+           a[j][i] = k
+           k = k + 1
+           di = 1
+           dj = -1
+        ok
+        if i = 1
+           j = j + 1
+           a[j][i] = k
+           k = k + 1
+           di = 1
+           dj = -1
+        ok
+           i = i + di
+           j = j + dj
+end
+for p = 1 to n
+     for m = 1 to n
+          see "" + a[p][m] + " "
+     next
+     see nl
+next