Набыдлил себе мюслей:

-- per 100g
-- (protein, fat, carbohydrates, fiber, potassium, sodium, calcium, magnesium, phosphorus, price)

import Data.List

raisin = [3, 0.5, 79, 5, 0.773, 0.017, 0.044, 0.032, 0.097, 13]
sunflower = [19, 53, 23, 11, 0.608, 0.24, 0.071, 0.128, 1.2, 6.8]
oat = [5, 2, 24, 3, 0.133, 0.069, 0.049, 0.051, 0.18, 2.7]
fda = [50, 65, 300, 25, 4.7, 2.4, 1, 0.4, 1, 1]

mix = map sum $ transpose [map (0.65 ) oat, map (0.2 *) raisin, map (0.15 *) sunflower]
cal x = 4 * x!!0 + 9 * x!!1 + 4 * x!!2
calc = zipWith (/) (map ( (2000 / (cal mix))) mix) fda

*Main Data.List> calc
[1.0705012981825446,1.14916040620055,0.9280340856134746,1.4699420810864787,0.5647412771056691,0.2804407163304707,0.40982624325943684,1.1733572997803075,2.5276612742160975,42.93988416217296]