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
}