[[練習問題]]&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 })

*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

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS