factor/extra/benchmark/splitting/splitting.factor

USING: kernel math sequences splitting ;
IN: benchmark.splitting

: test-data ( -- seq seps )
    1000 <iota> dup [ 10 /i zero? ] filter ; ! not inline to prevent type inference

: splitting-benchmark ( -- )
    test-data 2,000 [
        over [ even? ] split-when-slice drop
        2dup split-slice drop
    ] times 2drop ;

MAIN: splitting-benchmark
benchmark.splitting: adding a splitting benchmark. 2013-03-27 19:12:08 -04:00			`USING: kernel math sequences splitting ;`
			`IN: benchmark.splitting`

benchmark.splitting: stop using split* and use slices only. 2013-04-01 13:26:43 -04:00			`: test-data ( -- seq seps )`
core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota-tuple ... ; 2017-06-01 17:59:35 -04:00			`1000 <iota> dup [ 10 /i zero? ] filter ; ! not inline to prevent type inference`
benchmark.splitting: adding a splitting benchmark. 2013-03-27 19:12:08 -04:00
			`: splitting-benchmark ( -- )`
benchmark.splitting: stop using split* and use slices only. 2013-04-01 13:26:43 -04:00			`test-data 2,000 [`
benchmark.splitting: adding a splitting benchmark. 2013-03-27 19:12:08 -04:00			`over [ even? ] split-when-slice drop`
benchmark.splitting: stop using split* and use slices only. 2013-04-01 13:26:43 -04:00			`2dup split-slice drop`
benchmark.splitting: adding a splitting benchmark. 2013-03-27 19:12:08 -04:00			`] times 2drop ;`

			`MAIN: splitting-benchmark`