picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 644bd965dfb3255ce28edc25006d690d1bd6458b
parent 1bc1ab9fcfe5bee18af6897c34f4eb734f55eff9
Author: Commit-Bot <unknown>
Date:   Sat, 26 Jun 2010 09:25:01 +0000

Automatic commit from picoLisp.tgz, From: Sat, 26 Jun 2010 09:25:01 GMT
Diffstat:
Mlib/math.l | 13++++++++-----
Alib/pi1k.txt | 1+
Msrc64/version.l | 4++--
3 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/lib/math.l b/lib/math.l @@ -1,10 +1,13 @@ -# 18mar10abu +# 26jun10abu # (c) Software Lab. Alexander Burger -(and (=0 *Scl) (scl 6)) # Default scale 6 -(setq # Global constants - pi 3.1415926535897931 - pi/2 1.5707963267948966 ) +(and (=0 *Scl) (scl 6)) # Default scale 6 + +# Global constants +(let P (make (in "@lib/pi1k.txt" (do (+ *Scl 4) (link (char))))) + (setq + pi (format P *Scl) + pi/2 (*/ (format P (inc *Scl)) 20) ) ) (load (if (== 64 64) "@lib/math64.l" "@lib/math32.l")) diff --git a/lib/pi1k.txt b/lib/pi1k.txt @@ -0,0 +1 @@ +3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989 diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 25jun10abu +# 26jun10abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 2 35) +(de *Version 3 0 2 36) # vi:et:ts=3:sw=3