18 lines
417 B
Text
18 lines
417 B
Text
function zigzag2(n) {
|
|
a = zigzag1(n)
|
|
v = (1..n-1):^2
|
|
for (i=1; i<n; i++) {
|
|
a[n-i+1, i+1..n] = a[n-i+1, i+1..n] - v[1..n-i]
|
|
}
|
|
return(a)
|
|
}
|
|
|
|
zigzag2(5)
|
|
1 2 3 4 5
|
|
+--------------------------+
|
|
1 | 0 1 5 6 14 |
|
|
2 | 2 4 7 13 15 |
|
|
3 | 3 8 12 16 21 |
|
|
4 | 9 11 17 20 22 |
|
|
5 | 10 18 19 23 24 |
|
|
+--------------------------+
|