Cartesian product of two or more lists: Difference between revisions
Content added Content deleted
Line 1,874: | Line 1,874: | ||
cart_prod [1; 2; 3] ['a'; 'b'; 'c'] ;; |
cart_prod [1; 2; 3] ['a'; 'b'; 'c'] ;; |
||
(*- : (int * char) list = [(3, 'c'); (3, 'b'); (3, 'a'); (2, 'c'); (2, 'b'); (2, 'a'); (1, 'c');*) |
(*- : (int * char) list = [(3, 'c'); (3, 'b'); (3, 'a'); (2, 'c'); (2, 'b'); (2, 'a'); (1, 'c'); (1, 'b'); (1, 'a')]*) |
||
cart_prod [1; 2; 3] [] ;; |
cart_prod [1; 2; 3] [] ;; |
||
(*- : ('a * int) list = [] *) |
(*- : ('a * int) list = [] *) |