FizzBuzz Plus

[bplus]

Code: QB64: [Select]

1. _TITLE "FizzBuzz Plus"
2. check$ = "0203050711": say$ = "BizzFizzBuzzFuzzWow"
3. FOR i = 1 TO 100
4.     Flag = 1
5.     FOR j = 0 TO 4
6.         IF i MOD VAL(MID$(check$, j * 2 + 1, 2)) = 0 THEN PRINT MID$(say$, j * 4 + 1, 4);: Flag = 0
7.     NEXT
8.     IF Flag THEN PRINT i, ELSE PRINT ,
9. NEXT
10.  
11.  
12.  

[FellippeHeitor]

No idea what I'm looking at.

[bplus]

Hi Fellippe,

Here is what I watched last night:

[_vince]

Pretty amazing, B+

[bplus]

Thanks _vince,

I had fun inventing a variation involving first few prime numbers and making it generic enough for an easy mod.

[FellippeHeitor]

Hi Fellippe,

Here is what I watched last night:

Thanks for clarifying!

[DANILIN]

5 variants of FizzBuzz 10^7  by 24.5 sec   and   by 23.5 sec   and  by 26 sec   and  by 24.5 sec    and  by 25.4 sec  from Russia

Code: QB64: [Select]

1. 'FizzBuzzDaRus.bas    ' 10^7  by 24.5 sec   and   by 23.5 sec   and  by 26 sec   and  by 24.5 sec    and  by 25.4 sec
2. REDIM i AS LONG 'DEFLNG A-Z ' lines by bplus b+
3. GOTO 20 '  for variant 2
4. 'GOTO 30 '  for variant 3
5. 'GOTO 40 '  for variant 4
6. 'GOTO 50 '  for variant 5
7.  
8. 10 start = TIMER: i = 0 ' 24.5 sec
9. WHILE i < 10 ^ 7: i = i + 1
10.     IF i MOD 3 = 0 THEN
11.         PRINT "Fizz", i + 1, "Buzz", "Fizz", i + 4, i + 5, "Fizz", "Buzz", i + 8, "Fizz", i + 10, i + 11, "FizzBuzz", i + 13,
12.         i = i + 14
13.     END IF
14. PRINT i,: WEND
15. PRINT: PRINT TIMER - start
16.  
17. END
18.  
19. 20 start = TIMER: i = 0 ' 23.5 sec
20. 5 i = i + 1
21. IF i MOD 3 = 0 THEN
22.     PRINT "Fizz", i + 1, "Buzz", "Fizz", i + 4, i + 5, "Fizz", "Buzz", i + 8, "Fizz", i + 10, i + 11, "FizzBuzz", i + 13,
23.     i = i + 14
24. END IF
25. PRINT i,: IF i < 10 ^ 7 THEN GOTO 5
26. PRINT: PRINT TIMER - start
27.  
28. END
29.  
30. 30 start = TIMER ' 26 sec
31. FOR i = 1 TO 10 ^ 7
32.     IF i MOD 3 = 0 AND i MOD 5 = 0 THEN a$ = "FizzBuzz" ELSE IF i MOD 3 = 0 THEN a$ = "Buzz" ELSE IF i MOD 5 = 0 THEN a$ = "Fizz" ELSE a$ = STR$(i) 'STR$(i) is slow
33.     PRINT a$,
34. NEXT
35. PRINT: PRINT TIMER - start
36.  
37. END
38.  
39. 40 start = TIMER ' 24.7 sec
40. FOR i = 1 TO 10 ^ 7
41.     IF i MOD 3 = 0 AND i MOD 5 = 0 THEN a$ = "FizzBuzz": GOTO 45 ELSE IF i MOD 3 = 0 THEN a$ = "Buzz": GOTO 45 ELSE IF i MOD 5 = 0 THEN a$ = "Fizz": GOTO 45 ELSE a$ = STR$(i) 'STR$(i) is slow
42.    45 PRINT a$,
43. NEXT
44. PRINT: PRINT TIMER - start
45.  
46. END
47.  
48. 50 start = TIMER ' 25.4 sec
49. FOR i = 1 TO 10 ^ 7
50.     IF i MOD 3 = 0 AND i MOD 5 = 0 THEN PRINT "FizzBuzz", ELSE IF i MOD 3 = 0 THEN PRINT "Buzz", ELSE IF i MOD 5 = 0 THEN PRINT "Fizz", ELSE PRINT i,
51. NEXT
52. PRINT: PRINT TIMER - start
53.  
54. END

Plus variants with integer constants are slow

[bplus]

@DANILIN

If you are going for speed (not really the point of FizzBizz, but),

Try adding this line at the top:

Code: QB64: [Select]

1. redim i as long
2.  

and changing the times to single! You will like :)

This doesn't stop on a dime (at 100) but nice!

Code: QB64: [Select]

1. 20 start = TIMER: i = 0 ' 23.5 sec
2. 5 i = i + 1
3. IF i MOD 3 = 0 THEN
4.     PRINT "Fizz", i + 1, "Buzz", "Fizz", i + 4, i + 5, "Fizz", "Buzz", i + 8, "Fizz", i + 10, i + 11, "FizzBuzz", i + 13,
5.     i = i + 14
6. END IF
7. PRINT i,: IF i < 100 THEN GOTO 5
8. fin = TIMER: PRINT: PRINT fin - start
9.  

