| {:paths ["."] :deps {robert/hooke {:mvn/version "1.3.0"} | |
| com.taoensso/tufte {:mvn/version "2.4.5"}}} |
| (defn defns-- | |
| "Makes all private fns | |
| in the namespace with the | |
| given name public" | |
| [namespace-name] | |
| (doseq [[_ v] | |
| (filter | |
| (fn [[_ x]] | |
| (if (var? x) (-> x meta :ns ns-name #{namespace-name}) false)) | |
| (ns-map namespace-name))] |
| ; create attributes p and q, where p is unique identity | |
| (d/transact edb1 {:tx-data [{:db/ident :p :db/cardinality :db.cardinality/one :db/valueType :db.type/keyword :db/unique :db.unique/identity}]}) | |
| => | |
| (d/transact edb1 {:tx-data [{:db/ident :q :db/cardinality :db.cardinality/one :db/valueType :db.type/keyword}]}) | |
| => | |
| ; now add a datum | |
| (d/transact edb1 {:tx-data [{:p :a1 :q :x}]}) |
| (defn make-attr-test [conn] | |
| (let [tx | |
| [ | |
| {:db/ident :y :db/cardinality :db.cardinality/many :db/valueType :db.type/ref :db/isComponent true} | |
| {:db/ident :ya :db/cardinality :db.cardinality/one :db/valueType :db.type/keyword} | |
| {:db/ident :yb :db/cardinality :db.cardinality/one :db/valueType :db.type/string} | |
| ]] | |
| (d/transact conn {:tx-data tx}))) | |
| (defn add-test-data [conn] |
| (defn add [x y] (+ x y))=> #'user/add(defn addm [{x :x y :y}] (+ x y))=> #'user/addm(reduce (fn [r i] (addm {:x r :y i})) 0 (range 128))=> 8128(quick-bench (reduce (fn [r i] (add r i)) 0 (range 128)))Evaluation count : 270720 in 6 samples of 45120 calls. Execution time mean : 2.212768 µs Execution time std-deviation : 76.515990 ns Execution time lower quantile : 2.130557 µs ( 2.5%) Execution time upper quantile : 2.336060 µs (97.5%) Overhead used : 1.902301 nsFound 1 outliers in 6 samples (16.6667 %) low-severe 1 (16.6667 %) Variance from outliers : 13.8889 % Variance is moderately inflated by outliers=> nil(quick-bench (reduce (fn [r i] (add r i)) 0 (range 128)))Evaluation count : 265158 in 6 samples of 44193 calls. Execution time mean : 2.323233 µs Execution time std-deviation : 176.530052 ns Execution time lower quantile : 2.223932 µs ( 2.5%) Execution time upper quantile : 2.626066 µs (97.5%) Overhead used : 1.902301 nsFound 1 outl |
| (defn collatz [i] (if (even? i) (/ i 2) (+ 1 (* i 3))))(defn unchecked-collatz [i] (if (even? i) (unchecked-divide-int i 2) (unchecked-add-int 1 (unchecked-multiply-int i 3))))(defn ifless-collatz ([i] (ifless-collatz i (rem i 2))) ([i p] (+ (* p (+ 1 (* 3 i))) (* (- 1 p) (/ i 2)))))(defn unchecked-ifless-collatz ([i] (unchecked-ifless-collatz i (unchecked-remainder-int i 2))) ([i p] (unchecked-add-int (unchecked-multiply-int p (unchecked-add-int 1 (unchecked-multiply-int 3 i))) (unchecked-multiply-int (unchecked-subtract-int 1 p) (unchecked-divide-int i 2))))) | |
| (quick-bench (ifless-collatz 7))Evaluation count : 2353194 in 6 samples of 392199 calls. Execution time mean : 257.547841 ns Execution time std-deviation : 8.540479 ns Execution time lower quantile : 249.726040 ns ( 2.5%) Execution time upper quantile : 269.887290 ns (97.5%) Overhead used : 1.806094 ns=> nil(quick-bench (unchecked-ifless-collatz 7))Evaluation count : |
Let's read the getting-started guides for the 3 top Clojurescript React interfaces:
https://reagent-project.github.io/
https://github.com/tonsky/rum/
https://github.com/omcljs/om/wiki/Quick-Start-%28om.next%29
What do they have in common ? Taking the Reagent example:
| ; ---- the following fns copied from ring.util.response because they were | |
| ; useful but private ---- | |
| (defn canonical-path [^File file] | |
| (str (.getCanonicalPath file) | |
| (if (.isDirectory file) File/separatorChar))) | |
| (defn safe-path? [^String root ^String path] | |
| (.startsWith (canonical-path (File. root path)) | |
| (canonical-path (File. root)))) |
| (use 'criterium.core) | |
| => nil | |
| (defprotocol p1 (pt [this])) | |
| => p1 | |
| (extend-type Number p1 (pt [this] (list this))) | |
| => nil | |
| (extend-type clojure.lang.PersistentList p1 (pt [this] this)) | |
| => nil | |
| (defn pf [x] (if (list? x) x (list x))) | |
| => #'user/pf |
| dev:cljs.user=> (-> (a/coll-zip [3 {:x 5} 7 [4 {:y 17}] 9]) z/down z/right z/down z/down z/right (z/edit inc) z/next z/prev (z/edit inc) a/fip) | |
| [3 ([:x 7]) 7 [4 {:y 17}] 9] | |
| dev:cljs.user=> (-> (a/coll-zip [3 {:x 5} 7 [4 {:y 17}] 9]) z/down z/right z/down z/down z/right (z/edit inc) (z/edit inc) a/fip) | |
| [3 {:x 7} 7 [4 {:y 17}] 9] |