factor/library/test/benchmark/hashtables.factor

USE: strings
USE: kernel
USE: math
USE: test
USE: unparser
USE: hashtables
USE: compiler

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

: store-hash ( hashtable n -- )
    [ [ dup >hex swap pick set-hash ] keep ] repeat drop ; compiled

: lookup-hash ( hashtable n -- )
    [ [ unparse over hash drop ] keep ] repeat drop ; compiled

: hashtable-benchmark ( n -- )
    60000 <hashtable> swap 2dup store-hash lookup-hash ; compiled

[ ] [ 80000 hashtable-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`
			`USE: unparser`
			`USE: hashtables`
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`

			`: store-hash ( hashtable n -- )`
removed times*, use repeat instead 2005-01-23 16:47:28 -05:00			`[ [ dup >hex swap pick set-hash ] keep ] repeat drop ; compiled`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`: lookup-hash ( hashtable n -- )`
removed times*, use repeat instead 2005-01-23 16:47:28 -05:00			`[ [ unparse over hash drop ] keep ] repeat drop ; compiled`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`: hashtable-benchmark ( n -- )`
compiler does tail call optimization 2004-12-17 19:27:42 -05:00			`60000 <hashtable> swap 2dup store-hash lookup-hash ; compiled`
some cleanups and benchmarks 2004-10-27 21:21:31 -04:00
			`[ ] [ 80000 hashtable-benchmark ] unit-test`