highgramming

can you code while high?

fizzbuzz n = map aux [1..n]
aux [] = []
aux (a:as) =
| a `mod` 3 == 0 && a `mod` 5 == 0 = "FizzBuzz" : aux as
| a `mod` 3 == 0 = "Fizz" : aux as
| a `mod` 5 == 0 = "Buzz" : aux as
| otherwise = show a : aux as