benchmark.make: adding a simple make benchmark.

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 ;