factor/extra/benchmark/continuations/continuations.factor

8 lines
167 B
Factor

USING: math kernel continuations ;
IN: benchmark.continuations
: continuations-main
100000 [ drop [ continue ] callcc0 ] each-integer ;
MAIN: continuations-main