From: Bruno Haible <bruno@clisp.org>
Date: Mon, 2 Aug 2004 17:40:29 +0000 (+0000)
Subject: Moved here from timebench1.lsp.
X-Git-Tag: cln_1-1-9~27
X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=commitdiff_plain;h=7f511d0bbe8020509d0fc2a707145da94fb94a54;p=cln.git

Moved here from timebench1.lsp.
---

diff --git a/benchmarks/timebench1.lisp b/benchmarks/timebench1.lisp
new file mode 100644
index 0000000..77dea48
--- /dev/null
+++ b/benchmarks/timebench1.lisp
@@ -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))
+)