codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
(define (fizzbuzz lower upper) (cond ((< upper lower) ()) ((and (eq? (remainder lower 3) 0) (eq? (remainder lower 5) 0)) (display "fizzbuzz\n") (fizzbuzz (+ lower 1) upper)) ((eq? (remainder lower 3) 0) (display "fizz\n") (fizzbuzz (+ lower 1) upper)) ((eq? (remainder lower 5) 0) (display "buzz\n") (fizzbuzz (+ lower 1) upper)) (else (display lower) (display "\n") (fizzbuzz (+ lower 1) upper)))) (fizzbuzz 1 100)
Private
[
?
]
Run code
Submit