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


Vocabulary
benchmark.nbody

Inputs
bodiesan object
pair-quota quotation with stack effect ( ... other-body body -- ... )
each-quota quotation with stack effect ( ... body -- ... )


Outputs
None

Definition


:: 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