fizzbuzz

gistfile1.hs

fizzbuzz xs =
    let fb x
            -- fb x 以下のブロックになるので、fb x よりも深いインデントが無いとエラー 
            | 0 == mod x 15 = "FizzBuzz" 
            | 0 == mod x 5  = "Buzz" 
            | 0 == mod x 3  = "Fizz" 
            | otherwise = show x
    in [ fb x | x <- xs ]

fizzbuzz'' xs = 
    [
        if 0 == mod x 15 then "FizzBuzz" 
        else if 0 == mod x 5 then "Buzz" 
        else if  0 == mod x 3 then "Fizz" 
        else show x 
        | x <- xs 
    ]

-- 再帰を用いた実装
fizzbuzz''' :: [Int] -> [String]
fizzbuzz''' [] = []
fizzbuzz''' (x:xs) = 
    let fb x
            | 0 == mod x 15 = "FizzBuzz"
            | 0 == mod x 5  = "Buzz"
            | 0 == mod x 3  = "Fizz"
            | otherwise     = show x
    in (fb x) : (fizzbuzz''' xs)

-- 高階関数
fizzbuzz'''' xs =
    let fb x 
            | 0 == mod x 15 = "FizzBuzz" 
            | 0 == mod x 5  = "Buzz" 
            | 0 == mod x 3  = "Fizz" 
            | otherwise     = show x
    in map (fb) xs