cfrac-a ( n cfrac -- a )


Vocabulary
rosetta-code.continued-fraction

Inputs
nan object
cfracan object


Outputs
aan object


Definition
IN: rosetta-code.continued-fraction

GENERIC: cfrac-a ( n cfrac -- a )


Methods
USING: combinators kernel math rosetta-code.continued-fraction ;

M: napier cfrac-a drop { { 1 [ 2 ] } [ 1 - ] } case ;


USING: combinators kernel rosetta-code.continued-fraction ;

M: pi cfrac-a drop { { 1 [ 3 ] } [ drop 6 ] } case ;


USING: combinators kernel rosetta-code.continued-fraction ;

M: sqrt2 cfrac-a drop { { 1 [ 1 ] } [ drop 2 ] } case ;