--/--/--

スポンサーサイト

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

2008/10/07

Project Euler: Problem 9

Problem 9

入れ子のリスト内包表記の使いかたを覚えた。filtermap を駆使しても可能なんだろうけども。こういったことは、リスト内包表記が圧倒的に簡潔だなぁ。

実行結果

$ runhaskell 9.hs
31875000

プログラム

1 = head $ [a*b*(1000-a-b) | a <- [1..(floor $ 1000/3)],
2                              b <- [a..1000],
3                              a^2 + b^2 == (1000-a-b)^2]
4
5 main = print $ f
スポンサーサイト

comment

post




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