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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Primality-by-trial-division/AppleScript/primality-by-trial-division-1.applescript Normal file
View file

@ -0,0 +1,16 @@
on isPrime(n)
if (n < 3) then return (n is 2)
if (n mod 2 is 0) then return false
repeat with i from 3 to (n ^ 0.5) div 1 by 2
if (n mod i is 0) then return false
end repeat
return true
end isPrime
-- Test code:
set output to {}
repeat with n from -7 to 100
if (isPrime(n)) then set end of output to n
end repeat
return output

16
Task/Primality-by-trial-division/AppleScript/primality-by-trial-division-2.applescript Normal file
View file

@ -0,0 +1,16 @@
on isPrime(n)
if (n < 4) then return (n > 1)
if ((n mod 2 is 0) or (n mod 3 is 0)) then return false
repeat with i from 5 to (n ^ 0.5) div 1 by 6
if ((n mod i is 0) or (n mod (i + 2) is 0)) then return false
end repeat
return true
end isPrime
-- Test code:
set output to {}
repeat with n from -7 to 100
if (isPrime(n)) then set end of output to n
end repeat
return output

1
Task/Primality-by-trial-division/AppleScript/primality-by-trial-division-3.applescript Normal file
View file

@ -0,0 +1 @@
{2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97}