map-columns ( ... a quot: ( ... col -- ... newcol ) -- ... c )

Vocabulary

math.matrices.simd.private

Inputs

a	an object
quot	a quotation with stack effect ( ... col -- ... newcol )

Outputs

c

an object

Definition

USING: generalizations kernel ;

IN: math.matrices.simd.private

: map-columns
    ( ... a quot: ( ... col -- ... newcol ) -- ... c )
    [ [ columns ] ] dip [ 4 napply ] curry compose make-matrix4
    ; inline