2007-05-31から1日間の記事一覧
リストモナドすごーい。 import System import Control.Monad lagrange :: Integer -> [(Integer, Integer, Integer, Integer)] lagrange x = do let seed = [ s^2 | s <- [0..(floor $ sqrt $ fromInteger x)]] a <- seed b <- [ b | b <- seed, b <= a ] c …