create-cont-frac ( n -- n cont-frac )

Vocabulary

project-euler.064.private

Inputs

n

an object

Outputs

n	an object
cont-frac	an object

Definition

USING: kernel math math.functions ;

IN: project-euler.064.private

: create-cont-frac ( n -- n cont-frac )
    dup sqrt >fixnum dup 1 <cont-frac> ;