2009-04-24 01:12:23 -04:00
|
|
|
! Copyright (C) 2009 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: math sequences kernel ;
|
|
|
|
|
IN: benchmark.gc1
|
|
|
|
|
|
2009-09-13 01:54:04 -04:00
|
|
|
: gc1 ( -- ) 10 [ 600000 [ >bignum 1 + ] map drop ] times ;
|
2009-04-24 01:12:23 -04:00
|
|
|
|
2009-08-13 20:21:44 -04:00
|
|
|
MAIN: gc1
|
