Imported Upstream version 9.5.0upstream/9.5.0upstream

1 files changed, 26 insertions, 0 deletions

diff --git a/ipl/packs/loadfuncpp/examples/primes.icn b/ipl/packs/loadfuncpp/examples/primes.icn
new file mode 100644
index 0000000..ecbd1f1
--- /dev/null
+++ b/ipl/packs/loadfuncpp/examples/primes.icn
@@ -0,0 +1,26 @@
+procedure main() 
+    #limit to the first x primes
+    local x;
+    x := 20;
+    every write(!(p := 1, a := [2])| 1(|(p +:= 2), not(p % !a = 0), put(a, p))) \x
+    list_primes(x);
+end
+
+procedure list_primes(prime_limit)
+    local p;
+    local a;
+    local s;
+    initial {
+	p := 1;
+	a := [2];
+    }
+    until (prime_limit <= *a) do {
+	p +:= 2;
+	s := sqrt(p);
+	
+	if (not(p % !a = 0)) then {
+	    put(a, p);
+	}
+    }
+    every write(!a)
+end