aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Matrix-transposition/Tailspin/matrix-transposition.tailspin → Task/Matrix-transposition/Tailspin/matrix-transposition-1.tailspin
View file

26
Task/Matrix-transposition/Tailspin/matrix-transposition-2.tailspin Normal file
View file

@ -0,0 +1,26 @@
transpose templates
a is $;
$a(1; .. as j; -> $a(..; $j)) !
end transpose
printMatrix templates
formatN templates
@ set [];
$ -> !#
'$@ -> $::length~..2 -> ' ';$@(..:-1)...;' !
when <|1..> do ..|@ set $ mod 10; $ ~/ 10 -> !#
end formatN
$... -> '|$($::first) -> formatN;$(~..)... -> ', $ -> formatN;';|
' !
end printMatrix
m is [[1, 2, 3, 4], [5, 6, 7, 8], [9, 10, 11, 12]];
'before:
' !
$m -> printMatrix !
mT is $m -> transpose;
'
transposed:
' !
$mT -> printMatrix !