benchmark.dlists: adding a dlist benchmark.

2012-07-13 15:15:26 -07:00 · 2012-07-13 15:15:26 -07:00 · 8b6e3eab62
parent 9f56eb6981
commit 8b6e3eab62
1 changed files with 12 additions and 0 deletions
--- a/extra/benchmark/dlists/dlists.factor
+++ 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