(simd-vs*) ( 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: alien.c-types cpu.architecture kernel math
math.vectors.simd.intrinsics.private ;

IN: math.vectors.simd.intrinsics

: (simd-vs*) ( a b rep -- c )
    dup rep-component-type [ [ * ] ] dip [ c-type-clamp ] curry
    compose components-2map ;