26 lines
609 B
Factor
26 lines
609 B
Factor
|
USING: concurrency kernel tools.time math sequences ;
|
||
|
|
IN: benchmark.ring
|
||
|
|
|
||
|
|
SYMBOL: done
|
||
|
|
|
||
|
|
: tunnel ( process -- process )
|
||
|
|
receive 2dup swap send done eq? [ tunnel ] unless ;
|
||
|
|
|
||
|
|
: create-ring ( processes -- target )
|
||
|
|
self swap [ [ tunnel ] spawn nip ] times ;
|
||
|
|
|
||
|
|
: send-messages ( messages target -- )
|
||
|
|
dupd [ send ] curry each [ receive drop ] times ;
|
||
|
|
|
||
|
|
: destroy-ring ( target -- )
|
||
|
|
done swap send [ done eq? ] receive-if drop ;
|
||
|
|
|
||
|
|
: ring-bench ( messages processes -- )
|
||
|
|
create-ring [ send-messages ] keep destroy-ring ;
|
||
|
|
|
||
|
|
: main-ring-bench ( -- )
|
||
|
|
1000 1000 ring-bench ;
|
||
|
|
|
||
|
|
MAIN: main-ring-bench
|
||
|
|
|