reciprocal ( fr -- fr' )

Vocabulary

project-euler.064.private

Inputs

fr

an object

Outputs

fr'

an object

Definition

USING: math ;

IN: project-euler.064.private

:: reciprocal ( fr -- fr' )
    fr >cfrac< :> ( n a b ) n a neg n a sq - b / <cfrac> ;