2012-07-13 18:15:26 -04:00
|
|
|
! Copyright (C) 2012 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: deques dlists kernel math sequences ;
|
|
|
|
|
IN: benchmark.dlists
|
|
|
|
|
|
|
|
|
|
: dlists-benchmark ( -- )
|
2017-06-01 17:59:35 -04:00
|
|
|
5,000 <iota> [
|
|
|
|
|
[ <iota> 0 swap >dlist [ + ] slurp-deque ]
|
2012-07-13 18:15:26 -04:00
|
|
|
[ dup 1 - * 2 / ] bi assert=
|
|
|
|
|
] each ;
|
|
|
|
|
|
|
|
|
|
MAIN: dlists-benchmark
|
