Arbitrary_Precision.red 258 B

123456789101112131415161718
  1. %%%%%%%%%%%%%%%%%%%%%
  2. % ARBITRARY PRECISION
  3. %%%%%%%%%%%%%%%%%%%%%
  4. % Use real arithmetic
  5. on rounded$
  6. % Set precision to 50 digits
  7. precision(50)$
  8. % Print Pi
  9. pi;
  10. % Set precision back to default (12)
  11. precision(12)$
  12. % Restore precise arithmetic
  13. off rounded$