RosettaCodeData/Task/Continued-fraction/Maple/continued-fraction.maple
2017-09-25 22:28:19 +02:00

4 lines
114 B
Text

contfrac:=n->evalf(Value(NumberTheory:-ContinuedFraction(n)));
contfrac(2^(0.5));
contfrac(Pi);
contfrac(exp(1));