Witaj w serwisie devPytania

Question

9

6

Jest takie oto zadanie programistyczne:

Napisz program, który wypisuje liczby od 1 do 100. Ale dla wielokrotności trójki wyświetl "Fizz" zamiast liczby oraz dla wielokrotności piątki wyświetl "Buzz". Dla liczb będących wielokrotnościami trójki oraz piątki wyświetl "FizzBuzz".

Jak zakodowałbyś rozwiązanie tego "problemu" w swoim ulubionym języku programowania?

PS. Więcej na ten temat tutaj: Dlaczego programiści nie potrafią.. programować?

Zważywszy na ilość odpowiedzi, zrobił się lekki bałagan i ciężko chociażby sprawdzić czy ktoś już odpowiedział tak jak my. Stwierdziłem, że warto zrobić listę już istniejących rozwiązań. Zachęcam innych do jej uaktualniania.

(kolejność języków alfabetyczna; ilość odpowiedzi specjalnie nie podaję, żeby nikt nie spamował, bo uważa, że jego język jest najlepszy, więc musi mieć najwięcej odpowiedzi. )

ASM [6502]
ActionScript
AutoIt
Boo
BrainF_ck
C
C#
C++
F#
Google's Go
Groovy
Haskell
Java
JavaScript
Pascal
Perl
PHP
PowerShell
Prolog
Python
Ruby
SQL [T-SQL, PL/SQL]
Lisp [Common Lisp]
Lua

edited Jan 13 at 19:41

lqc

community wiki

11 revisions, 3 users
lqc 68%

show 1 more comment

Ravicious · Answer 1 · 2010-01-07 20:36:19Z UTC

Ruby, nieco schludniejsza wersja (połączenie dwóch wersji napisanych przez anonimów).

1.upto(100) do |i|
  out = nil
  out = out.to_s + 'Fizz' if (i % 3).zero?
  out = out.to_s + 'Buzz' if (i % 5).zero?
  puts out || i
end

I jednolinijkowiec, skoro już się takowy pojawił ;-)

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

swiecidlo · Answer 2 · 2010-01-08 12:09:12Z UTC

Brainfuck:

>++++++++++[>+>+++++>++++++>+++++++>++++++++++>++++++++++++[<]>-]>>-.<+++.---.>+.<+++.---.>>>.>+++++.>++..<<<<<+++.---.>++.<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>>>++++.>.>..<<<<<+++.---.>+++.<+++.---.>>----.<<+++.---.>>>.>.>..<<<<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>------..<+++.---.>>>++++.>.>..<<<<<+++.---.>.++.<+++.---.>--.+++.<+++.---.>>>.>.>..<<----.>>-----.+++++..<<<<<+++.---.>---.+++++.<+++.---.>-----.++++++.<+++.---.>>>++++.>.>..<<<<<+++.---.>------.>+.<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>>>++++.>.>..<<<<<+++.---.>+..<+++.---.>.+.<+++.---.>>>.>.>..<<<<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>-.++++.<+++.---.>>>++++.>.>..<<<<<+++.---.>----.>-.<<+++.---.>.>+.<<+++.---.>>>.>.>..<<----.>>-----.+++++..<<<<<+++.---.>+.--.<+++.---.>++.-.<+++.---.>>>++++.>.>..<<<<<+++.---.>+.+.<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>>>++++.>.>..<<<<<+++.---.>-.++++.<+++.---.>----.>-.<<+++.---.>>>.>.>..<<<<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>+.---.<+++.---.>>>++++.>.>..<<<<<+++.---.>+++.-.<+++.---.>+..<+++.---.>>>.>.>..<<----.>>-----.+++++..<<<<<+++.---.>.++.<+++.---.>--.+++.<+++.---.>>>++++.>.>..<<<<<+++.---.>---.>+.<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>>>++++.>.>..<<<<<+++.---.>+.---.<+++.---.>+++.--.<+++.---.>>>.>.>..<<<<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>++.+.<+++.---.>>>++++.>.>..<<<<<+++.---.>-.>-.<<+++.---.>.>+.<<+++.---.>>>.>.>..<<----.>>-----.+++++..<<<<<+++.---.>+.-----.<+++.---.>+++++.----.<+++.---.>>>++++.>.>..<<<<<+++.---.>++++.--.<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>>>++++.>.>..<<<<<+++.---.>++.+.<+++.---.>-.>-.<<+++.---.>>>.>.>..<<<<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>+.------.<+++.---.>>>++++.>.>..<<<<<+++.---.>++++++.----.<+++.---.>++++.---.<+++.---.>>>.>.>..<<----.>>-----.+++++..<<<<<+++.---.>+++.-.<+++.---.>+..<+++.---.>>>++++.>.>..<<<<<+++.---.>.>+.<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>>>++++.>.>..<<<<<+++.---.>>-.<-----.<+++.---.>>.<+.<+++.---.>>>.>.>..<<<<<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>>.<+++.<+++.---.>>>++++.>.>..<<<<<+++.---.>>..<<+++.---.>>.+.<<+++.---.>>>.>.>..<<----.>>-----.+++++..<<<<<+++.---.>>.<-----.<+++.---.>>.<+.<+++.---.>>>++++.>.>..<<<<<+++.---.>>.<++.<+++.---.>>>----.>>-----.+++++..<<<<<+++.---.>>>++++.>.>..<<<<<+++.---.>>.<+++.<+++.---.>>.-.<<+++.---.>>>.>.>..<<<<<+++.---.>>>----.>>-----.+++++..

