On Haskell, Ruby, and Cards Against Humanity(drmaciver.com)

    main = putStrLn $ unlines $ map fizzer [1..100] where
        fizzer n | n % 15 == 0  = "FizzBuzz"
                 | n %  3 == 0  = "Fizz"
                 | n %  5 == 0  = "Buzz"
                 | otherwise    = show n

    import Data.Monoid (Monoid, mconcat)
    import Data.Maybe (catMaybes)

    specialcases :: (Monoid y) => [x -> Maybe y] -> x -> Either x y
    specialcases rules x = case catMaybes (map ($ x) rules) of
        [] -> Left x
        xs -> Right (mconcat xs)

    ifDivBy :: Integer -> x -> Integer -> Maybe x
    ifDivBy n x m = if m `mod` n == 0 then Just x
                                        else Nothing

    main = putStrLn $ unlines $ strings where
        strings = map (either show id) cases
        fizzer = specialcases [ifDivBy 3 "Fizz", ifDivBy 5 "Buzz"]
        cases = map fizzer [1..100]

    game = Game::CardsAgainstHumanity.new do
      fun 9000
      rounds 10

      must_involve_drinking!
    end

    game = Game::CardsAgainstHumanity.new()
    game.configuration(:fun_level, 9000)
    game.configuration(:round_count, 10)
    game.set_game_flag(:drinking, true)
    game.set_game_flag(:drinking_optional, false)