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