all tasks

Task/Time-a-function/PureBasic/time-a-function-1.purebasic

@@ -0,0 +1,22 @@
+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