- 追加された行はこの色です。
- 削除された行はこの色です。
[[練習問題]]&br;
※このページの筆者はHaskellを今日初めて書きました。&br;
変な処理があれば修正してください。
*ループ1 [#a13940a0]
[[問題文>練習問題#eb2c4338]]
import Data.IORef
-- Define 'while'
while test action = do
val <- test
if val then do { action; while test action }
else return ()
-- Some helpers for use with 'while'
incr ref = modifyIORef ref (+1)
test ref f = do { val <- readIORef ref; return (f val) }
main = do
ref <- newIORef 0
while (test ref (< 5))
(do { putStrLn "Hello World!"; incr ref })
*ループ2 [#c37c30db]