View difference between Paste ID: 2cBiWzut and 8CREQQgX
SHOW: | | - or go back to the newest paste.
1
    let y1 = [1; 2; 3; 4; 5]
2
    let y2 = ['a'; 'b'; 'c'; 'd'; 'e']
3
    let rec Comb = function
4-
        a1::b1 a2::b2-> a1::b1::Comb(b1 b2)
4+
        a1::b1 a2::b2-> a1::a2::Comb(b1 b2)
5
    printfn "%A" (Comb y1 y2)