CodeGolf: FizzBuzz

Discussion

Eduard Lebedyuk · Jul 31, 2019

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

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

It is produced by this unoptimized script:

Spoiler

for i=1:1:100 {
    if (i#3=0)&&(i#5=0) {
        write "FizzBuzz"
    } elseif (i#3=0) {
        write "Fizz"
    } elseif (i#5=0) {
        write "Buzz"
    } else {
        write i
    }
    write !
}

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

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

Robert Cemper · Jul 31, 2019

53 bytes raw

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

9 0

David Crawford · Jul 31, 2019

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

FizzBuzz90

Instead be:

FizzBuzz

0 0

Evgeny Shvarov · Jul 31, 2019

I like it! though $X is a "hack" ;)

John Kumpf · Aug 1, 2019

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

Julius Kavay · Jul 31, 2019

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.

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

1 0

Oh dear! It's incredible!

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 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)

2 0

I guess mine doesn't support that! Lol

c'mon - it even works with text files:

3 0

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

Marc Mundt · Jul 31, 2019

But a clever one :)

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

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

Rod Dorman · Aug 1, 2019

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

Julius Kavay · Aug 1, 2019

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

Alexey Maslov · Aug 2, 2019

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
...

67 bytes raw

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

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,!

}

}

Sourabh Sethi · Jul 31, 2019

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>

Alexander Koblov · Jul 31, 2019

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

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

Sean Connelly · Jul 31, 2019

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

fizzbuzz

f 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" s i=@i
w !,i
}

words
;;FizzBuzz
;;Fizz
;;Buzz
;;ii