(simd-vdot) ( a b rep -- n )

Vocabulary

math.vectors.simd.intrinsics

Inputs

a	an object
b	an object
rep	an object

Outputs

n

an object

Definition

USING: cpu.architecture kernel math
math.vectors.simd.intrinsics.private ranges sequences
sequences.private ;

IN: math.vectors.simd.intrinsics

: (simd-vdot) ( a b rep -- n )
    [ 2byte>rep-array [ [ first ] bi@ * ] 2keep ] keep
    1 swap rep-length [a..b)
    [ [ swap nth-unsafe ] curry bi@ * + ] 2with each ;