SHOW:
|
|
- or go back to the newest paste.
| 1 | - | |
| 1 | + | let y1 = [1; 2; 3; 4; 5] |
| 2 | - | module Task4 = |
| 2 | + | let y2 = ['a'; 'b'; 'c'; 'd'; 'e'] |
| 3 | - | let rec delItems = function |
| 3 | + | let rec Comb = function |
| 4 | - | | a::b::xs -> a::delItems xs |
| 4 | + | a1::b1 a2::b2-> a1::b1::Comb(b1 b2) |
| 5 | - | | xs -> xs |
| 5 | + | printfn "%A" (Comb y1 y2) |
