1 ! Copyright (C) 2012 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: deques dlists kernel math sequences ;
6 : dlists-benchmark ( -- )
8 [ iota 0 swap >dlist [ + ] slurp-deque ]
9 [ dup 1 - * 2 / ] bi assert=
12 MAIN: dlists-benchmark