import Data.List xs = [0..2] ys = map fst $ sortOn snd [ ([a, b, c, d, e], s) | a <- xs, b <- xs, c <- xs, d <- xs, e <- xs, s <- [(a * 9.99 + b * 19.99 + c * 99.99 + d * 199.99 + e * 299.99) * 0.77], s >= 399.99] main = putStrLn $ show ys