picolisp

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

math.l (300B)

      1 # 26jun10abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (and (=0 *Scl) (scl 6))                # Default scale 6
      5 
      6 (setq                                  # Global constants
      7    pi    3.1415926535897932
      8    pi/2  1.5707963267948966 )
      9 
     10 (load (if (== 64 64) "@lib/math64.l" "@lib/math32.l"))
     11 
     12 # vi:et:ts=3:sw=3