/prog/ - FizzBuzz

Name: Anonymous 2011-08-31 2:15

(defun fizz-buzz (start end)

  (loop for x from start to end do

       (let ((3? (= (mod x 3) 0))

         (5? (= (mod x 5) 0)))

     (when 3?             (format t "Fizz"))

     (when 5?          (format t "Buzz"))

     (unless (or 3? 5?) (format t "~a" x)) 

     (terpri))))

What does /b/ think?

Name: Anonymous 2011-09-01 11:49

Symta:



for I=1..100 say ([@(I%3==0 |> {Fizz}) @(I%5==0 |> {Buzz})]||I)

Ruby:



1.upto(100) { |i| puts i % 3 == 0 ? i % 5 == 0 ? "FizzBuzz" : "Buzz" : i % 5 == 0 ? "Fizz" : i }

Python:



for i in range(1, 101):

  x = ""

  if i % 3 == 0:

    x = x + "Fizz"

  if i % 5 == 0:

    x = x + "Buzz"

  if x == "":

    x = str(i)

  print x

Visual Basic:



Dim i

For i = 1 to 100

  If (i Mod 3 = 0) And (i Mod 5 = 0) Then

    WScript.Echo "FizzBuzz"

  ElseIf (i Mod 3 = 0) Then

    WScript.Echo "Fizz"

  ElseIf (i Mod 5 = 0) Then

    WScript.Echo "Buzz"

  Else

    Wscript.Echo i

  End If

Next

C/C++



#include stdio.h



int main(void) {

  int i,j;

  for(i=j=0; i!=100; j=0, i++) {

     if(i%3==0) printf("Fizz"), j=1;

     if(i%5==0) printf("Buzz"), j=1;

     if(!j) printf("%d",i);

     printf("\n");

  }

}

FizzBuzz

1 Name: Anonymous 2011-08-31 2:15

23 Name: Anonymous 2011-09-01 11:49

Name: Anonymous 2011-08-31 2:15

Name: Anonymous 2011-09-01 11:49