emka · Answer 3 · 2010-01-07 18:00:25Z UTC

3

A nie warto czasem zauwazyc ze wielokrotnosc 3 i 5 to inaczej wielokrotnosć 15 ?;>

answered Jan 7 at 18:00

emka

community wiki

show 1 more comment

Ktos · Answer 4 · 2010-01-07 19:27:17Z UTC

3

PowerShell:

for ($i = 1; $i -le 100; $i++)
{
    if ($i % 15 -eq 0) { Write-Output "FizzBuzz"; }
    elseif ($i % 3 -eq 0) { Write-Output "Fizz"; }
    elseif ($i % 5 -eq 0) { Write-Output "Buzz"; }
    else { Write-Output $i; }
}

answered Jan 7 at 19:27

Ktos

community wiki

b.YISK · Answer 5 · 2010-01-07 20:52:44Z UTC

Odrobinę zoptymalizowany kod (zużycie pamięci RAM spadło z dziesięciu do sześciu bajtów; spadła ilość skoków do subroutines) dla mikroprocesora 6502:

	 ldy #100
    	sty savey
    	lda #0
loop    	clc
    	adc #1
    	ldy savey
    	dey
    	beq end
    	dec savey
    	jsr write
    	jmp loop
end  jmp end
fibuzz  lda text,x
    	jsr output
    	inx
    	dey
    	bne fibuzz
    	lda #'z'
    	jsr output
    	jsr output
    	rts
fbsave  lda #1
    	sta ram
    	ldy #2
    	rts
write    pha
    	pha
    	pha
    	php
    	ldx #0
    	sec
count3  sbc #3
    	bpl count3
ifeq3   clc
    	adc #3
    	bne next
    	ldx #0
    	jsr fbsave
    	jsr fibuzz
next    pla
    	ldx #0
    	sec
count5  sbc #5
    	bpl count5
ifeq5   clc
    	adc #5
    	bne not
    	ldx #2
    	jsr fbsave
    	jsr fibuzz
    	sec
    	sbc #1
    	bne not
    	jsr nwline
    	jmp loop
not 	pla
    	ora #%00110000
    	jsr output
    	jsr nwline
    	plp
    	pla
    	rts
nwline  lda #10
    	jsr output
    	rts
text    	asc 'FiBu'
ram 	ds 1
savey   ds 1

Wpadło mi do głowy jeszcze inne rozwiązanie problemu, może później napiszę.

damian · Answer 6 · 2010-01-08 09:37:01Z UTC

3

print '\n'.join([(i%15==0 and 'FizzBuzz')or(i%5==0 and 'Buzz')or(i%3==0 and 'Fiz')or str(i) for i in range(1,101)])

answered Jan 8 at 9:37

damian

community wiki

mnajder · Answer 7 · 2010-01-09 10:33:25Z UTC

3

C#

// z pomoca "andrzejp - C#, krótko (ale nie chciałbym tego debugować ;) ) "
// using Rx;
Enumerable
 .Range(1,100)
 .Select(i => i % 3 == 0 ? ( i % 5 == 0 ? "FizzBuzz" : "Fizz" ) : ( i % 5 == 0 ? "Buzz" : i.ToString()))
 .Run(Console.WriteLine);

answered Jan 9 at 10:33

mnajder

community wiki

show 1 more comment

TeMPOraL · Answer 8 · 2010-01-10 00:21:56Z UTC

Common Lisp:

