--/--/--

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

2008/11/03

Project Euler: Problem 24

Problem 24

単純に順列を列挙し、100万番目を取り出しているだけ。

実行結果

$ runhaskell 24.hs
[2,7,8,3,9,1,5,6,0,4]

プログラム

1 perm :: [a] -> [[a]]
2 perm [] = [[]]
3 perm xs = concat [map (x:) (perm xs') | (x, xs') <- f xs]
4   where f [] = []
5         f (x:xs) = (x, xs) : [(x', x:xs') | (x', xs') <- f xs]
6
7 fn = perm [0..9!! 1000000
8
9 main = print $ fn
スポンサーサイト

comment

post




上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。