safe? ( z n -- ? )


Vocabulary
benchmark.pidigits

Inputs
zan object
nan object


Outputs
?an object


Definition
USING: kernel ;

IN: benchmark.pidigits

: safe? ( z n -- ? ) [ 4 extract ] dip = ;