From 8b6e3eab622d6fc3251189b2adb732dc78bedcec Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 13 Jul 2012 15:15:26 -0700
Subject: [PATCH] benchmark.dlists: adding a dlist benchmark.

---
 extra/benchmark/dlists/dlists.factor | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 extra/benchmark/dlists/dlists.factor

diff --git a/extra/benchmark/dlists/dlists.factor b/extra/benchmark/dlists/dlists.factor
new file mode 100644
index 0000000000..04c2acfd59
--- /dev/null
+++ b/extra/benchmark/dlists/dlists.factor
@@ -0,0 +1,12 @@
+! 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