;definicja funkcji
(defun fizz-buzz ()
  (loop
   for i from 1 to 100 do
   (when (= (mod i 3) 0) (format t "Fizz"))
   (when (= (mod i 5) 0) (format t "Buzz"))
   (when (not (or (= 0 (mod i 3)) (= 0 (mod i 5))))
     (format t "~D" i))
   (format t "~%")))

;uruchomienie
(fizz-buzz)

EDIT 10.01.2010 Zamiast skracania kodu proponuję wersję bez jawnej iteracji ;)

C++:

#include <iostream>

void fizz_buzz_tail(int arg)
{
    if(arg > 100)
    {
    	return;
    }
    else if((arg % 15) == 0)
    {
    	std::cout << "FizzBuzz" << std::endl;
    }
    else if((arg % 3) == 0)
    {
    	std::cout << "Fizz" << std::endl;
    }
    else if((arg % 5) == 0)
    {
    	std::cout << "Buzz" << std::endl;
    }
    else
    {
    	std::cout << arg << std::endl;
    }

    fizz_buzz_tail(arg+1);
}

int main()
{
    fizz_buzz_tail(1);
    return 0;
}

Common Lisp:

(defun fizz-buzz-tail (i)
  (cond ((> i 100) (return-from fizz-buzz-tail))
         ((zerop (mod i 15)) (format t "FizzBuzz~%"))
         ((zerop (mod i 3)) (format t "Fizz~%"))
         ((zerop (mod i 5)) (format t "Buzz~%"))
         (t (format t "~D~%" i)))
  (fizz-buzz-tail (1+ i)))

(fizz-buzz-tail 1)

Oba programy działają w oparciu o rekurencję ogonową, więc wykonują się tak jak iteracja :).

wolan · Answer 9 · 2010-01-10 15:11:11Z UTC

3

Boo:

for i in range(1, 101):
    if i % 15 == 0:
        print "FizzBuzz"
    elif i % 3 == 0:
        print "Fizz"
    elif i % 5 == 0:
        print "Buzz"
    else:
        print i

answered Jan 10 at 15:11

wolan

community wiki

MW · Answer 10 · 2010-01-10 16:42:53Z UTC

Go:

package main

import "fmt"

func main(){
        for i:=1; i<=100; i++{
                if(i%15 == 0){  
                        fmt.Printf("FizzBuzz");
                }else if (i%3 == 0){
                        fmt.Printf("Fizz");
                }else if (i%5 == 0){
                        fmt.Printf("Buzz");
                }else{
                        fmt.Printf("%d", i);
                }       
        }
}

michalp · Answer 11 · 2010-01-13 19:08:34Z UTC

3

Lua:

for x = 1, 100 do

    if x % 15 == 0 then
    	print("FizzBuzz")
    elseif x % 3 == 0 then
    	print("Fizz")
    elseif x % 5 == 0 then
    	print("Buzz")
    else
    	print(x)
    end

end

edited Jan 13 at 19:08

michalp

community wiki

3 revisions

mixer · Answer 12 · 2010-01-14 18:15:56Z UTC

Smalltalk:

| x  num |
x := 1.
100 timesRepeat: [
  num := true.
  (x \\ 3 = 0) ifTrue: [num := false. Transcript show: 'Fizz'].
  (x \\ 5 = 0) ifTrue: [num := false. Transcript show: 'Buzz'].
  (num) ifTrue: [Transcript show: x].
  Transcript cr.
  x := x + 1.
].

rafek · Answer 13 · 2010-01-16 09:56:34Z UTC

LEFT 90
MOVE 145
RIGHT 90
MOVE 145
RIGHT 90
LET F 3
LET B 5
LET I 1
LET N 0
LET D 0
LET E 0
LET Z 0
REPEAT 100
 LET N 2
COLOR GREEN
IF F = I
 IF B = I
 COLOR RED
 LET C 2
 ELSE
 LET C 7
 ENDIF
ENDIF
IF F = I 
 PRINT FIZ
 MOVE 40
 LET F F+3
 LET N 1
ENDIF
COLOR BLUE
COLOR C
IF B = I
 PRINT BUZ
 MOVE 50
 LET B B+5
 LET N 1
ENDIF
IF N = 2
 COLOR BLACK
 PRINTVAR I
 MOVE 30
 ENDIF
LET E E + 1
IF E = 6
HOME
LEFT 90
MOVE 145
RIGHT 90
MOVE 145
RIGHT 180
LET D D+17
MOVE D
LEFT 90
LET E 0
ENDIF
LET I I+1
NEXT
END

