Fizz Buzz Plus

[B+]

http://wiki.c2.com/?FizzBuzzTest

Code: [Select]

check$ = "0203050711": say$ = "BizzFizzBuzzFuzzWow"
FOR i = 1 TO 100
    Flag = 1
    FOR j = 0 TO 4
        IF i MOD VAL(MID$(check$, j * 2 + 1, 2)) = 0 THEN PRINT MID$(say$, j * 4 + 1, 4);: Flag = 0
    NEXT
    IF Flag THEN PRINT i ELSE PRINT
NEXT


[jj2007]

Nice

I couldn't resist

[Tomaaz]

Newlisp (a single line version):

Code: [Select]

(print (map (fn (x) (if (zero? (% x 15)) "FizzBuzz" (zero? (% x 3)) "Fizz" (zero? (% x 5)) "Buzz" x)) (sequence 1 100)))

[B+]

Nice one liner! 

but no plus? 

[Tomaaz]

Code: [Select]

(define (sprawdz x)
    (set 'slowa '(2 bizz 3 fizz 5 buzz 7 fuzz 11 wow))
    (set 'k 0)
    (dolist (y (filter integer? slowa))
        (if (zero? (% x y)) (begin (print (slowa (+ (* $idx 2) 1))) (inc k))))
        (if (zero? k) (println x) (print "\n")))
(map sprawdz (sequence 1 100))


[Aurel]

..just for translation

slowa = slova = letters
 

[Tomaaz]

slowa = slova = letters
 

Wrong. Slowa == words. 

[Aurel]

interesting ..same word but different meaning 

[B+]

Using JB's WORD$():

Code: [Select]

FOR i = 1 TO 100
    b$ = ""
    FOR w = 1 TO 5
        IF i mod val(word$("2 3 5 7 11", w)) = 0 THEN b$ = b$ + word$("Bizz Fizz Buzz Fuzz Wow", w)
    NEXT
    IF b$ = "" THEN PRINT i ELSE PRINT b$
NEXT

Output:

Code: [Select]

1
Bizz
Fizz
Bizz
Buzz
BizzFizz
Fuzz
Bizz
Fizz
BizzBuzz
Wow
BizzFizz
13
BizzFuzz
FizzBuzz
Bizz
17
BizzFizz
19
BizzBuzz
FizzFuzz
BizzWow
23
BizzFizz
Buzz
Bizz
Fizz
BizzFuzz
29
BizzFizzBuzz
31
Bizz
FizzWow
Bizz
BuzzFuzz
BizzFizz
37
Bizz
Fizz
BizzBuzz
41
BizzFizzFuzz
43
BizzWow
FizzBuzz
Bizz
47
BizzFizz
Fuzz
BizzBuzz
Fizz
Bizz
53
BizzFizz
BuzzWow
BizzFuzz
Fizz
Bizz
59
BizzFizzBuzz
61
Bizz
FizzFuzz
Bizz
Buzz
BizzFizzWow
67
Bizz
Fizz
BizzBuzzFuzz
71
BizzFizz
73
Bizz
FizzBuzz
Bizz
FuzzWow
BizzFizz
79
BizzBuzz
Fizz
Bizz
83
BizzFizzFuzz
Buzz
Bizz
Fizz
BizzWow
89
BizzFizzBuzz
Fuzz
Bizz
Fizz
Bizz
Buzz
BizzFizz
97
BizzFuzz
FizzWow
BizzBuzz


[jbk]

hi B+
how did you come up with the algorithm?
your last program also runs in LB5

[B+]

Hi jbk,

I imagine one would be hard pressed to find a Basic that the first program wouldn't work, specially if line numbers were added.

The algo came from trying to generalize the case of 3 and 5 to more numbers and more fun words to say for each divisor of i.