extra/benchmark/gc3/gc3.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math.parser sequences kernel assocs hashtables ;
   4 IN: benchmark.gc3
   5
   6 : gc3-benchmark ( -- )
   7     1000000 <iota>
   8     1000000 <hashtable>
   9     '[ [ number>string ] keep _ set-at ] each ;
  10
  11 MAIN: gc3-benchmark