http://projecteuler.net/index.php?section=problems&id=45 この問題はほとんどProject Euler 37と同じです。 Haskellだと簡単に書けます。 polygonal p = [ div (n * ((p - 1) * n + 4 - p)) 2 | n <- [1..] ] coincident (p:ps) (q:qs) | p == q = p:(coi…