23 lines
598 B
Plaintext
23 lines
598 B
Plaintext
Procedure Foo(Limit)
|
|
Protected i, palindromic, String$
|
|
For i=0 To Limit
|
|
String$=Str(i)
|
|
If String$=ReverseString(String$)
|
|
palindromic+1
|
|
EndIf
|
|
Next
|
|
ProcedureReturn palindromic
|
|
EndProcedure
|
|
|
|
If OpenConsole()
|
|
Define Start, Stop, cnt
|
|
PrintN("Starting timing of a calculation,")
|
|
PrintN("for this we test how many of 0-1000000 are palindromic.")
|
|
Start=ElapsedMilliseconds()
|
|
cnt=Foo(1000000)
|
|
Stop=ElapsedMilliseconds()
|
|
PrintN("The function need "+Str(stop-Start)+" msec,")
|
|
PrintN("and "+Str(cnt)+" are palindromic.")
|
|
Print("Press ENTER to exit."): Input()
|
|
EndIf
|