diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2013-01-28 19:02:21 +0000 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2013-01-28 19:02:21 +0000 |
| commit | f627f77f23d1497c9e1f4269b5c8812d12b42f18 (patch) | |
| tree | 708772d83a8355e25155cf233d5a9e38f8ad4d96 /ipl/packs/loadfuncpp/examples/newprimes.icn | |
| parent | 6ab0c0f5bf14ed9c15370407b9ee7e0b4b089ae1 (diff) | |
| download | icon-upstream.tar.gz | |
Imported Upstream version 9.5.0upstream/9.5.0upstream
Diffstat (limited to 'ipl/packs/loadfuncpp/examples/newprimes.icn')
| -rw-r--r-- | ipl/packs/loadfuncpp/examples/newprimes.icn | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ipl/packs/loadfuncpp/examples/newprimes.icn b/ipl/packs/loadfuncpp/examples/newprimes.icn new file mode 100644 index 0000000..4f2391a --- /dev/null +++ b/ipl/packs/loadfuncpp/examples/newprimes.icn @@ -0,0 +1,4 @@ +procedure main() + #limit to the first 10000 primes + every write(!(p := 1, a := [2])| 1(|(p +:= 2), not(p % !a = 0), put(a, p))) \1000 +end |