Rebol Programming/speed?

USAGE:

SPEED? /no-io /times 

DESCRIPTION:

Returns approximate speed benchmarks [eval cpu memory file-io].

SPEED? is a function value.

REFINEMENTS

• /no-io -- Skip the I/O test
• /times -- Show time for each test

SOURCE CODE

speed?: func [
    {Returns approximate speed benchmarks [eval cpu memory file-io].} 
    /no-io "Skip the I/O test" 
    /times "Show time for each test" /local 
    result 
    x 
    calc 
    tmp file 
    secs
][
    result: copy [] 
    foreach block [
        [
            loop 100000 [
                x: 1 * index? back next "x" 
                x: 1 * index? back next "x" 
                x: 1 * index? back next "x" 
                x: 1 * index? back next "x"
            ] 
            calc: [100000 / secs / 100]
        ] [
            tmp: make binary! 500000 
            insert/dup tmp "abcdefghij" 50000 
            loop 10 [
                random tmp 
                decompress compress tmp
            ] 
            calc: [(length? tmp) * 10 / secs / 1900]
        ] [
            repeat n 40 [
                change/dup tmp to-char n 500000
            ] 
            calc: [(length? tmp) * 40 / secs / 1024 / 1024]
        ] [
            unless no-io [
                write file: %tmp-junk.txt "" 
                tmp: head insert/dup "" "test^/" 32000 
                loop 100 [
                    write/binary file tmp 
                    read/binary file
                ] 
                delete file 
                calc: [(length? tmp) * 100 * 2 / secs / 1024 / 1024]
            ]
        ]
    ] [
        secs: now/precise 
        calc: 0 
        recycle 
        do block 
        secs: to decimal! difference now/precise secs 
        append result to integer! do calc 
        if times [append result secs]
    ] 
    result
]