(simd-v+-) ( a b rep -- c )

Vocabulary

math.vectors.simd.intrinsics

Inputs

a	an object
b	an object
rep	an object

Outputs

c

an object

Definition

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

IN: math.vectors.simd.intrinsics

:: (simd-v+-) ( a b rep -- c )
    a b rep 2byte>rep-array
    :> ( a' b' ) rep <rep-array> :> c' 0 rep rep-length
    [ 1 - 2 <range> ] [ 2 /i ] bi [| n |
        n a' nth-unsafe n b' nth-unsafe - n c' set-nth-unsafe
        n 1 + a' nth-unsafe n 1 + b' nth-unsafe + n 1 +
        c' set-nth-unsafe
    ] unrolled-each-unsafe c' underlying>> ;