7 lines
137 B
Text
7 lines
137 B
Text
|
let rec transpose m =
|
||
|
|
assert (m <> []);
|
||
|
|
if List.mem [] m then
|
||
|
|
[]
|
||
|
|
else
|
||
|
|
List.map List.hd m :: transpose (List.map List.tl m)
|