(simd-vavg) ( 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: kernel math math.vectors.simd.intrinsics.private ;

IN: math.vectors.simd.intrinsics

: (simd-vavg) ( a b rep -- c )
    [ + dup integer? [ 1 + -1 shift ] [ 0.5 * ] if ]
    components-2map ;