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