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

Vocabulary

project-euler.033.private

Inputs

ax	an object
xb	an object

Outputs

z/f

an 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 ;