tuple-arrays-benchmark ( -- )

Vocabulary

benchmark.tuple-arrays

Inputs

None

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: benchmark.tuple-arrays

: tuple-arrays-benchmark ( -- )
    1000 <iota> [
        drop 5000 <point-array> [
            [ 1 + ] change-x [ 1 - ] change-y
            [ 1 + 2 / ] change-z
        ] map [ z>> ] map-sum
    ] map-sum 2500000.0 assert= ;