Add benchmark.gc1

2009-04-24 00:12:23 -05:00 · 2009-04-24 00:12:23 -05:00 · 00b6107d3b
parent 04c6e8fcf8
commit 00b6107d3b
2 changed files with 9 additions and 0 deletions
--- a/extra/benchmark/gc1/authors.txt
+++ b/extra/benchmark/gc1/authors.txt
@ -0,0 +1 @@
+Slava Pestov
--- a/extra/benchmark/gc1/gc1.factor
+++ 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