2010-01-16から1日間の記事一覧
farey数列の記事を見かけたのでCleanで書いてみた. 流石Clean!!コードが短いぜ! module farey import StdEnv import Rational import BigInt farey 1 = [(0/:1),(1/:1)] farey n = foldr f [] (farey (n-1)) where f x [] = [x] f x [y:ys] = let m = (nu…
farey数列の記事を見かけたのでCleanで書いてみた. 流石Clean!!コードが短いぜ! module farey import StdEnv import Rational import BigInt farey 1 = [(0/:1),(1/:1)] farey n = foldr f [] (farey (n-1)) where f x [] = [x] f x [y:ys] = let m = (nu…