13 lines
329 B
Factor
13 lines
329 B
Factor
! 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 ( -- )
|
|
5,000 iota [
|
|
[ iota 0 swap >dlist [ + ] slurp-deque ]
|
|
[ dup 1 - * 2 / ] bi assert=
|
|
] each ;
|
|
|
|
MAIN: dlists-benchmark
|