2011-07-04から1日間の記事一覧
前回の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…
前回の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…