..
let makeOperation state operation input =
match operation with
| Add -> state + input
...
let ops = [Add; Sub;..]
let vars = [1..10]
let result = List.fold2 makeOperation ops vars 0
Ты можешь возвращать оператор как функцию: type Operation = Add | ... let operator = function | Add -> (+) ... (1,2) ||> operator Add
Обсуждают сегодня