add benchmark function

2019-07-18 12:16:24 +02:00
parent e8713f34ae
commit ad941de3a1
2 changed files with 14 additions and 1 deletions
--- a/examples/dejong.lisp
+++ b/examples/dejong.lisp
@@ -25,5 +25,11 @@
      (2 1)
    )
  )
-  (dejong 1280 1.6 -2.3 2.4 -2.1)
+  (benchmark (lambda ()
+    (dejong 12800 
+      (random -2 2)
+      (random -2 2)
+      (random -2 2)
+      (random -2 2) 
+  )))
 )