[plt-scheme] easter egg 'o the day

From: David Herman (dherman at ccs.neu.edu)
Date: Sat Nov 1 17:57:13 EST 2003

(define (collect-a-lot n)
   (when (< n 1000000000000)
     (collect-garbage)
     (collect-a-lot (add1 n))))

(collect-a-lot 0)

Is that Matthew? I can't tell. Whoever it is, um... happy birthday, I 
guess?

Dave



Posted on the users mailing list.