Life Goes On

まあまあだけど楽しんでる方です

2009-06-04から1日間の記事一覧

ナップサック問題

のためのテンプレ。 type Weight = Int type Value = Int table :: [(Weight, Value)] -> [Value] table is = foldl nextLine (repeat 0) is where nextLine ps (wi,pi) = 0 : map memoCell [1..] where -- for 0-1 knapsack problem memoCell w = if w