Scheme Code CracklePop

code_crackle_pop.scm

;; range function [start, stop)
(define (range start stop)
  (define (iter start stop seq)
    (if (= stop start)
	(cons start seq)
	(iter start (- stop 1) (cons stop seq))))
  (iter start (- stop 1) '()))

(define (divides? divisor dividend)
  (= (remainder dividend divisor) 0))

(define (modify n)
  (cond ((divides? 15 n) "CracklePop")
	((divides? 5 n) "Pop")
	((divides? 3 n) "Crackle")
	(else n)))

(for-each (lambda (n)
	    (display n)
	    (newline))
	  (map modify (range 1 101)))