steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark: update gc1 and add new gc3 benchmark

Slava Pestov 2009-10-14 04:59:48 -05:00
parent e89d037c3f
commit 39c971f8c4
3 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/gc1/gc1.factor
View File

@ -3,6 +3,6 @@
USING: math sequences kernel ; USING: math sequences kernel ;
IN: benchmark.gc1 IN: benchmark.gc1
: gc1 ( -- ) 10 [ 600000 [ >bignum 1 + ] map drop ] times ; : gc1 ( -- ) 600000 [ >bignum 1 + ] map drop ;
MAIN: gc1 MAIN: gc1

1
extra/benchmark/gc3/authors.txt Normal file
View File

@ -0,0 +1 @@
Slava Pestov

11
extra/benchmark/gc3/gc3.factor Normal file
View File

@ -0,0 +1,11 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: math.parser fry sequences kernel assocs hashtables ;
IN: benchmark.gc3
: gc3 ( -- )
1000000 iota
1000000 <hashtable>
'[ [ number>string ] keep _ set-at ] each ;
MAIN: gc3