Rare numbers: Difference between revisions
m
→{{header|FreeBASIC}}: made it more FreeBASIC, added simple test.
(Rare numbers en FreeBASIC) |
m (→{{header|FreeBASIC}}: made it more FreeBASIC, added simple test.) |
||
Line 1,246:
=={{header|FreeBASIC}}==
Made some changes and added a simple test to speed things up. Results in about 1 minute.
{{trans|Phix}}
<lang freebasic>
▲ Dim As Integer r = 0
▲ For i As Integer = 1 To nd
▲ r = r * 10 + remainder(n, 10)
▲ n = floor(n/10)
Next i
Return r
End Function
Dim As
Do
n += 1
Dim As
If r < n Then
Dim As
If
If d Mod 1089 <> 0 Then GoTo jump
Else
If s Mod 121 <> 0 Then GoTo jump
End If
If Frac(Sqr(s)) = 0 And Frac(Sqr(d)) = 0 Then
count += 1
Print count; ": "; n
If count = 5 Then Exit Do : End If
End If
End If
jump:
If n = lim Then
lim = lim * 10
nd += 1
n = (lim \ 9) * 2
End If
Loop
Sleep</lang>▼
Print
Print "Done"
▲Sleep</lang>
{{out}}
<pre>1: 65
2: 621770
3: 281089082
4: 2022652202
5: 2042832002</pre>
=={{header|Go}}==
| |||