advance ( system dt -- )


Vocabulary
benchmark.nbody

Inputs
systeman object
dtan object


Outputs
None

Definition
USING: accessors kernel sequences ;

IN: benchmark.nbody

: advance ( system dt -- )
[ bodies>> ] dip
[ [ update-velocity ] curry [ drop ] each-pair ]
[ [ update-position ] curry each ] 2bi ; inline