| d = dict(a=1, b=2, c=3) | |
| # it really should not be that weird | |
| list(map(lambda k, v: (k, 2*v), *zip(*d.items()))) |
Seems like when using a logic db in core.logic most of the
CPU cicles are spent on manipulating the thead bindings the *logic-dbs* dynamic var.
However, it is only used as a wrapper when calling the underlying -run macro.
Invoking it directly speeds things up significantly
Let's set up some dummy data:
(require
'[clojure.core.logic.pldb :as pldb]| (ns clj-seperate-bench.core | |
| (:gen-class) | |
| (:require | |
| [criterium.core :as c])) | |
| ;;; Run with: | |
| ;;; java -Xmx8G -Xms8G -XX:+UseG1GC -jar target/uberjar/clj-seperate-bench-0.1.0-SNAPSHOT-standalone.jar | |
| ;; 54, 60 ms range | |
| ;; 54, 34 ms vector |
| (defn camel->snake | |
| [s] | |
| (-> s | |
| (clojure.string/replace #"([^_A-Z])([A-Z])" "$1-$2") | |
| clojure.string/lower-case)) | |
| (defn gen-param* | |
| [c] | |
| (-> | |
| c |
| (defn camel->snake | |
| [s] | |
| (-> s | |
| (clojure.string/replace #"([^_A-Z])([A-Z])" "$1-$2") | |
| clojure.string/lower-case)) | |
| (defn gen-param* | |
| [c] | |
| (-> | |
| c |
| (defn get-lens [k] (fn [m] (get m k))) | |
| (defn get-in-lens | |
| [ks] | |
| (reduce | |
| (fn [f k] | |
| (fn [m] | |
| (let [lens (get-lens k)] | |
| (lens (f m))))) | |
| identity |
| (defn dissoc-in | |
| [m ks] | |
| (let [[k & ks] ks] | |
| (if ks | |
| (let [found (find m k)] | |
| (if found | |
| (assoc m k (dissoc-in (val found) ks)) | |
| m)) | |
| (dissoc m k)))) |
| (defmacro cond* | |
| [& clauses] | |
| (when clauses | |
| (let [p (first clauses) | |
| return? (:return (meta p))] | |
| (if return? | |
| `(if ~p | |
| ~p | |
| (cond* ~@(next clauses))) | |
| `(if ~p |
| ;;; | |
| ;;; see https://www.reddit.com/r/Clojure/comments/gcry9d/why_does_my_clojure_implementation_of_conways/ | |
| ;;; for initial implementation | |
| ;;; | |
| (ns gol.core | |
| (:gen-class) | |
| (:import | |
| [java.awt Color Graphics]) | |
| (:use seesaw.core |
| (defn- pair | |
| [k v] | |
| (clojure.lang.MapEntry. k v)) | |
| (defn prod | |
| [xs ys] | |
| (persistent! | |
| (reduce | |
| (fn [acc x] | |
| (reduce |