<nbody-system> ( -- system )

Vocabulary

benchmark.nbody

Inputs

None

Outputs

system

an object

Definition

USING: accessors combinators.smart kernel ;

IN: benchmark.nbody

: <nbody-system> ( -- system )
    [ <sun> <jupiter> <saturn> <uranus> <neptune> ] output>array
    nbody-system boa dup bodies>> init-bodies ; inline