15 lines
402 B
R
15 lines
402 B
R
> spiral_matrix(5)
|
|
[,1] [,2] [,3] [,4] [,5]
|
|
[1,] 1 2 3 4 5
|
|
[2,] 16 17 18 19 6
|
|
[3,] 15 24 25 20 7
|
|
[4,] 14 23 22 21 8
|
|
[5,] 13 12 11 10 9
|
|
|
|
> t(spiral_matrix(5))
|
|
[,1] [,2] [,3] [,4] [,5]
|
|
[1,] 1 16 15 14 13
|
|
[2,] 2 17 24 23 12
|
|
[3,] 3 18 25 22 11
|
|
[4,] 4 19 20 21 10
|
|
[5,] 5 6 7 8 9
|