q* ( u v -- u*v )

Vocabulary

jamshred.oint.private

Inputs

u	an object
v	an object

Outputs

u*v

an object

Definition

USING: arrays kernel ;

IN: jamshred.oint.private

: q* ( u v -- u*v ) [ q*a ] [ q*b ] 2bi 2array ;