| ;; http://www.postgresql.org/docs/9.0/static/queries-with.html | |
| (defmacro with-recursive [rectable cols [start-relation union step-relation] body-relation] | |
| ;; store info in meta data, since compile doesn't dispatch on relation type | |
| `(let [start# ~start-relation | |
| ~rectable (project (table ~(keyword (name rectable))) | |
| ~cols) | |
| body# ~body-relation | |
| step# ~step-relation |
| (ns gist | |
| (:require [clojureql.core :as cql])) | |
| (def schema-tables | |
| (cql/select | |
| (cql/table *db* :information_schema.tables) | |
| (cql/where (= :table_schema "public")))) | |
| (def table-columns | |
| (cql/project |
| #include <time.h> | |
| #include <stdio.h> | |
| #include <stdlib.h> | |
| #include <stdint.h> | |
| #include <string.h> | |
| // defined in asma.s | |
| unsigned char *asma(unsigned char *s); | |
| unsigned char *asma_ref(unsigned char *s) | |
| { |
| #!/bin/zsh | |
| if [ ${#argv} -eq 3 ]; then | |
| emacs -Q -nw --eval "(ediff-merge-files \"$2\" \"$3\" nil \"$1\")" | |
| exit $? |
| (defn fast-expt [b n] | |
| (loop [acc 1 | |
| b b | |
| n n] | |
| (cond | |
| (= n 0) acc | |
| (even? n) (recur acc (* b b) (/ n 2)) | |
| :else (recur (* acc b) b (dec n))))) | |
| (defn mult [a b] |
| (ns ast | |
| (:use [clojure.core.match :only [match]] ) | |
| (:require [clojureql.predicates :as pred])) | |
| (comment These protocols are from a former iteration. They capture the intention pretty well | |
| and might be reintroduced, as soon the format is stable. | |
| (defprotocol SqlCompilable | |
| (render [this] "Sequence of strings that represent the prepared statement") | |
| (param-count [this] "Number of positional parameters in expression or relation") | |
| (label [this] "Canonical label of expression or relation")) |
| (defn jit-memoize [query-fn] | |
| (let [cache-agent (agent {})] | |
| (letfn | |
| [(add-listener [queries parameter callback] | |
| (if-let [listeners (queries parameter)] | |
| (assoc queries parameter | |
| (cons callback listeners)) | |
| (add-query queries parameter callback))) | |
| (add-query [queries parameter callback] | |
| (future (send cache-agent |
The current requirement for defining a data_readers.clj at the source-path root makes creating libraries, that define reader-tags, cumbersome:
data_readers.cljdata_readers.clj (like datomic does) bears the risk of libraries randomly clobbering each other (see lein-collisions)
| (ns user.bendlas | |
| (:require [criterium.core :as crit])) | |
| ;; # Overview | |
| ;; ## Two new core operations | |
| ;; ### pretial -- partial for the first param | |
| ;; This is the main proposition: introduce an operation that lets one |
| Verifying that +bendlas is my blockchain ID. https://onename.com/bendlas |