SHOW:
|
|
- or go back to the newest paste.
| 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) |
| 4 | + | | (a1::b1, a2::b2) -> a1::a2::Comb (b1, b2) |
| 5 | | (a1::b1, [] ) -> a1::b1 | |
| 6 | | ( [], a2::b2) -> a2::b2 | |
| 7 | printfn "%A" (Comb (y1, y2)) |
