Posted to tcl by jenglish at Tue Jan 26 15:18:50 GMT 2010view pretty
proc transpose {ll} { set transpose [list] foreach l $ll { set ntranspose [list] foreach e $l t $transpose { lappend t $e lappend ntranspose $t } set transpose $ntranspose } return $transpose }