benchmarks/timebench1.lisp

   1 (progn
   2   (format t "~%pi")
   3   (time (setf (long-float-digits) 3322))
   4   (time pi)
   5 )
   6
   7 (progn
   8   (format t "~%gamma not yet implemented in CLISP")
   9 )
  10
  11 (progn
  12   (format t "~%e")
  13   (time (exp 1L0))
  14 )
  15
  16 (progn
  17   (format t "~%sqrt(3)")
  18   (time (sqrt 3L0))
  19 )
  20
  21 (progn
  22   (format t "~%exp(log(2))")
  23   (time (exp (log 2L0)))
  24 )
  25
  26 (progn
  27   (format t "~%log(exp(2))")
  28   (time (log (exp 2L0)))
  29 )
  30
  31 (progn
  32   (format t "~%sin(pi/3)")
  33   (time (sin (/ pi 3)))
  34 )
  35
  36 (progn
  37   (format t "~%cos(pi/3)")
  38   (time (cos (/ pi 3)))
  39 )
  40
  41 (progn
  42   (format t "~%arcsin(sqrt(3)/2)")
  43   (time (asin (/ (sqrt 3L0) 2)))
  44 )
  45
  46 (progn
  47   (format t "~%arccos(sqrt(3)/2)")
  48   (time (acos (/ (sqrt 3L0) 2)))
  49 )
  50
  51 (progn
  52   (format t "~%sinh(log(2))")
  53   (time (sinh (log 2L0)))
  54 )
  55
  56 (progn
  57   (format t "~%cosh(log(2))")
  58   (time (cosh (log 2L0)))
  59 )
  60
  61 (progn
  62   (format t "~%arsinh(pi)")
  63   (time (asinh pi))
  64 )
  65
  66 (progn
  67   (format t "~%arcosh(pi)")
  68   (time (acosh pi))
  69 )