You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
901 B
69 lines
901 B
(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))
|
|
)
|