factor/library/test/benchmark/strings.factor

USE: strings
USE: kernel
USE: math
USE: test
USE: lists
USE: compiler

! http://inferno.bell-labs.com/cm/cs/who/bwk/interps/pap.html

: string-step ( n str -- )
    2dup str-length > [
        dup [ "123" , , "456" , , "789" , ] make-string
        dup dup str-length 2 /i 0 swap rot substring
        swap dup str-length 2 /i succ 1 swap rot substring cat2
        string-step
    ] [
        2drop
    ] ifte ; compiled

: string-benchmark ( n -- )
    "abcdef" 10 [ 2dup string-step ] times 2drop ; compiled

[ ] [ 1000000 string-benchmark ] unit-test
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00			`USE: strings`
merged stack continuations combinators and logic vocabularies into kernel vocabulary 2004-12-10 19:29:07 -05:00			`USE: kernel`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00			`USE: math`
			`USE: test`
make-string and make-list replace <> and [, ,] 2004-11-11 15:15:43 -05:00			`USE: lists`
compiler does tail call optimization 2004-12-17 19:27:42 -05:00			`USE: compiler`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`! http://inferno.bell-labs.com/cm/cs/who/bwk/interps/pap.html`

			`: string-step ( n str -- )`
			`2dup str-length > [`
make-string and make-list replace <> and [, ,] 2004-11-11 15:15:43 -05:00			`dup [ "123" , , "456" , , "789" , ] make-string`
code cleanups 2004-12-10 21:39:27 -05:00			`dup dup str-length 2 /i 0 swap rot substring`
			`swap dup str-length 2 /i succ 1 swap rot substring cat2`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00			`string-step`
			`] [`
			`2drop`
compiler does tail call optimization 2004-12-17 19:27:42 -05:00			`] ifte ; compiled`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`: string-benchmark ( n -- )`
compiler does tail call optimization 2004-12-17 19:27:42 -05:00			`"abcdef" 10 [ 2dup string-step ] times 2drop ; compiled`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`[ ] [ 1000000 string-benchmark ] unit-test`