each-pair ( ... bodies pair-quot: ( ... other-body body -- ... ) each-quot: ( ... body -- ... ) -- ... )

Vocabulary

benchmark.nbody

Inputs

bodies	an object
pair-quot	a quotation with stack effect ( ... other-body body -- ... )
each-quot	a quotation with stack effect ( ... body -- ... )

Outputs

None

Definition

USING: kernel math sequences ;

IN: benchmark.nbody

:: each-pair
    ( ... bodies pair-quot: ( ... other-body body -- ... ) each-quot: ( ... body -- ... ) -- ... )
    bodies [| body i |
        body each-quot call bodies i 1 + tail-slice
        [ body pair-quot call ] each
    ] each-index ; inline