9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
24 lines
564 B
Plaintext
24 lines
564 B
Plaintext
|
|
PROCEDURE Main()
|
|
|
|
LOCAL Program := {, }, Condition := 1, body := 2, Counter := 1, TheEnd := 1000000, stop, start
|
|
|
|
Program[ condition ] := {|| Counter == TheEnd }
|
|
Program[ body ] := {|| Counter++ }
|
|
? start := Second()
|
|
|
|
// in Clipper :
|
|
// WHILE ! Program[ condition ]:Eval() ; Program[ body ]:Eval()
|
|
// why Harbour CodeBlocks don't have Eval() method ?!
|
|
|
|
// Now It is supported.
|
|
|
|
DO WHILE ! Eval( Program[ condition ] )
|
|
Eval( Program[ body ] )
|
|
ENDDO
|
|
? stop := Second()
|
|
? "==============="
|
|
? stop - start
|
|
|
|
RETURN
|