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

12
Task/Primality-by-trial-division/REBOL/primality-by-trial-division-1.rebol Normal file
View file

@ -0,0 +1,12 @@
prime?: func [n] [
case [
n = 2 [ true ]
n <= 1 or (n // 2 = 0) [ false ]
true [
for i 3 round square-root n 2 [
if n // i = 0 [ return false ]
]
true
]
]
]

1
Task/Primality-by-trial-division/REBOL/primality-by-trial-division-2.rebol Normal file
View file

@ -0,0 +1 @@
repeat i 100 [ print [i prime? i]]