All pastes #758777 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-11-02 15:54 UTC
rendered paste body
(define min-divisor
  (lambda (n)
    (let ((x 2))
    (if
     (= (remainder n x) 0)
     x
     (let ((x (+ x 1)))(min-divisor n))))
    )
  )