Basicprogramming(.org) > Code and examples

Fizz Buzz Plus

(1/3) > >>

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


--- Code: ---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

--- End code ---

jj2007:
Nice ;)

I couldn't resist

Tomaaz:
Newlisp (a single line version):


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

B+:
Nice one liner!  :)

but no plus?  :-[

Tomaaz:

--- Code: ---(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))

--- End code ---

Navigation

[0] Message Index

[#] Next page