crackle-pop

crackle-pop

(define count 1)

(define (crackle-pop count n)
  (cond ((and (= 0 (remainder count 3))(= 0 (remainder count 5))) (display "CracklePop\n"))
    ((= 0 (remainder count 3))(display "Crackle\n"))
    ((= 0 (remainder count 5))(display "Pop\n"))
    (else (display count)(display "\n")))
  (if (> n count) (crackle-pop (+ count 1) n)))

(crackle-pop count 100)