find-period ( n -- period )

Vocabulary

project-euler.064.private

Inputs

n

an object

Outputs

period

an object

Definition

USING: kernel ;

IN: project-euler.064.private

: find-period ( n -- period )
    0 swap create-cont-frac step deep-copy -rot loop drop drop
    drop ;