Cartesian product of two or more lists: Difference between revisions

List.fold_left (fun acc2 ele2 -> (ele1,ele2)::acc2) acc1 l1l2) [] l2l1 ;;

(* - : (charint * intchar) list = [(3, 'c', 3); (3, 'cb', 2); (3, 'ca', 1); (2, 'bc', 3); (2, 'b', 2); ('b'2, 1); ('a', 3); ('a'1, 2); ('ac', 1)];*)