トランプを分配する問題 ttp://ameblo.jp/programming/entry-10001721422.html import Data.List trampf :: Int -> String -> [String] trampf n cs | n > length cs = repeat "" | otherwise = zipWith (++) as $ trampf n bs where as = heads n cs bs = d…

与えられた値 a と数字列に対し、 数字列の部分和が a に等しくなることがあるかどうかを判定するという問題。 昔解いたときはタプルとか使ってややこしく解いた気がするけど、割合スマートに解けた気がするので main = do an <- getLine cs <- getContents …