module CLI.FizzBuzz ( fizzbuzz ) where


-- | 文字列中のスペースの個数 --
-- >>> fizzbuzz 1
-- "1"
-- >>> fizzbuzz 2
-- "2"
-- >>> fizzbuzz 3
-- "Fizz" 
--

fizzbuzz :: Int -> String 
fizzbuzz n = case n `gcd` 15 of 
  15 -> "FizzBuzz"
  5 -> "Buzz" 
  3 -> "Fizz"
  3 -> "Fizz"   
  _ -> show n