数ヶ月前に遊んで以来全く触っていなかったのですっかり忘れてしまった.... 思い出そうと思って、Peggyチュートリアルにある数式パーサに、べき乗演算を追加したものを書いてみる {-# Language TemplateHaskell,QuasiQuotes, FlexibleContexts #-} import Te…

Haskellでナップザック問題。 import Data.List type Value = Int type Weight = Int type Product = (Value,Weight) main = do capacity <- getLine n <- getLine cs <- getContents print.knapsack (read capacity).makeTuple (read n) $ cs makeTuple n =…