split ( fr -- k fr' )

Vocabulary

project-euler.064.private

Inputs

fr

an object

Outputs

k	an object
fr'	an object

Definition

USING: kernel math math.functions ;

IN: project-euler.064.private

:: split ( fr -- k fr' )
    fr >cfrac< :> ( n a b ) n sqrt a + b /i dup n swap b *
    a swap - b <cfrac> ;