15 lines
465 B
Plaintext
15 lines
465 B
Plaintext
If OpenConsole()
|
|
Define Timed.f, cnt
|
|
PrintN("Starting timing of a calculation,")
|
|
PrintN("for this we test how many of 0-1000000 are palindromic.")
|
|
; Dependent on Droopy-library
|
|
If MeasureHiResIntervalStart()
|
|
; Same Foo() as above...
|
|
cnt=Foo(1000000)
|
|
Timed=MeasureHiResIntervalStop()
|
|
EndIf
|
|
PrintN("The function need "+StrF(Timed*1000,3)+" msec,")
|
|
PrintN("and "+Str(cnt)+" are palindromic.")
|
|
Print("Press ENTER to exit."): Input()
|
|
EndIf
|