[DANILIN]

adding line became faster exactly 2 times: 13 seconds each

day before I just composed program FizzBuzz as everyone can simple

https://rosettacode.org/wiki/FizzBuzz/Basic

and today I checked acceleration

but classic FizzBuzz program should be on forum

and nothing newer is coming up

[bplus]

faster by exactly 2 times: writes whole seconds

you forgot to change times to Single Type, add ! suffix to start and fin

Actually it's better just to
REDIM i as long

then you dont have to fix times.

If you want to compare yours to regular version here's mine:

Code: QB64: [Select]

1. REDIM i AS LONG
2. start = TIMER: i = 0 ' 23.5 sec
3. 5 i = i + 1
4. IF i MOD 3 = 0 THEN
5.     PRINT "Fizz", i + 1, "Buzz", "Fizz", i + 4, i + 5, "Fizz", "Buzz", i + 8, "Fizz", i + 10, i + 11, "FizzBuzz", i + 13,
6.     i = i + 14
7. END IF
8. PRINT i,: IF i < 10 ^ 7 THEN GOTO 5
9. fin = TIMER: PRINT: PRINT fin - start
10.  
11. PRINT "Note time of Danilin's version and press any..."
12. SLEEP
13.  
14. start = TIMER
15. i = 1
16. WHILE i < 10 ^ 7
17.     flag = 0
18.     IF i MOD 3 = 0 AND i MOD 5 = 0 THEN
19.         PRINT "FizzBuzz"
20.     ELSEIF i MOD 3 = 0 THEN
21.         PRINT "Fizz"
22.     ELSEIF i MOD 5 = 0 THEN
23.         PRINT "Buzz"
24.     ELSE
25.         PRINT i
26.     END IF
27.     i = i + 1
28. WEND
29. PRINT TIMER - start
30. PRINT "Time of a more regular version of FizzBuzz."
31.  

[DANILIN]

having found out correctness we will remove all prints:

0.055: Danilin

0.885: Standart

Code: QB64: [Select]

1. ' fizzbuzzDaRusNOprint.bas
2. REDIM i AS LONG
3. start = TIMER: i = 0 ' 14 sec
4. 5 i = i + 1
5. IF i MOD 3 = 0 THEN
6.     'PRINT "Fizz", i + 1, "Buzz", "Fizz", i + 4, i + 5, "Fizz", "Buzz", i + 8, "Fizz", i + 10, i + 11, "FizzBuzz", i + 13,
7.     i = i + 14
8. END IF
9. 'PRINT i,
10. IF i < 10 ^ 7 THEN GOTO 5
11. PRINT TIMER - start
12.      
13. PRINT "Note time of Danilin's version and press any..."
14. 'SLEEP
15.      
16. start = TIMER
17. i = 1
18. WHILE i < 10 ^ 7
19.     flag = 0
20.     IF i MOD 3 = 0 AND i MOD 5 = 0 THEN
21.         'PRINT "FizzBuzz"
22.     ELSEIF i MOD 3 = 0 THEN
23.         'PRINT "Fizz"
24.     ELSEIF i MOD 5 = 0 THEN
25.         'PRINT "Buzz"
26.     ELSE
27.         'PRINT i
28.     END IF
29.     i = i + 1
30. WEND
31. PRINT TIMER - start
32. PRINT "Time of a more regular version of FizzBuzz."

[bplus]

Code: QB64: [Select]

1. 'PRINT "Fizz", i + 1, "Buzz", "Fizz", i + 4, i + 5, "Fizz", "Buzz", i + 8, "Fizz", i + 10, i + 11, "FizzBuzz", i + 13,
2.  

No, comparing Apples to Oranges because you are skipping the calculations for these print jobs.

Just take the time difference in the 2 print jobs both have to print the same amount of letters though how I do standard is one per line which is more LF+CR's, but I get about a half a sec which is significant.

Update: ran some more tests and yeah looks more like a 1 sec +/- on my system between the 2 different times printing everything out. So your times of not printing pretty much agree.

[Dav]

Never heard of FizzBuzz before, so I googled it.  Saw a one line javascript version.  That's probably not possible in basic, but I played around with it, tried to get it down to the fewest lines possible without using a separator.   Eventually got it down to 3, but kind of cheated because it's just one big if/then/else /if/else line
 inside a for/next.

I find it very interesting that companies ask this at coding job interviews.  I would have probably coded a 100 line version, and commented in a 'REM hope you pay per line...
 
- Dav

[bplus]

Luv to see that 3 liner Dav ;-))

Can you do: If Then ElseIF ... END IF on one line without separators?

[Dav]

I didn't save what I had earlier, but I think this was it....

- Dav

Code: QB64: [Select]

1. FOR f = 1 TO 100
2.     IF f MOD 15 <> 0 AND f MOD 5 <> 0 AND f MOD 3 <> 0 THEN PRINT STR$(f) ELSE IF f MOD 15 = 0 THEN PRINT "FizzBuzz" ELSE IF f MOD 3 = 0 THEN PRINT "Fizz" ELSE IF f MOD 5 = 0 THEN PRINT "Buzz"
3. NEXT

Edit: i guess you could do a big one line, if f = 1 then else if f = 2 then, etc up to 100.  But, id really have to want that job bad...
-