decimalize ( rational prec -- string )


Vocabulary
rosetta-code.continued-fraction

Inputs
rationalan object
precan object


Outputs
stringan object


Definition
USING: arrays kernel math math.functions prettyprint sequences ;

IN: rosetta-code.continued-fraction

:: decimalize ( rational prec -- string )
rational 1 /mod prec 10^ * [ >integer unparse ] bi@
:> fraction "." prec fraction length - dup 0 <
[ drop 0 ] when "0" <repetition> concat fraction 4array
concat ;