2009-01-15から1日間の記事一覧
http://projecteuler.net/index.php?section=problems&id=175 前に似たような問題があった。 結論からいうとユークリッドの互除法のようなもの import Data.List step :: Integral a => (a,a) -> Maybe (a,(a,a)) step (p,q) | q == 0 = Nothing | p <= q = …
http://projecteuler.net/index.php?section=problems&id=175 前に似たような問題があった。 結論からいうとユークリッドの互除法のようなもの import Data.List step :: Integral a => (a,a) -> Maybe (a,(a,a)) step (p,q) | q == 0 = Nothing | p <= q = …