added criterium example to user ns

soulspace-org · May 30, 2024 · 6f154c7 · 6f154c7
1 parent 2981c2c
commit 6f154c7
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/dev/user.clj b/dev/user.clj
@@ -25,6 +25,15 @@
   (portal/close)
   (portal/docs))
 
+;;;
+;;; Criterium
+;;; 
+(comment
+  (require '[criterium.core :as criterium])
+  (criterium/bench (Thread/sleep 1000))
+  (criterium/quick-bench (Thread/sleep 1000))
+  )
+
 ;;;
 ;;; Expound spec tool
 ;;;
@@ -40,4 +49,3 @@
   (decompile (fn [] (println "Hello, World!")))
   (disassemble (fn [] (println "Hello, World!")))
   )
-