今回解いたProjectEulerの問題は45番のこちら！
三角数、五角数、六角数のうち40755の次に共通する数を求める問題。

わたしのコードはこちら！
三角数、五角数、六角数の無限リストを定義。
あるリストの第一要素を他の2つのリストの第一要素を比べて、どちらかよりも値が小さかったらそのリストを前に進め、前に進めたリスト・２つのリストに対してもう一回調べる、という再帰的なgetCommon関数を定義。説明が下手😭

45.hs

triangles :: [Int]
triangles = [n*(n + 1) `div` 2 | n <- [1..] ]

pentagonals :: [Int]
pentagonals = [n*(3*n - 1) `div` 2 | n <- [1..] ]

hexagonals :: [Int]
hexagonals = [n*(2*n - 1) | n <- [1..] ]

getCommon :: [Int] -> [Int] -> [Int] -> [Int]
getCommon (x:xs) (y:ys) (z:zs) 
    | x == y && y == z = x : getCommon xs ys zs
    | x < y = getCommon xs (y:ys) (z:zs)
    | y < z = getCommon (x:xs) ys (z:zs)
    | otherwise = getCommon (x:xs) (y:ys) zs

main :: IO ()
main = do
    let common = take 3 $ getCommon triangles pentagonals hexagonals
    print common

（ちなみに解答は1533776805）

=> [1,40755,1533776805]

必要な値が参照されたときに初めて計算されるという特徴遅延評価を活かして、効率良く解を求められている！😳（他の言語だと無限リスト作れなかったり、全部計算する必要があるから計算効率が悪かったりする）
すごい！！！！個人的革命😳❤️‍🔥