Line 5,466:
}
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)
v <- seq(n - 1)^2
|