SHOW:
|
|
- or go back to the newest paste.
| 1 | // Task 2 | |
| 2 | let x1 = [ ('a',1); ('b',2); ('c',3); ('d',4) ] // (<масть>,<достоинство>)
| |
| 3 | let search A = | |
| 4 | A |> List.filter (fun (x,y) -> x='a') | |
| 5 | ||
| 6 | - | printfn "%A" (search x1) |
| 6 | + | |
| 7 | printf "%d\n" (search x1).Length |
