Составляем суточный рацион. Как правильно питаться, когда мало денег?

m1 = minimum [118 `div` 180, 56 `div` 20, 500 `div` 1, 8 `div` 9]
m2 = minimum [118 `div` 190, 56 `div` 3, 500 `div` 1, 8 `div` 10] 
m3 = minimum [118 `div` 30, 56 `div` 40, 500 `div` 50, 8 `div` 7]
m4 = minimum [118 `div` 10, 56 `div` 865, 500 `div` 6, 8 `div` 12]
m5 = minimum [118 `div` 260, 56 `div` 310, 500 `div` 20, 8 `div` 60]
m6 = minimum [118 `div` 130, 56 `div` 30, 500 `div` 650, 8 `div` 10]
m7 = minimum [118 `div` 21, 56 `div` 2, 500 `div` 200, 8 `div` 20]
 
task = filter (\ x -> fst x == fmax) flst 
     where fmax = maximum $ map fst flst
           flst = zip (map fs lst) lst
           lst  = [(n1,n2,n3,n4,n5,n6,n7)| n1 <- [0,1..m1], 
                                  n2 <- [0,1..m2], 
                                  n3 <- [0,1..m3],
                                  n4 <- [0,1..m4],
                                  n5 <- [0,1..m5],
                                  n6 <- [0,1..m6],
                                  n7 <- [0,1..m7],
                                  n1*180+n2*190+n3*30+n4*10+n5*260+n6*130+n7*21 <= 118,
                                  n1*20+n2*3+n3*40+n4*865+n5*310+n6*30+n7*2 <= 56,
                                  n1*1+n2*1+n3*50+n4*6+n5*20+n6*650+n7*200 <= 500,
                                  n1*9+n2*10+n3*7+n4*12+n5*60+n6*10+n7*20 <= 8]
                                  
           fs (x,y,z,k,p,q,s) = 180*x+100*y+28*z+340*k+290*p+50*q+10*s

Prelude> :load "MyMinimumProducts.hs"
[1 of 1] Compiling Main             ( MyMinimumProducts.hs, interpreted )
 
MyMinimumProducts.hs:16:1: warning: [-Wtabs]
    Tab character found here, and in 23 further locations.
    Please use spaces instead.
Ok, modules loaded: Main.
*Main> task
[(28,(0,0,1,0,0,0,0))]
*Main>

ps = [[1.8,180,20,0,9], [1,190,3,0,10], [0.28,30,40,50,7], [3.4,10,865,6,12],
      [2.9,260,310,20,60], [0.5,130,30,650,20], [0.1,21,2,200,10]]
me = [118,56,500,8]
 
f ksi = (foldr1 (zipWith (+)) . zipWith (\l k -> map (*k) l) ps $ ks, ksi)
    where ks = map fromIntegral ksi
 
vs 0 = [[]]
vs n = [0..5] >>= \x -> map (x:) $ vs (n-1)
 
main = print $ head . sort . filter (all (<=0) . zipWith (-) me . tail . fst) . map f . vs $ 7

ps = [[1.8,180,20,0,9], [1,190,3,0,10], [0.28,30,40,50,7], [3.4,10,865,6,12],
      [2.9,260,310,20,60], [0.5,130,30,650,20], [0.1,21,2,200,10]]
me = [118,56,500,8]
 
f ksi = (foldr1 (zipWith (+)) . zipWith (\l k -> map (*k) l) ps $ ks, ksi)
    where ks = map fromIntegral ksi
 
vs 0 = [[]]
vs n = [0..5] >>= \x -> map (x:) $ vs (n-1)

Prelude> :load "MyBruteForce.hs"
[1 of 1] Compiling Main             ( MyBruteForce.hs, interpreted )
Ok, modules loaded: Main.
*Main>

Prelude> :load "MyBruteForce.hs"
[1 of 1] Compiling Main             ( MyBruteForce.hs, interpreted )
Ok, modules loaded: Main.
*Main> main = print $ head . sort . filter (all (<=0) . zipWith (-) me . tail . fst) . map f . vs $ 7
 
<interactive>:9:23: error:
    • Variable not in scope: sort :: [([Integer], [Integer])] -> [()]
    • Perhaps you meant ‘sqrt’ (imported from Prelude)
 
<interactive>:9:81: error:
    • Couldn't match type ‘Double’ with ‘Integer’
      Expected type: Integer -> [([Integer], [Integer])]
        Actual type: Integer -> [([Double], [Integer])]
    • In the second argument of ‘(.)’, namely ‘map f . vs’
      In the second argument of ‘(.)’, namely
        ‘filter (all (<= 0) . zipWith (-) me . tail . fst) . map f . vs’
      In the second argument of ‘(.)’, namely
        ‘sort
         . filter (all (<= 0) . zipWith (-) me . tail . fst) . map f . vs’
*Main>

import Data.List
ps = [[1.8,180,20,0,9], [1,190,3,0,10], [0.28,30,40,50,7], [3.4,10,865,6,12],
      [2.9,260,310,20,60], [0.5,130,30,650,20], [0.1,21,2,200,10]]
me = [118,56,500,8]
 
f ksi = (foldr1 (zipWith (+)) . zipWith (\l k -> map (*k) l) ps $ ks, ksi)
    where ks = map fromIntegral ksi
 
vs 0 = [[]]
vs n = [0..5] >>= \x -> map (x:) $ vs (n-1)
 
main = print $ head . sort . filter (all (<=0) . zipWith (-) me . tail . fst) . map f . vs $ 7

Prelude> :load "MyBruteForce.hs"
[1 of 1] Compiling Main             ( MyBruteForce.hs, interpreted )
Ok, modules loaded: Main.
*Main> :main
([0.78,160.0,70.0,700.0,27.0],[0,0,1,0,0,1,0])
*Main>