RosettaCodeData/Task/Matrix-transposition/Zkl/matrix-transposition-2.zkl

5 lines
121 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
fcn transpose(M){
if(M.len()==1) M[0].pump(List,List.create); // 1 row --> n columns
else M[0].zip(M.xplode(1));
}