2007-06-04から1日間の記事一覧
id:Gemma さんのアドバイスにより、お利口にしてみた。実行時間がだいぶ縮まる。 import System import Control.Monad lagrange :: Integer -> [(Integer, Integer, Integer, Integer)] lagrange x = do let seed = [ s^2 | s <- [0..(floor $ sqrt $ fromIn…
id:Gemma さんのアドバイスにより、お利口にしてみた。実行時間がだいぶ縮まる。 import System import Control.Monad lagrange :: Integer -> [(Integer, Integer, Integer, Integer)] lagrange x = do let seed = [ s^2 | s <- [0..(floor $ sqrt $ fromIn…