これから haskell で書こうとしている計算を、まずは慣れている ruby で書いてみることにした。
折角書いたので、ここにも載せておこう:
def faray( a, b, m ) d = a[1]+b[1] if d<m then c = [ a[0]+b[0], d ] faray( a, c, m )+faray( c, b, m ) else [a] end end p ( faray( [0,1], [1,1], ARGV[0].to_i )+[[1,1]] )
というわけで、これからこれを haskell にする。