produce ( z y -- z' )

Vocabulary

benchmark.pidigits

Inputs

z	an object
y	an object

Outputs

z'

an object

Definition

USING: kernel math math.matrices ;

IN: benchmark.pidigits

: produce ( z y -- z' ) [ 10 ] dip -10 * 0 1 >matrix swap mdot ;