26.10.2013 Views

Sieve of Eratosthenes benchmarks for the Z8 FORTH microcontroller

Sieve of Eratosthenes benchmarks for the Z8 FORTH microcontroller

Sieve of Eratosthenes benchmarks for the Z8 FORTH microcontroller

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

1.<br />

2.<br />

3.<br />

4.<br />

5.<br />

6.<br />

7.<br />

8.<br />

9.<br />

10.<br />

11.<br />

12.<br />

13.<br />

14.<br />

15.<br />

16.<br />

17.<br />

18.<br />

19.<br />

20.<br />

21.<br />

constant sire = 8190;<br />

va r<br />

begin<br />

end;<br />

flags : array [O..sizel <strong>of</strong> integer;<br />

i,prime,k,count,iter : integer;<br />

count := 0;<br />

<strong>for</strong> i := 0 to size do<br />

flagslil := 1;<br />

<strong>for</strong> i:= 0 to size do<br />

if flagsCil <strong>the</strong>n<br />

begin<br />

prime := i + i + 3;<br />

k :=i + prime;<br />

kite k

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!