- 追加された行はこの色です。
- 削除された行はこの色です。
[[練習問題]]&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]
*FizzBuzz [#f4c6d1f7]
[[問題文>練習問題#t52e5a48]]
module Main where
main :: IO()
main = printAll $ map fizzBuzz [1..100]
where
printAll [] = return ()
printAll (x:xs) = putStrLn x >> printAll xs
fizzBuzz :: Integer -> String
fizzBuzz n | n `mod` 15 == 0 = "FizzBuzz"
| n `mod` 5 == 0 = "Buzz"
| n `mod` 3 == 0 = "Fizz"
| otherwise = show n