udp-echo ( #times #bytes -- )


Vocabulary
benchmark.udp-echo0

Inputs
#timesan object
#bytesan object


Outputs
None

Definition
USING: destructors endian io.sockets kernel sequences ;

IN: benchmark.udp-echo0

: udp-echo ( #times #bytes -- )
[ >be ] curry [ [ <iota> ] curry ] dip [
map "127.0.0.1" 0 <inet4>
<datagram> &dispose "127.0.0.1" 0 <inet4>
<datagram> &dispose [ send/recv ] 2curry each
] curry compose with-destructors ;