Rosetta Code

Knapsack problem/Continuous: Difference between revisions

Page Discussion

Knapsack problem/Continuous (view source)

Revision as of 04:37, 24 April 2012

8 bytes removed ,  12 years ago
m
→‎{{header|Haskell}}
Line 578:
solution k = loop k . sortBy (flip $ comparing unitWeight)
where loop k ((name, (_, weight)):xs)
| weight < k = [putStrLn ("Take all the " ++ name]) ++>> loop (k-weight) xs
| otherwise = [printf "Take %.2f kg of the %s\n" (k :: Float) name]
 
main = mapM_ putStrLn $ solution 15 items
</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/141071"