benchmark.gc1: reduce memory usage
parent
3a4ac18fac
commit
3e02ba454e
|
@ -3,6 +3,6 @@
|
||||||
USING: math sequences kernel ;
|
USING: math sequences kernel ;
|
||||||
IN: benchmark.gc1
|
IN: benchmark.gc1
|
||||||
|
|
||||||
: gc1 ( -- ) 6000000 [ >bignum 1 + ] map drop ;
|
: gc1 ( -- ) 10 [ 600000 [ >bignum 1 + ] map drop ] times ;
|
||||||
|
|
||||||
MAIN: gc1
|
MAIN: gc1
|
||||||
|
|
Loading…
Reference in New Issue