RosettaCodeData/Task/Continued-fraction/Maple/continued-fraction.maple

5 lines
114 B
Plaintext

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