FizzBuzz solved using only bit twiddling(gist.github.com)

  fizz = [nil,nil,'Fizz'].cycle
  buzz = [nil,nil,nil,nil,'Buzz'].cycle
  (1..100).zip(fizz,buzz) {|a| n,*fb=a.compact; puts fb.empty? ? n : fb.join }

  import sys
  n = 1000
  modthree = 0
  modfive = 0
  
  for i in range(n):
      if modthree == 3:
         modthree = 0; sys.stdout.write("fizz")
      if modfive == 5:
         modfive = 0; sys.stdout.write("buzz")
      if modthree and modfive:
         sys.stdout.write(i)
      sys.stdout.write("\n")
      modthree += 1; modfive += 1

    .say for (('' xx 2, 'Fizz') xx * Z~ ('' xx 4, 'Buzz') xx *) Z|| 1 .. 100;

    fizz = cycle ["","","Fizz"]
    buzz = cycle ["","","","","Buzz"]
    fizzbuzz = zipWith (++) fizz buzz
    fb = zipWith (\n cs -> if cs == "" then show n else cs) [1..] fizzbuzz
    mapM_ putStrLn fb

    use List::Enumerator qw/E/;

    my $fizzbuzz =
        E(1)->countup
            ->zip(
                E("", "", "Fizz")->cycle,
                E("", "", "", "", "Buzz")->cycle
            )
            ->map( sub {
                my ($n, $fizz, $buzz) = @$_;
                $fizz . $buzz || $n;
            });

    $fizzbuzz->take(20)->each(sub {
        say $_;
    });

    a=b=c=(1..100).each do |num|
      print num, ?\r,
        ("Fizz" unless (a = !a) .. (a = !a)),
        ("Buzz" unless (b = !b) ... !((c = !c) .. (c = !c))),
      ?\n
    end

  #!/usr/bin/env rc


  for (i in `{seq 100}) {
  	toPrint = $i
  	toPost = ''

  	if (~ $i *5 || ~ $i *0 ) {
  		toPrint = Buzz
  		toPost = Buzz }

  	if (~ $i ([369] [147][258] [258][147] [369][0369]))
  		toPrint = Fizz ^ $toPost

  	echo $toPrint
  }

  fizzBuzz x = if null str then show x else str
    where str  = concat [tag | (n,tag) <- tags, x `rem` n == 0]
          tags = [(3,"Fizz"), (5,"Buzz")]

  main = mapM_ (putStrLn . fizzBuzz) [1..100]