CodeGolf: FizzBuzz

Primary tabs

Let's have a round of CodeGolf!

As usual the goal is to write the shortest solution for a specified problem.

Today we have one of the classics: FizzBuzz.

Write a program that prints the numbers from 1 to 100.

But for multiples of three print “Fizz” instead of the number and for the multiples of five print “Buzz”.

For numbers which are multiples of both three and five print “FizzBuzz”

To make output a little more readable (and code - more interesting) let's print only one number or word per line, so correct output should be:

 
Spoiler

It is produced by this unoptimized script:

 
Spoiler
  • + 4
  • 1
  • 264
  • 16
  • 6

Answers

53 bytes raw

  devil

f i=1:1:100 w:i#3=0 "Fizz" w:i#5=0 "Buzz" w:'$x i w !

This is really cool! But the output from this has the integers next to the strings. For example shouldn't:

FizzBuzz90

Instead be:

FizzBuzz

it doesn't show numbers at end  
if you run it as single line command in a standard Caché terminal supporting $X,$Y.

newline sets $x=0, $i($Y)

USER>f i=1:1:100 w:i#3=0 "Fizz" w:i#5=0 "Buzz" w:'$x i w !
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz
16
17
Fizz
19
Buzz
Fizz
22
23
Fizz
Buzz
26
Fizz
28
29
FizzBuzz
31
32
Fizz
34
Buzz
Fizz
37
38
Fizz
Buzz
41
Fizz
43
44
FizzBuzz
46
47
Fizz
49
Buzz
Fizz
52
53

c'mon - it even works with text files:

USER>s file="fizzbuzz.txt"
 
USER>o file:"WNS":0 W $t
1
USER>u file f i=1:1:100 w:i#3=0 "Fizz" w:i#5=0 "Buzz" w:'$x i w !
 
USER>c file
 
USER>$type fizzbuzz.txt
 
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz

I got it working, just needed some dumb troubleshooting and a terminal restart. Cut me some slack! I've never done a code golf before wink

 - - - " let's print only one number or word per line,  " - - -  

That was my trigger.  Thanks @Eduard Lebedyuk  for the hint

That $x thing is awesome.  Can't see this solution being beat.

67 bytes raw

i=1:1:100 $s(i#15=0:"FizzBuzz",i#3=0:"Fizz",i#5=0:"Buzz",1:i),!

We can save some more bytes:

f i=1:1:100 w $p(i_",Fizz,Buzz,FizzBuzz",",",i#5=0*2+'(i#3)+1),!

"640K ought to be enough for anybody." Oh, I meant, 64 bytes should be enough.

My one)

 

ClassMethod FizzBuzz()

{

f i=1:1:100 {

s k=i

f a=3,5,15 s:'(i#a) k=$CASE(a,3:"Fizz",5:"Buzz",:"FizzBuzz")

w k,!

}

}

I think shortest one will be :

USER>f i=1:1:100 w !,$S(('(i#3)&'(i#5)):"FizzBuzz",'(i#3):"Fizz",'(i#5):"Buzz",1:i)
 
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz
16
17
Fizz
19
Buzz
Fizz
22
23
Fizz
Buzz
26
Fizz
28
29
FizzBuzz
31
32
Fizz
34
Buzz
Fizz
37
38
Fizz
Buzz
41
Fizz
43
44
FizzBuzz
46
47
Fizz
49
Buzz
Fizz
52
53
Fizz
Buzz
56
Fizz
58
59
FizzBuzz
61
62
Fizz
64
Buzz
Fizz
67
68
Fizz
Buzz
71
Fizz
73
74
FizzBuzz
76
77
Fizz
79
Buzz
Fizz
82
83
Fizz
Buzz
86
Fizz
88
89
FizzBuzz
91
92
Fizz
94
Buzz
Fizz
97
98
Fizz
Buzz
USER>

Not the smallest, but shortest -- 42 characters. Based on Robert's answer.

x $zwunpack("⁦㵩㨱㨱〱‰㩷⍩㴳‰䘢穩≺眠椺㔣〽∠畂空•㩷␧⁸⁩⁷‡")

Wow.  I think even our Chinese colleagues will not help to read this)

Oh dear!  It's incredible!

yesyesyes​​​​​​​yes​​​​​​​yes​​​​​​​​​​​​​​

It depends on, what are the requirements...
Usually we want to occupy as few (RAM) bytes as possible.
Yes, it uses the fewest characters but far more bytes as Robert's solution.

It also requires Unicode, it won't work on a 8-bit installation.

No, it works and all installations but yes, it needs 8 Bit  characters.

A simple command like

write "abcd"

writes out four 8-Bit characters, independent of your installation (8-Bit or Unicode)

On Evgeny Shvarov's PC, a command like

write "Физз"

would write out four 16Bit characters, in sum 2*4 = 8 characters, each with 8 Bits

No, it works and all installations but yes, it needs 8 Bit  characters

It needs Unicode characters as well, otherwise it fails. Just compare 8 bit instance run: 

USER>w "IsUnicode = ",$zbitget($zversion(0),1)
IsUnicode = 0
USER>s x="f i=1:1:100 w:i#3=0 ""Fizz"" w:i#5=0 ""Buzz"" w:'$x i w ! " w $l(x)
54
USER>s xx=$zwpack(x)
 
S xx=$ZWPACK(x)
^
<WIDE CHAR>

with Unicode one:

USER>w "IsUnicode = ",$zbitget($zversion(0),1)
IsUnicode = 1
USER>s x="f i=1:1:100 w:i#3=0 ""Fizz"" w:i#5=0 ""Buzz"" w:'$x i w ! " w $l(x)
54
USER>s xx=$zwpack(x)
USER>x $zwunpack(xx)
1
2
Fizz
...

I think you will find this is as short as it can possibly go before it starts to become unmaintainable...


fizzbuzz

ii=1:1:100 {
    s i=$tr($t(words+$s(ii#15=0:1,ii#3=0:2,ii#5=0:3,1:4)),"; ")
    i i="ii" i=@i
    w !,i
}

words
    ;;FizzBuzz
    ;;Fizz
    ;;Buzz

    ;;ii