[1..100]>>=pen #4584(2007/12/03 10:26 GMT) [ Haskell ] Rating-1/1=-1.00
前回のコードをもう少しすっきりさせました。 Windows XP システムのプロパティ Pentium(R) 4 CPU 2.40GHz 2.41 GHz, 0.99 GB RAM ghc -O3 (GHC6.8.1) ファイルにリダイレクトで５秒くらい。
1 2 3 4 5 6 7
main = putStr $ unlines $ map (unlines . map (bou!!)) $ partitions 50 where bou = iterate ("[]"++) "" partitions n = [1..n] >>= f n n where f 0 _ m = return $ replicate m 1 f n p m = [x:xs| let p' = min (n-m+1) p, x <- [p',p'-1..(n+m-1)`div`m], xs <- f (n-x) x (m-1)]
Rating-1/1=-1.00-0+
1 reply [ reply ]
[1..100]>>=pen
#4584()
[
Haskell
]
Rating-1/1=-1.00
Rating-1/1=-1.00-0+