ocaml с помощью List.map итерации по списку

Question

есть ли способ перечислить список через список через List.map?

Я знаю, что List.map использует одну функцию и список и создает список, который функция применима ко всем элементам. Но что, если у меня есть список функций для применения списка и создания списка списка?

Answer 1

Ваш вопрос не очень ясен, однако, насколько я понимаю, у вас есть список функций и список значений. Если вы хотите, чтобы применить все функции ко всем элементам, то вы можете написать это:

(* // To get one nested list (of results of all functions) for each element *) 
List.map (fun element -> 
    List.map (fun f -> f element) functions) inputs 

(* // To get one nested list (of results for all elements) for each function *) 
List.map (fun f -> 
    List.map (fun element -> f element) inputs) functions 

В случае, если это не то, что вы хотите, вы могли бы попытаться уточняющий вопрос немного (возможно, какой-то конкретный пример поможет)?

Answer 2

Вы можете попробовать это:

let rec fmap fct_list list = match fct_list with 
    [] -> //you do nothing or raise sth 
    head::tail -> List.map head list :: fmap tail list;; 

Answer 3

Вы разрешили использовать List.map2? Потому что тогда это просто:

let lista = [(fun x -> x + 1); (fun x -> x + 2); (fun x -> x + 3)];; 
let listb = [1; 1; 1];; 
let listc = List.map2 (fun a b -> (a b)) lista listb;; 

Выход будет [2; 3; 4]

Редактировать: подождите, я думаю, что неправильно прочитал вашу проблему. Вы хотите получить список списков, где каждый список содержит список функций, применяемых к исходному списку? Другими словами, для списка и списка выше, вы получите:

[[2;2;2];[3;3;3];[4;4;4]] 

Это правильно?