Fenrir112

Untitled

Nov 10th, 2013
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     let y1 = [1; 2; 3; 4; 5]
  2.     let y2 = [10; 11; 12; 13; 14]
  3.     let rec Comb = function
  4.         (a1::b1, a2::b2) -> a1::a2::Comb (b1, b2)
  5.     printfn "%A" (Comb (y1, y2))
Advertisement
Add Comment
Please, Sign In to add comment