関数型プログラミング言語Haskell Part3
■ このスレッドは過去ログ倉庫に格納されています
0548デフォルトの名無しさん
2005/05/01(日) 20:14:08-- dotimes :: n -> (n -> IO()) -> IO()
dotimes n f = __dotimes 0
where __dotimes i | i >= n = return ()
| otherwise = do (f i)
__dotimes (i + 1)
-- dotimes 10 ( \x -> putStr (show x))
こんなもの？
■ このスレッドは過去ログ倉庫に格納されています