gen-x ( x -- matrix )


Vocabulary
benchmark.pidigits

Inputs
xan object


Outputs
matrixan object


Definition
USING: kernel math ;

IN: benchmark.pidigits

: gen-x ( x -- matrix ) dup 2 * 1 + [ 2 * 0 ] keep >matrix ;