COP 4555 Lecture 3: COP4555 HW3 Solutions
Document Summary
> interleave_rev ([1;2;3], [4;5;6]);; val it : int list = [3; 6; 2; 5; 1; 4] //interleave two lists let rec interleave = function. | ( x :: xs , y :: ys ) -> x :: y :: interleave ( xs , ys) //reverse and interleave xs and ys let interleave_rev ( xs , ys ) = interleave ( list . rev xs , list . rev ys );; Problem 2 (5 points) write a curried f# function cartesian xs ys that takes as input two lists xs and ys and returns a list of pairs that represents the cartesian product of xs and ys . (the pairs in the cartesian product may appear in any order. > cartesian ["a";"b";"c"] [1;2;3];; val it : (char * int) list = [("a", 1); ("a", 2); ("a", 3); ("b", 1); ("b", 2); ("b", 3); ("c", 1); ("c", 2); ("c", 3)]
