Skip to content

Instantly share code, notes, and snippets.

@eshamster

eshamster/Sieve-of-Eratosthenes-1.lisp

Last active August 29, 2015 14:27
Show Gist options
  • Save eshamster/edbba1467c87422f16ff to your computer and use it in GitHub Desktop.
Save eshamster/edbba1467c87422f16ff to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Sieve-of-Eratosthenes-1.lisp
(defparameter *sieve* #<a[n] =
#<b[k] = (+ k 2) >, (filter-series
#'(lambda (val)
(< 0 (mod val a[n-1][0])))
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