The Cursed Computer Iceberg Meme

Re:The Cursed Computer Iceberg Meme by makerofthings on Sunday April 11, 2021 @10:11AM (#26770485)

I do it like this.

  fizzbuzz n = case (n^4 `mod` 15) of
    1 -> show n
    6 -> "fizz"
    10 -> "buzz"
    0 -> "fizzbuzz"
  main :: IO ()
  main = print $ map fizzbuzz [1..30]

[ Parent | on HN ]

Re:The Cursed Computer Iceberg Meme by eurasiantiger on Sunday April 11, 2021 @10:46AM (#26770678)

That is Euler’s FizzBuzz: http://philcrissman.net/posts/eulers-fizzbuzz/

I think it is an elegant solution.

[ Parent | on HN ]