safe? ( ax xb -- ? )

Vocabulary

project-euler.033.private

Inputs

ax	an object
xb	an object

Outputs

?

an object

Definition

USING: kernel math ;

IN: project-euler.033.private

: safe? ( ax xb -- ? )
    [ 10 /mod ] bi@ [ = ] dip zero? not and nip ;