haskell らしいプログラムであるような気が全くしないんだが、書けた。 import System import Numeric faray m a b | (snd a)+(snd b)<m = (faray m a c) ++ (faray m c b) | True = [a] where c = ((fst a)+(fst b),(snd a)+(snd b)) irr m = ( faray m (0,1) (1,1) ) ++ [(1,1)] argToNum x = fst $ head $ readDec $ head x main = getArgs >>= \a -> …</m>

これから haskell で書こうとしている計算を、まずは慣れている ruby で書いてみることにした。 折角書いたので、ここにも載せておこう： def faray( a, b, m ) d = a[1]+b[1] if d

初めての haskell は、既約分数クイズ*1。 この日記の最初の日に書いたものと同様、スターン・ブロコット木 / ファレイ列 を使わないもの。 gcd も使わない。 import System import Numeric h m (n,d) | (n*2)