3.scm

   1 (require "streams.ss")\r
   2 \r
   3 (define N 317584931803)\r
   4 \r
   5 (define (largest-prime-factor n primes)\r
   6   (let ((p (stream-car primes)))\r
   7     (cond ((= p n) p)\r
   8           (else \r
   9            (if (= (modulo n p) 0)\r
  10                (largest-prime-factor (/ n p) primes)\r
  11                (largest-prime-factor n (stream-cdr primes)))))))\r
  12 \r
  13 (largest-prime-factor N primes)