No doubt the formatting is going to get all fucked up, but this is worth sharing:
Below are some definintions I wrote in Scheme:
This finds the smallest divisor of any number n.
(define (smallest-divisor n) (find-divisor n 2))
This finds divisors of n, starting from a guess of 2. It's used above to find the smallest divisor.(define (find-
(
Read more... )