extra/benchmark/gc1/gc1.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math sequences kernel ;
   4 IN: benchmark.gc1
   5
   6 : gc1 ( -- ) 6000000 [ >bignum 1 + ] map drop ;
   7
   8 MAIN: gc1