Solutions to Problems


(define prime?
  (lambda (p)
    (define helper
      (lambda (n)
        (if (> n (sqrt p))
	    #t
            (if (divisible? p n)
		#f
		(helper (+ n 1))))))
    (helper 2)))



; iterative process
; assuming sqrt takes O(1) time, sqrt(n) * n