Ajout matrix_transpose

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@291 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/util.ml b/lib/util.ml
index 363e13b1a6..963ed51930 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -371,6 +371,12 @@ let array_map3 f v1 v2 v3 =
     res
   end
 
+(* Matrices *)
+
+let matrix_transpose mat =
+  List.fold_right (List.map2 (fun p c -> p::c)) mat
+    (if mat = [] then [] else List.map (fun _ -> []) (List.hd mat))
+
 (* Functions *)
 
 let compose f g x = f (g x)