Data update
This commit is contained in:
parent
796d366b97
commit
35bcdeebf8
504 changed files with 7045 additions and 610 deletions
14
Task/Matrix-transposition/EasyLang/matrix-transposition.easy
Normal file
14
Task/Matrix-transposition/EasyLang/matrix-transposition.easy
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
proc transpose . m[][] .
|
||||
len n[][] len m[1][]
|
||||
for i to len n[][]
|
||||
for j to len m[][]
|
||||
n[i][] &= m[j][i]
|
||||
.
|
||||
.
|
||||
swap n[][] m[][]
|
||||
.
|
||||
m[][] = [ [ 1 2 3 4 ] [ 5 6 7 8 ] [ 9 10 11 12 ] ]
|
||||
print m[][]
|
||||
print ""
|
||||
transpose m[][]
|
||||
print m[][]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
(var transpose2d @(... map vec))
|
||||
|
||||
(transpose2d [[1 1 1 1] [2 4 8 16] [3 9 27 81] [4 16 64 256] [5 25 125 625]])
|
||||
Loading…
Add table
Add a link
Reference in a new issue