Zig-zag matrix: Difference between revisions

Content deleted Content added
Eoraptor (talk | contribs)
Eoraptor (talk | contribs)
Line 5,466: Line 5,466:
}
}


zigzag1(5)
zigzag1(5)<lang>


{{out}}
zigzag2 <- function(n) {

<pre> [,1] [,2] [,3] [,4] [,5]
[1,] 0 1 5 6 14
[2,] 2 4 7 13 16
[3,] 3 8 12 17 25
[4,] 9 11 18 24 31
[5,] 10 19 23 32 40</pre>

<lang rsplus>zigzag2 <- function(n) {
a <- zigzag1(n)
a <- zigzag1(n)
v <- seq(n - 1)^2
v <- seq(n - 1)^2