aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Extensible-prime-generator/Seed7/extensible-prime-generator.seed7
View file

@ -2,17 +2,17 @@ $ include "seed7_05.s7i";
const func boolean: isPrime (in integer: number) is func
result
var boolean: result is FALSE;
var boolean: prime is FALSE;
local
var integer: count is 2;
begin
if number = 2 then
result := TRUE;
prime := TRUE;
elsif number > 2 then
while number rem count <> 0 and count * count <= number do
incr(count);
end while;
result := number rem count <> 0;
prime := number rem count <> 0;
end if;
end func;
@ -21,12 +21,12 @@ var integer: primeNum is 0;
const func integer: getPrime is func
result
var integer: prime is 0;
var integer: nextPrime is 0;
begin
repeat
incr(currentPrime);
until isPrime(currentPrime);
prime := currentPrime;
nextPrime := currentPrime;
incr(primeNum);
end func;