kilas · Answer 14 · 2010-01-22 16:10:14Z UTC

PHP

print eval(unserialize(gzuncompress(base64_decode('eNp9jFELgjAURv/Kx8XEIZSrfHGuhx76H3NNHAWCU4KF/71WQougt3u45zuu2u55RW0/IEus5AKJrSUvinDkOcPd3eyou/B9glbOIAuw2kFKFAxp+sJyQVbB6K4Hnaz3x8l7whpUN8OBBJrBqIvAu/JpxJN/evmtx3VsosHZtGq6jouX2J/kPJN4AKArQs8='))));

:D

dev-null-dweller · Answer 15 · 2010-01-29 22:18:05Z UTC

fizz.erl :

-module(fizz).
-export([buzz/1]).
buzz(A)->
    if
     ((101-A) rem 15) == 0 ->
            io:format("FizzBuzz~n",[]);
     ((101-A) rem 5) == 0 ->
            io:format("Buzz~n",[]);
     ((101-A) rem 3) == 0 ->
            io:format("Fizz~n",[]);
     true ->
            io:format("~w~n",[101-A])
    end,
    if
     (101-A) < 100 ->
            fizz:buzz(A-1);
     true ->
            io:format("~n",[])
    end.

I w konsoli Erlanga:

c(fizz).
fizz:buzz(100).

szfarceneger · Answer 16 · 2010-01-30 11:54:25Z UTC

3

python

for i in range(1, 101):
    if not i % 3:
        if not i % 5:
            print "FizzBuzz"
        else:
            print "Fizz"
    elif not i % 5:
        print "Buzz"
    else:
        print i

answered Jan 30 at 11:54

szfarceneger

community wiki

krzycho · Answer 17 · 2010-03-04 17:56:04Z UTC

Trochę inne rozwiązanie w c:

#include <stdio.h>

void fizzbuzz ()
{
    int i, fizz=3, buzz=5, fizzbuzz;
    for (i=1; i<=100; i++) {
        fizzbuzz = 0;
        if (i==fizz) { printf("Fizz"); fizz+=3; fizzbuzz=1; }
        if (i==buzz) { printf("Buzz"); buzz+=5; fizzbuzz=1; }
        if (fizzbuzz) printf("\n");
        else printf("%d\n", i);
    }
}

int main()
{
    fizzbuzz();
    return 0;
}

matma · Answer 18 · 2010-03-04 22:42:37Z UTC

Trochę inne podejście do Powershella:

