1 changed files with 69 additions and 0 deletions
@ -0,0 +1,69 @@ |
|||
(progn |
|||
(format t "~%pi") |
|||
(time (setf (long-float-digits) 3322)) |
|||
(time pi) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%gamma not yet implemented in CLISP") |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%e") |
|||
(time (exp 1L0)) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%sqrt(3)") |
|||
(time (sqrt 3L0)) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%exp(log(2))") |
|||
(time (exp (log 2L0))) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%log(exp(2))") |
|||
(time (log (exp 2L0))) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%sin(pi/3)") |
|||
(time (sin (/ pi 3))) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%cos(pi/3)") |
|||
(time (cos (/ pi 3))) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%arcsin(sqrt(3)/2)") |
|||
(time (asin (/ (sqrt 3L0) 2))) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%arccos(sqrt(3)/2)") |
|||
(time (acos (/ (sqrt 3L0) 2))) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%sinh(log(2))") |
|||
(time (sinh (log 2L0))) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%cosh(log(2))") |
|||
(time (cosh (log 2L0))) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%arsinh(pi)") |
|||
(time (asinh pi)) |
|||
) |
|||
|
|||
(progn |
|||
(format t "~%arcosh(pi)") |
|||
(time (acosh pi)) |
|||
) |
Reference in new issue
xxxxxxxxxx