Name: Anonymous 2012-10-05 7:23
for i in range(110):
pr = ""
pr += "Fizz" * (i%3 == 0)
pr += "Buzz" * (i%5 == 0)
pr += "Bazz" * (i%7 == 0)
print (pr if pr else i)Beat this, faghets.
for i in range(110):
pr = ""
pr += "Fizz" * (i%3 == 0)
pr += "Buzz" * (i%5 == 0)
pr += "Bazz" * (i%7 == 0)
print (pr if pr else i)fizzbuzz cs = map (flip fizzbuzz_ cs) . enumFromTo 1
where fizzbuzz_ n = fromMaybe (show n) . find ((0<) . length) . (:[]) . concatMap snd . filter ((0==) . mod n . fst)
main = mapM_ putStrLn $ fizzbuzz [(3, "Fizz"), (5, "Buzz"), (7, "Bazz")] 100