(1..100) | select @{n="n";e={$_ -as [string]}}, `
              @{n="w3";e={ "{0}" -f (($_ % 3) -as [string]).Replace("0","Fizz")}},`
              @{n="w5";e={ "{0}" -f (($_ % 5) -as [string]).Replace("0","Buzz")}} `
         | select @{n="n";e={$_.n}}, `
              @{n="w3";e={ "{0}" -f [Regex]::Replace($_.w3, "\d", [String]::Empty)}},`
              @{n="w5";e={ "{0}" -f [Regex]::Replace($_.w5, "\d", [String]::Empty)}} `
         | select @{n="n";e={$_.n}},@{n="w";e={$_.w3+$_.w5}} `
         |% { if ( $_.n -gt $_.w ) { $_.n } else { $_.w } }

Snap · Answer 19 · 2010-03-06 16:44:23Z UTC

3

PHP, bez średników, 74 znaki.

foreach(range(1,100)as$i){if(print((($i%3)?(($i%5)?$i:'buzz'):'fizz'))){}}

edited Mar 6 at 16:44

Snap

community wiki

2 revisions

Marcin · Answer 20 · 2010-03-09 11:33:39Z UTC

3

#!/usr/bin/perl
map{print$_ if$_%5and$_%3;print"fizz"unless$_%3;print"buzz"unless$_%5;print"\n"}(1..100)

answered Mar 9 at 11:33

Marcin

community wiki

kobier · Answer 21 · 2010-03-14 14:02:42Z UTC

3

Mozart Oz ;)

{For 1 100 1
 proc{$ X}
    if X mod 15 == 0 then {Browse 'FizzBuzz'}
    elseif X mod 3 == 0 then {Browse 'Fizz'}
    elseif X mod 5 == 0 then {Browse 'Buzz'}
    else {Browse X}
    end
 end}

answered Mar 14 at 14:02

kobier

community wiki

Gutek · Answer 22 · 2010-07-05 15:25:44Z UTC

C#:

for (int i = 1; i <= 100; i++) 
   Console.WriteLine((i % 3 == 0) ? ((i % 5 == 0) ? "FizzBuzz" : "Fizz") : 
                                    ((i % 5 == 0) ? "Buzz" : i.ToString()));

Zaletą kodu jest to, że w każdym wypadku wykonujemy dokładnie dwa dzielenia modulo. Duża część programów powyżej dla przypadku, kiedy i nie jest podzielne ani przez 3, ani przez 5, wykonuje aż 3 dzielenia! Pamiętajmy, że dzielenie jest jedną z kosztowniejszych obliczeniowo operacji - w każdej architekturze :)

Marek Stój · Answer 23 · 2010-01-07 17:44:30Z UTC

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
  int i=1;
  while(i<=100)
  {
          if(i%3==0) printf("\nFizz");
          if((i%3!=0)&&(i%5==0)) printf("\n");
          if(i%5==0) printf("Buzz");
          if((i%3!=0)&&(i%5!=0)) printf("\n%d",i);
          i++;
  }
  system("PAUSE");  
  return 0;
}

Wykop kur-- · Answer 24 · 2010-01-07 17:48:18Z UTC

2

#include<cstdio>

int main() {
   for(int i=1;i<=100;++i) {
      if((i%3) && (i%5)) printf("%d",i);
      if(!(i%3)) printf("Fizz");
      if(!(i%5)) printf("Buzz");
      printf("\n");
   }
   return 0;
}

answered Jan 7 at 17:48

Wykop kur--

community wiki

ponton..pl · Answer 25 · 2010-01-07 18:06:12Z UTC

#include <stdio.h>

int main()
{
    int i;
    for (i = 1; i <= 100; ++i)
    {
        if (i % 15 == 0)
            puts("FizzBuzz");
        else if (i % 3 == 0)
            puts("Fizz");
        else if (i % 5 == 0)
            puts("Buzz");
        else
            printf("%d\n", i);
    }
}

gluth · Answer 26 · 2010-01-07 18:21:55Z UTC

2

Prolog:

forall(between(1, 100, X),(
  (0 is X mod 15) -> writeln('FizzBuzz');
  (0 is X mod 3) -> writeln('Fizz');
  (0 is X mod 5) -> writeln('Buzz');
  writeln(X))).

answered Jan 7 at 18:21

gluth

community wiki

show 4 more comments

Marek Stój · Answer 27 · 2010-01-07 18:39:10Z UTC

2

F#:

let decide x =
    if x % 15 = 0 then "FizzBuzz"
    elif x % 3 = 0 then "Fizz"
    elif x % 5 = 0 then "Buzz"
    else x.ToString()

ignore [ for i in 1..100 -> printfn "%s" (decide i) ]

answered Jan 7 at 18:39

Marek Stój♦♦

community wiki

show 1 more comment

Robert Gonek · Answer 28 · 2010-01-07 18:51:15Z UTC

C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace FizzBuzz
{
    class Program
    {
        static void Main(string[] args)
        {
            for (int i = 1; i <= 100; ++i)
            {
                if (i % 3 == 0)
                    Console.Write("Fizz");
                if (i % 5 == 0)
                    Console.Write("Buzz");
                if (i % 3 != 0 && i % 5 != 0)
                    Console.Write(i);

                Console.Write("\n");
            }
        }
    }
}

matiit · Answer 29 · 2010-01-07 18:56:14Z UTC

2

Ruby (

i=1  
100.times do |i|    
if i%15==0
	puts "FizzBuzz"
elsif i%5==0
	puts "Buzz"
elsif i%3==0
	puts "Fizz"
else
	puts i
end  

i=i+1
end

edited Jan 7 at 18:56

matiit

community wiki

4 revisions, 2 users
matiit 68%

p98 · Answer 30 · 2010-01-07 19:05:08Z UTC

Pascal:

program fizzbuzz;
uses crt;
var a,i:integer;
begin
clrscr;
for i:=1 to 100 do
 begin
  if i mod 3 = 0 then write('Fizz ');
  if i mod 5 = 0 then write('Buzz ');
  if (i mod 3 = 0) and (i mod 5 = 0) then writeln('FizzBuzz ');
  if (i mod 3 <> 0) and (i mod 5 <> 0) and ((i mod 3 <> 0) and (i mod 5 <> 0)) then write(i,' ');
  delay(100);
 end;
repeat until keypressed;
end.

Jak napisać FizzBuzz w Twoim ulubionym języku programowania?

80 Answers