benchmark-multiple ( els: ( -- .. ) op: ( .. -- .. ) n -- ..arr )

Vocabulary

tensors.benchmark

Inputs

els	a quotation with stack effect ( -- .. )
op	a quotation with stack effect ( .. -- .. )
n	an object

Outputs

None

Definition

USING: arrays kernel math memory sequences tools.time ;

IN: tensors.benchmark

:: benchmark-multiple
    ( els: ( -- .. ) op: ( .. -- .. ) n -- ..arr )
    els call n 0 <array> :> arr n
    [ gc [ op benchmark ] dip arr set-nth ] each-integer arr ;
    inline