benchmark.continuations: more continuations.
parent
52fab586be
commit
a206daacde
|
@ -2,6 +2,6 @@ USING: math kernel continuations ;
|
||||||
IN: benchmark.continuations
|
IN: benchmark.continuations
|
||||||
|
|
||||||
: continuations-benchmark ( -- )
|
: continuations-benchmark ( -- )
|
||||||
100000 [ drop [ continue ] callcc0 ] each-integer ;
|
1,000,000 [ drop [ continue ] callcc0 ] each-integer ;
|
||||||
|
|
||||||
MAIN: continuations-benchmark
|
MAIN: continuations-benchmark
|
||||||
|
|
Loading…
Reference in New Issue