Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl (define (range start limit step) ;; ;; Generate a list from a given value, to a given value ;; e.g. '(start (+ start step) ... end ) ;; Author: Daniel Turner ;; (define (iter start limit step out_list) (if (> (car out_list) limit) (reverse (cdr out_list)) (iter start limit step (cons (+ (car out_list) step) out_list)) ) ) (iter start limit step (list start)) ) (define (fizz-buzz n) ;; ;; Determine whether to fizz, buzz or fizz buzz for a given n. ;; Author: Daniel Turner ;; (cond ((= 0 (remainder n 15)) 'FizzBuzz) ((= 0 (remainder n 5)) 'Buzz) ((= 0 (remainder n 3)) 'Fizz) (else n) ) ) (map (lambda (n) (display n) (display "\n")) (map fizz-buzz (range 1 100 1))) Private [?] Run code