HaskellでProject Euler(Problem 52～54) | ザネリは列車を見送った

…むむっ。 問題を素直にコードに落とし込んだだけだけど解けてしまった。 特に工夫の余地も無いように思うが、こんなんで良かっただろうか…？ Problem 53. Combinatoric selections(組み合わせ選択) こちらも深く考えずそのまんま解いた。 fact関数は↓こういう書き方が定番な気がするけど、foldlでワンライナーで書けそうだったのでやってみたくらいか。 fact :: (Eq a, Num a) => a -> a fact 0 = 1 fact n = n * (fact $ n - 1) Problem 54. Poker hands(ポーカーハンド) 前2問に比べると考えないといけない事は多いか。 文字列からポーカーの役を作る、プレイヤー1と2の役の勝敗をつける、という処理が必要。 うーむ、頑張って作り込んでみたけど、もう少し簡潔にできる所もあるかなぁ。