VK
Size: a a a
VK
AH
AH
AH
|> Seq.mapReduce f1 f2AH
let Flow priceCalcResolver totalPricaCalc = priceCalcResolver |> List.map >> List.reduce totalPricaCalc, где priceCalcResolver - функция, которая возвращает функциюlet flow priceCalcResolver totalPricaCalc priceList =
priceList
|> List.map priceCalcResolver
|> List.reduce totalPricaCalc priceCalcResolver
AH
VK
ДБ

ДБ
ДБ
AB
ДБ
DB
ДБ
ДБ