[pure-lang-svn] SF.net SVN: pure-lang: [331] pure/trunk/lib/math.pure

[<ag...@us...>]

Revision: 331
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=331&view=rev
Author:   agraef
Date:     2008-06-28 13:05:34 -0700 (Sat, 28 Jun 2008)

Log Message:
-----------
Add pi constant.

Modified Paths:
--------------
    pure/trunk/lib/math.pure

Modified: pure/trunk/lib/math.pure
===================================================================
--- pure/trunk/lib/math.pure	2008-06-28 19:48:33 UTC (rev 330)
+++ pure/trunk/lib/math.pure	2008-06-28 20:05:34 UTC (rev 331)
@@ -65,6 +65,8 @@
 atan2 x::int y::double | atan2 x::bigint y::double = atan2 (double x) y;
 atan2 x::double y::int | atan2 x::double y::bigint = atan2 x (double y);
 
+def pi = 4.0*atan 1.0;
+
 /* Exponential function and logarithms. */
 
 extern double exp(double), double log(double) = c_log;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.