Commit c62e5c49 authored by Ivar Refsdal's avatar Ivar Refsdal

Add stats to README

parent efebf5c8
Pipeline #1788 skipped
# clojure-pprint-performance
$ lein run
start pr-str ...
"Elapsed time: 1381.265966 msecs"
start clojure pprint ...
"Elapsed time: 120199.045361 msecs"
start fipp pprint ...
"Elapsed time: 95910.25883 msecs"
done
......@@ -3,11 +3,9 @@
[clojure.pprint :as clojure.pprint]
[fipp.clojure :as fipp]))
(println "reading input ... ")
(def input-file (if (.exists (io/as-file "project.clj")) "sample.input.bin" "../../sample.input.bin"))
(def original-input (time (read-string (slurp input-file))))
(def original-input (read-string (slurp input-file)))
(println "start pr-str ...")
(time
......@@ -19,7 +17,6 @@
(.close fout))))))
(println "start clojure pprint ...")
(time
(let [fout (io/writer "clojure.pprint.out.bin")]
(try
......@@ -37,4 +34,5 @@
(finally
(.close fout))))))
(println "done")
\ No newline at end of file
(defn -main []
(println "done"))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment