From 7f7cb5cdf9b1c0b391be1d397240cc8228a8efc8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 20 Apr 2012 10:41:50 -0700
Subject: [PATCH] benchmark.make: adding a simple make benchmark.

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

diff --git a/extra/benchmark/make/make.factor b/extra/benchmark/make/make.factor
new file mode 100644
index 0000000000..f38e0660e4
--- /dev/null
+++ b/extra/benchmark/make/make.factor
@@ -0,0 +1,21 @@
+! Copyright (C) 2012 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: kernel make math sequences ;
+
+IN: benchmark.make
+
+: make-strings ( n -- seq )
+    [ [ CHAR: a , ] times ] "" make ;
+
+: make-arrays ( n -- seq )
+    [ iota [ , ] each ] { } make ;
+
+: make-vectors ( n -- seq )
+    [ iota [ , ] each ] V{ } make ;
+
+: make-benchmark ( -- )
+    5,000 iota [
+        [ make-strings ] [ make-arrays ] [ make-vectors ] tri
+        3drop
+    ] each ;