Continued fraction/Arithmetic/Construct from rational number: Difference between revisions
Content added Content deleted
(RPL: add) |
m (RPL: add section) |
||
Line 4,177: | Line 4,177: | ||
{{in}} |
{{in}} |
||
<pre> |
<pre> |
||
≪ { '1/2' '3' '23/8' '13/11' '22/7' '-151/77' '14142/10000' '141421/100000' '1414214/1000000' '14142136/10000000' '31/10' '314/100' '3142/1000' '31428/10000' '314285/100000' '3142857/1000000' '31428571/10000000' '314285714/100000000' } → fracs |
|||
≪ 1 100 FOR li "" li DUP 19 + FOR j "-0+" j MU 2 + DUP SUB + NEXT 20 STEP ≫ EVAL |
|||
≪ {} 1 fracs SIZE FOR j fracs j GET RC2F + NEXT ≫ ≫ EVAL |
|||
</pre> |
</pre> |
||
{{out}} |
{{out}} |