diff options
| author | Lua Team <team@lua.org> | 2010-05-18 12:00:00 +0000 |
|---|---|---|
| committer | repogen <> | 2010-05-18 12:00:00 +0000 |
| commit | f970e1e83ed07bbcf8a20fc1a95f91a0a2aae620 (patch) | |
| tree | 005b26e8ebf7553ba5c7a66700866be3e42443d0 /test/sieve.lua | |
| parent | ecd48c2901f08a88db32139b97c35c59eba1f19e (diff) | |
| download | lua-github-5.2.0-work3.tar.gz | |
Lua 5.2.0-work35.2.0-work3
Diffstat (limited to 'test/sieve.lua')
| -rw-r--r-- | test/sieve.lua | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/test/sieve.lua b/test/sieve.lua deleted file mode 100644 index e27c1a20..00000000 --- a/test/sieve.lua +++ /dev/null @@ -1,29 +0,0 @@ --- the sieve of of Eratosthenes programmed with coroutines --- typical usage: lua -e N=1000 sieve.lua | column - --- generate all the numbers from 2 to n -function gen (n) - return coroutine.wrap(function () - for i=2,n do coroutine.yield(i) end - end) -end - --- filter the numbers generated by `g', removing multiples of `p' -function filter (p, g) - return coroutine.wrap(function () - while 1 do - local n = g() - if n == nil then return end - if n % p ~= 0 then coroutine.yield(n) end - end - end) -end - -N=N or 1000 -- from command line -x = gen(N) -- generate primes up to N -while 1 do - local n = x() -- pick a number until done - if n == nil then break end - print(n) -- must be a prime number - x = filter(n, x) -- now remove its multiples -end |