Posted to tcl by jenglish at Tue Jan 26 15:18:50 GMT 2010view raw

  1. proc transpose {ll} {
  2. set transpose [list]
  3. foreach l $ll {
  4. set ntranspose [list]
  5. foreach e $l t $transpose {
  6. lappend t $e
  7. lappend ntranspose $t
  8. }
  9. set transpose $ntranspose
  10. }
  11. return $transpose
  12. }