Список списков, результатов lamba и фильтрации

Question

Я хочу создать две функции: 1) функция, которая находит все элементы меньше нуля в списке (список списка объектов), а затем возвращает эти элементы в виде списка (int list).

2) функция, которая находит все числа, которые находятся даже в списке (список списков плавающих), а затем возвращает их как (список объектов).

Оба они должны использовать хотя бы одно лямбда-выражение (fun x -> ...).

Как создать эти функции? Честно говоря, я не знаю.

let findnegative(d:int list list)= 
    //maybe List.map 

let findeven (t:float list list) = 
//something with  List.filter (fun x -> x%2.0 = 0.0) 

Answer 1

Я думаю, что вы ищете что-то вроде этого:

let findnegative(d:int list list) = 
    d 
    |> List.map (fun x -> x |> List.filter (fun y -> y < 0)) 
    |> List.collect id 

let findeven (t:float list list) = 
    t 
    |> List.map (fun x -> x |> List.filter (fun y -> y % 2.0 = 0.0)) 
    |> List.collect id 
    |> List.map int 

Это может быть упрощенно:

let findnegative = 
    List.collect <| List.filter ((>)0) 

let findeven = 
    List.collect <| List.filter (fun x -> x % 2. = 0.) >> List.map int