fork download 
  1. main :: IO()
  2. main = putStrLn $ unlines $ fizzBuzz 20
  3.  
  4. fizzBuzz  :: Int -> [String]
  5. fizzBuzz n = map test [1..n]
  6.  
  7. test :: Int -> String
  8. test x
  9.   | x `rem` 15 == 0 = "fizzbuzz"
  10.   | x `rem` 3 == 0 = "fiz"
  11.   | x `rem` 5 == 0 = "buz"
  12.   | otherwise = show x
  13.  
Success #stdin #stdout 0s 4540KB
comments (?)
stdin 
Standard input is empty
stdout 
1
2
fiz
4
buz
fiz
7
8
fiz
buz
11
fiz
13
14
fizzbuzz
16
17
fiz
19
buz
https://ideone.com/RaXzQS
language:
Haskell (ghc 8.4.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!