v>q ( v -- q )

Vocabulary

jamshred.oint.private

Inputs

v

an object

Outputs

q

an object

Definition

USING: arrays kernel math sequences ;

IN: jamshred.oint.private

: v>q ( v -- q ) first3 rect> [ 0 swap rect> ] dip 2array ;