main ( -- )

Vocabulary

rosetta-code.continued-fraction.private

Inputs

None

Outputs

None

Definition

USING: io rosetta-code.continued-fraction ;

IN: rosetta-code.continued-fraction.private

: main ( -- )
    " Square root of 2: " write sqrt2 50 cfrac-estimate
    30 decimalize print "Napier's constant: " write
    napier 50 cfrac-estimate 30 decimalize print
    "               Pi: " write pi 950 cfrac-estimate
    10 decimalize print ;