Primality by trial division: Difference between revisions
Primality by trial division in BASIC256
(Primality by trial division in True BASIC) |
(Primality by trial division in BASIC256) |
||
Line 838:
119 is not prime!
137 is prime!</pre>
=={{header|BASIC256}}==
{{trans|FreeBASIC}}
<lang freebasic>for i = 1 to 99
if isPrime(i) then print string(i); " ";
next i
end
function isPrime(v)
if v < 2 then return False
if v mod 2 = 0 then return v = 2
if v mod 3 = 0 then return v = 3
d = 5
while d * d <= v
if v mod d = 0 then return False else d += 2
end while
return True
end function</lang>
=={{header|BBC BASIC}}==
| |||