Data commit

Task/Spiral-matrix/Scilab/spiral-matrix.scilab

@@ -0,0 +1,25 @@
+function a = spiral(n)
+  a = ones(n*n, 1)
+  v = ones(n, 1)
+  u = -n*v;
+  i = n
+  for k = n-1:-1:1
+    j = 1:k
+    u(j) = -u(j)
+    a(j+i) = u(j)
+    v(j) = -v(j)
+    a(j+(i+k)) = v(j)
+    i = i+2*k
+  end
+  a(cumsum(a)) = (1:n*n)'
+  a = matrix(a, n, n)'-1
+endfunction
+
+-->spiral(5)
+ ans  =
+
+    0.     1.     2.     3.     4.
+    15.    16.    17.    18.    5.
+    14.    23.    24.    19.    6.
+    13.    22.    21.    20.    7.
+    12.    11.    10.    9.     8.