This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defproject archimedes-test "0.1.0-SNAPSHOT" | |
:description "FIXME: write description" | |
:url "http://example.com/FIXME" | |
:license {:name "Eclipse Public License" | |
:url "http://www.eclipse.org/legal/epl-v10.html"} | |
:dependencies [[org.clojure/clojure "1.5.1"] | |
[com.orientechnologies/orient-commons "1.3.0"] | |
[com.orientechnologies/orientdb-core "1.3.0"] | |
[com.tinkerpop.blueprints/blueprints-orient-graph "2.3.0"] | |
[clojurewerkz/ogre "2.3.0.1"] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns asyncatom.core | |
(:require [clojure.core.async :refer [chan go <! >! <!!]]) | |
(:refer-clojure :exclude [atom swap! reset! compare-and-set! deref])) | |
(defn atom [v] | |
(let [c (chan)] | |
(go | |
(loop [v v] | |
(let [[cmd oc & args] (<! c) | |
v (condp = cmd |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmacro let-map | |
"Takes a binding form (as in let) and returns a map of (keywordized) | |
binding names and bound values. It allows to construct a map sequentially. | |
Usage: | |
(let-map [a 1 b (+ a 1)]) | |
=> {:a 1 :b 2}" | |
[kv] | |
(let [ks (map keyword (take-nth 2 kv))] | |
`(let [~@kv] | |
(into {} (map vec (partition 2 (interleave '~ks (take-nth 2 ~kv)))))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
### Keybase proof | |
I hereby claim: | |
* I am lantiga on github. | |
* I am lantiga (https://keybase.io/lantiga) on keybase. | |
* I have a public key whose fingerprint is C364 40F7 E6D0 2B02 AF9C FC34 BE4B 71AA 57A8 4B6A | |
To claim this, I am signing this object: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns carla.core | |
(:require [clojure.math.combinatorics :as combo])) | |
(defn- fact-matches? [fact match] | |
(= match (select-keys fact (keys match)))) | |
(defn make-rules [] []) | |
(defn make-session [] {:facts #{}}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
ki -o react_ki.out.js react_ki.js |
NewerOlder