Anonymous user
Happy numbers: Difference between revisions
m
→{{header|PureBasic}}
Line 651:
=={{header|PureBasic}}==
{{works with|PureBasic|4.41}}
When compiled for Windows x86, this code is only 5.5 kB.
<lang PureBasic>#ToFind=8
#MaxTests=100
Line 664 ⟶ 668:
i+1
Until Happy>=#ToFind
;
Print(#CRLF$+#CRLF$+"Press ENTER to exit"): Input()
CloseConsole()
| |||