前回のphは、(3,4,5),(4,3,5),(6,8,10)のように、単に順番を入れ替えただけのやつや、互いに素でないのが混ざっていて楽しくないので、x factors :: Int -> [Int] factors x = [n | n <- [1..x], x `mod` n == 0] min2 :: [Int] -> Int min2 [x] = x min2 (x…

プログラミングHaskellの第5章演習問題より。印象的だったので…問題 大きさnまでの正の整数を要素とするピタゴラス数を列挙する関数phを書こうすこし親切な問題の説明 1.まず、大きさnまでの正の整数3個の組み合わせを生成してみよう 2.その組み合わせのうち…