Add benchmark.gc1

diff --git a/extra/benchmark/gc1/authors.txt b/extra/benchmark/gc1/authors.txt
new file mode 100644 (file)
index 0000000..d4f5d6b
--- /dev/null
+++ b/extra/benchmark/gc1/authors.txt
@@ -0,0 +1 @@
+Slava Pestov
\ No newline at end of file

diff --git a/extra/benchmark/gc1/gc1.factor b/extra/benchmark/gc1/gc1.factor
new file mode 100644 (file)
index 0000000..d201a08
--- /dev/null
+++ b/extra/benchmark/gc1/gc1.factor
@@ -0,0 +1,8 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: math sequences kernel ;
+IN: benchmark.gc1
+
+: gc1 ( -- ) 6000000 [ >bignum 1+ ] map drop ;
+
+MAIN: gc1
\ No newline at end of file