aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Zig-zag-matrix/F-Sharp/zig-zag-matrix-1.fs Normal file
View file

@ -0,0 +1,14 @@
//Produce a zig zag matrix - Nigel Galloway: April 7th., 2015
let zz l a =
let N = Array2D.create l a 0
let rec gng (n, i, g, e) =
N.[n,i] <- g
match e with
| _ when i=a-1 && n=l-1 -> N
| 1 when n = l-1 -> gng (n, i+1, g+1, 2)
| 2 when i = a-1 -> gng (n+1, i, g+1, 1)
| 1 when i = 0 -> gng (n+1, 0, g+1, 2)
| 2 when n = 0 -> gng (0, i+1, g+1, 1)
| 1 -> gng (n+1, i-1, g+1, 1)
| _ -> gng (n-1, i+1, g+1, 2)
gng (0, 0, 0, 2)

1
Task/Zig-zag-matrix/F-Sharp/zig-zag-matrix-2.fs Normal file
View file

@ -0,0 +1 @@
zz 5 5

1
Task/Zig-zag-matrix/F-Sharp/zig-zag-matrix-3.fs Normal file
View file

@ -0,0 +1 @@
zz 8 8

1
Task/Zig-zag-matrix/F-Sharp/zig-zag-matrix-4.fs Normal file
View file

@ -0,0 +1 @@
zz 5 8