..
                  
                  
                  
                  
                  
                  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
Обсуждают сегодня