factor/extra/benchmark/gc1/gc1.factor

9 lines
205 B
Factor
Raw Normal View History

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
2010-01-14 13:08:22 -05:00
: gc1 ( -- ) 600000 iota [ >bignum 1 + ] map drop ;
2009-04-24 01:12:23 -04:00
MAIN: gc1