Prime numbers which contain 123: Difference between revisions
Prime numbers which contain 123 in PureBasic
(Prime numbers which contain 123 in BASIC256) |
(Prime numbers which contain 123 in PureBasic) |
||
Line 618:
found 451 < 1_000_000
</pre>
=={{header|PureBasic}}==
{{trans|FreeBASIC}}
<lang PureBasic>Procedure isPrime(v.i)
If v <= 1 : ProcedureReturn #False
ElseIf v < 4 : ProcedureReturn #True
ElseIf v % 2 = 0 : ProcedureReturn #False
ElseIf v < 9 : ProcedureReturn #True
ElseIf v % 3 = 0 : ProcedureReturn #False
Else
Protected r = Round(Sqr(v), #PB_Round_Down)
Protected f = 5
While f <= r
If v % f = 0 Or v % (f + 2) = 0
ProcedureReturn #False
EndIf
f + 6
Wend
EndIf
ProcedureReturn #True
EndProcedure
Global column.i
Procedure prime(limite.l, mostrar.b)
column = 0
For n = 1 To limite
strn.s = Str(n)
If isPrime(n) And FindString(strn,"123") > 0:
column + 1
If mostrar:
Print(FormatNumber(n,0,"","") + " ")
If column % 8 = 0: PrintN("") : EndIf
EndIf
EndIf
Next n
EndProcedure
OpenConsole()
PrintN("Prime numbers which contain 123")
limite.l = 1e5
prime(limite, #True)
PrintN(#CRLF$ + #CRLF$ + "Found " + Str(column) + " prime numbers below " + Str(limite))
limite = 1e6
prime(limite, #False)
PrintN(#CRLF$ + "Found " + Str(column) + " prime numbers below " + Str(limite))
Input()
CloseConsole()</lang>
{{out}}
<pre>Same as FreeBASIC entry.</pre>
=={{header|Python}}==
| |||