All pastes #803329 Raw Edit

Something

public text v1 · immutable
·published 2007-12-01 02:39 UTC
rendered paste body
;(letrec-syntax
;  ((primes (syntax-rules ()
;						 ((primes 2 1) #f)
;						 ((primes p p)
;						  (begin
;							(primes 2 (- p 1))
;							(display p)))
;						 ((primes d p)
;						  (if (zero? (remainder p d))
;							(primes 2 (- p 1))
;							(primes (+ d 1) p)))))))

(letrec-syntax
  ((primes (syntax-rules '()
						 ((primes x y) #f)))))

(primes 2 100)