pow-5-factor ( x -- y )

Vocabulary

ryu.private

Inputs

x

an object

Outputs

y

an object

Definition

USING: kernel math ;

IN: ryu.private

:: pow-5-factor ( x -- y )
    x f 0
    [ 2dup x > or ]
    [ [ 5 /mod ] 2dip rot zero? [ 1 + ] [ nip dupd ] if ] until
    2nip ; inline