ax/xb ( ax xb -- z/f )


Vocabulary
project-euler.033.private

Inputs
axan object
xban object


Outputs
z/fan object


Definition
USING: kernel math ;

IN: project-euler.033.private

: ax/xb ( ax xb -- z/f )
2dup safe? [ [ 10 /mod ] bi@ 2nip / ] [ 2drop f ] if ;