/usr/web/sources/contrib/fgb/root/sys/src/cmd/4th/lib/fpconst.4th

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fgb/root/sys/src/cmd/4th/lib/fpconst.4th


\ 0: Initial release 11/07/2002, Brad Eckert
\ 1: Made 4tH version, Hans Bezemer

[UNDEFINED] PI [IF]
[UNDEFINED] >FLOAT [IF] [ABORT] [THEN]
: PI  ( r -- ) s" 3.1415926535897932384626433832795" s>float ;
: E   ( r -- ) s" 2.7182818284590452353602874713527" s>float ;
[THEN]

(Return to Plan 9 Home Page)