pidigits ( n -- )

Vocabulary

benchmark.pidigits

Inputs

n

an object

Outputs

None

Definition

USING: kernel ;

IN: benchmark.pidigits

: pidigits ( n -- )
    [ 1 { { 1 0 } { 0 1 } } ] dip 0 0 (pidigits) ;