Primality by trial division: Difference between revisions
Primality by trial division in Yabasic
(Primality by trial division in BASIC256) |
(Primality by trial division in Yabasic) |
||
Line 4,437:
0
not prime</pre>
=={{header|Yabasic}}==
{{trans|FreeBASIC}}
<lang yabasic>for i = 1 to 99
if isPrime(i) print str$(i), " ";
next i
print
end
sub isPrime(v)
if v < 2 return False
if mod(v, 2) = 0 return v = 2
if mod(v, 3) = 0 return v = 3
d = 5
while d * d <= v
if mod(v, d) = 0 then return False else d = d + 2 : fi
wend
return True
end sub</lang>
=={{header|zkl}}==
| |||