Frobenius numbers: Difference between revisions
Frobenius numbers en Yabasic
(Frobenius numbers en PureBasic) |
(Frobenius numbers en Yabasic) |
||
Line 1,308:
5615 6395 7215 8447 9599
25 Frobenius numbers found below 10,000.
</pre>
=={{header|Yabasic}}==
{{trans|PureBasic}}
<lang yabasic>
sub isPrime(v)
if v < 2 then return False : fi
if mod(v, 2) = 0 then return v = 2 : fi
if mod(v, 3) = 0 then return v = 3 : fi
d = 5
while d * d <= v
if mod(v, d) = 0 then return False else d = d + 2 : fi
wend
return True
end sub
pn = 2
n = 0
for i = 3 to 9999 step 2
if isPrime(i) then
n = n + 1
f = pn * i - pn - i
if f > 10000 then break : fi
print n, " => ", f
pn = i
end if
next i
end
</lang>
{{out}}
<pre>
Igual que la entrada de PureBasic.
</pre>
| |||