Script Library: 1238 scripts
 

timeit.r

REBOL [ Title: "Time-It Function" Date: 3-Jun-1999 File: %timeit.r Purpose: {Creates a simple timer function for timing in REBOL.} Comment: { The first time-it call notes the time, but does not print. After that, each call will print the time that has elapsed since the last call. } library: [ level: 'intermediate platform: 'all type: 'tool domain: 'x-file tested-under: none support: none license: none see-also: none ] Version: 1.0.0 Author: "Anonymous" ] time-it: use [last-time] [ last-time: none func [] [ if last-time [print now/time - last-time] last-time: now/time exit ] ] example: [ time-it loop 100000 [123 * 5 / 321] time-it wait 3 time-it read http://www.rebol.com time-it ] do example
halt ;; to terminate script if DO'ne from webpage
Notes