Cartesian product of two or more lists: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,871: / Line 1,871: @@
 let cart_prod l1 l2 =
   List.fold_left (fun acc1 ele1 ->
-    List.fold_left (fun acc2 ele2 -> (ele1,ele2)::acc2) acc1 l1) [] l2 ;;
+    List.fold_left (fun acc2 ele2 -> (ele1,ele2)::acc2) acc1 l2) [] l1 ;;
 cart_prod [1; 2; 3] ['a'; 'b'; 'c'] ;;
-(* - : (char * int) list = [('c', 3); ('c', 2); ('c', 1); ('b', 3); ('b', 2); ('b', 1); ('a', 3); ('a', 2); ('a', 1)]*)
+(*- : (int * char) list = [(3, 'c'); (3, 'b'); (3, 'a'); (2, 'c'); (2, 'b'); (2, 'a'); (1, 'c');*)
 cart_prod [1; 2; 3] [] ;;
 (*- : ('a * int) list = [] *)