codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
(define (fizz-buzzify index) (letrec ((fizz-val (lambda (i s) ;Hey, I found a use for letrec. (if (> i 0) (fizz-val (- i 1) (string-append (cond ((= (modulo i 15) 0) "FizzBuzz") ((= (modulo i 5) 0) "Buzz") ((= (modulo i 3) 0) "Fizz") (else (number->string i))) "\n" s)) s)))) (fizz-val index ""))) (display (fizz-buzzify 100))
Private
[
?
]
Run code
Submit