Skip to content

Instantly share code, notes, and snippets.

@eshamster

eshamster/Sieve-of-Eratosthenes-2.lisp

Last active August 29, 2015 14:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save eshamster/cdc18cb1dde689d7ed79 to your computer and use it in GitHub Desktop.
Save eshamster/cdc18cb1dde689d7ed79 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Sieve-of-Eratosthenes-2.lisp
(defparameter *sieve* #<a[n] =
#<b[k] = 2, (1+ (* k 2)) >, (let ((factor a[n-1][0]))
(filter-series
#'(lambda (val)
(< 0 (mod val factor)))
a[n-1]))>)
(defparameter *primes* #<a[n] = *sieve*[n][0]>)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment