import Miranda 2.066 from upstream

1 files changed, 7 insertions, 0 deletions

diff --git a/miralib/ex/primes.m b/miralib/ex/primes.m
new file mode 100644
index 0000000..2a7c5df
--- /dev/null
+++ b/miralib/ex/primes.m
@@ -0,0 +1,7 @@
+||The infinite list of all prime numbers, by the sieve of Eratosthenes.
+||To see the list, just say `primes', or if you prefer
+||	lay(map show primes)
+||will print them one per line.  Hit control-C (interrupt) to stop.
+
+primes = sieve[2..]
+sieve (p:x) = p:sieve[n|n<-x;n mod p~=0]