Another update from ingydotnet^djgoku
This commit is contained in:
parent
91df62d461
commit
948b86eafa
7604 changed files with 108452 additions and 22726 deletions
|
|
@ -0,0 +1,23 @@
|
|||
function transpose($a) {
|
||||
if($a.Count -gt 0) {
|
||||
$n = $a.Count - 1
|
||||
foreach($i in 0..$n) {
|
||||
$j = 0
|
||||
while($j -lt $i) {
|
||||
$a[$i][$j], $a[$j][$i] = $a[$j][$i], $a[$i][$j]
|
||||
$j++
|
||||
}
|
||||
}
|
||||
}
|
||||
$a
|
||||
}
|
||||
function show($a) {
|
||||
if($a.Count -gt 0) {
|
||||
$n = $a.Count - 1
|
||||
0..$n | foreach{ "$($a[$_][0..$n])" }
|
||||
}
|
||||
}
|
||||
$a = @(@(2, 4, 7),@(3, 5, 9),@(4, 1, 6))
|
||||
show $a
|
||||
""
|
||||
show (transpose $a)
|
||||
Loading…
Add table
Add a link
Reference in a new issue