8 lines
199 B
Factor
8 lines
199 B
Factor
|
! 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
|