cracklepop

cracklepop-scheme.scm

(define (crackle-pop)
    (define (divisible a b)
        (= (mod a b) 0))
    (define (crackle-popper a b)
        (if (<= a b) (crackle-popper (+ a 1) b
        (cond
            ((and (divisible a 3) (divisible a 5)) (display "CracklePop") (newline))
            ((divisible a 3) (display "Crackle") (newline))
            ((divisible a 5) (display "Pop") (newline))
        ))))
    (crackle-popper 1 100))