Anonymous user
Matrix transposition: Difference between revisions
m
→{{header|Tcl}}
No edit summary |
m (→{{header|Tcl}}) |
||
Line 551:
for {set i 0} {$i < $rows} {incr i} {
for {set j 0} {$j < $cols} {incr j} {
puts -nonewline [format "%*s " [lindex $max $j] [lindex $m $i $j]]
}
puts ""
Line 558:
proc widest {m} {
lassign [size $m] rows cols
set max [lrepeat $cols 0]
for {set i 0} {$i < $rows} {incr i} {
for {set j 0} {$j < $cols} {incr j} {
}
}
Line 571:
print_matrix [transpose $m]</lang>
outputs
<pre>
Using the struct::matrix package from [http://tcllib.sf.net tcllib]
<lang tcl>package require struct::matrix
| |||