Fixed transpose for vectors and non-array lists

This commit is contained in:
Revar Desmera
2019-05-12 12:51:58 -07:00
parent 78e3cd3c27
commit dba2edc984
2 changed files with 2 additions and 3 deletions

View File

@@ -496,8 +496,7 @@ function array_dim(v, depth=undef) =
// transpose([3,4,5]); // Returns: [[3],[4],[5]]
function transpose(arr) =
arr==[]? [] :
is_list(arr[0])? [for (i=[0:len(arr[0])-1]) [for (j=[0:len(arr)-1]) arr[j][i]]] :
[for (x=arr) [x]];
is_list(arr[0])? [for (i=[0:len(arr[0])-1]) [for (j=[0:len(arr)-1]) arr[j][i]]] : arr;