| (ns ormclj.pg | |
| (:require [clojure.java.jdbc :as sql])) | |
| (defn pg-db | |
| [hostname port db-name user passwd] | |
| {:classname "org.postgresql.Driver" | |
| :subprotocol "postgresql" | |
| :subname (str "//" hostname ":" port "/" db-name) | |
| :user user | |
| :password passwd}) |
| AA = Rickard Stark (M) AB = Eddard Stark (M) AC = Catelyn Tully (F) | |
| AD = Brandon Stark (M) AE = Benjen Stark (M) AF = Jon Snow (M) | |
| AG = Robb Stark (M) AH = Sansa Stark (F) AI = Arya Stark (F) | |
| AJ = Bran Stark (M) AK = Rickon Stark (M) AL = Hoster Tully (M) | |
| AM = Minisa Whent (F) AN = Edmure Tully (M) AO = Lysa Tully (F) | |
| AP = Jon Arryn (M) AQ = Robert Arryn (M) AR = Tytos Lannister (M) | |
| AS = Tywin Lannister (M) AT = Joanna Lannister (F) AU = Kevan Lannister (M) | |
| AV = Cersei Lannister (F) AW = Jamie Lannister (M) AX = Tyrion Lannister (M) | |
| AY = Robert Baratheon (M) AZ = Joffrey Baratheon (M) BA = Myrcella Baratheon (F) | |
| BB = Tommen Baratheon (M) BC = Lancel Lannister (M) BD = Steffon Baratheon (M) |
| ;; Datomic example code | |
| ;; Demonstrates using datalog with Clojure defrecords | |
| (use '[datomic.api :only [q db] :as d]) | |
| ;;; http://www.lshift.net/blog/2010/08/21/some-relational-algebra-with-datatypes-in-clojure-12 | |
| (defrecord Supplier [number name status city]) | |
| (defrecord Part [number name colour weight city]) | |
| (defrecord Shipment [supplier part quantity]) | |
| ;; sample data |
| ;; My good-enough glomming together of clojure.test and test.generative | |
| (ns cemerick.generative | |
| (:require [clojure.test.generative.generators :as gens] | |
| [clojure.test.generative :as gen]) | |
| (:use clojure.test)) | |
| ;; Too bad last-report isn't sent an action upon success as well. | |
| ;; Perhaps this should just be replaced with a try/catch/rethrow | |
| ;; around the body in defspectest |
| (use '[clojure.core.match :only [match]]) | |
| (defn evaluate [env [sym x y]] | |
| (match [sym] | |
| ['Number] x | |
| ['Add] (+ (evaluate env x) (evaluate env y)) | |
| ['Multiply] (* (evaluate env x) (evaluate env y)) | |
| ['Variable] (env x))) | |
| (def environment {"a" 3, "b" 4, "c" 5}) |
| // Datomic example code | |
| package datomic.examples; | |
| import java.util.Collection; | |
| import java.util.Iterator; | |
| import java.util.List; | |
| import java.util.Set; | |
| import static datomic.Peer.*; |
| ;; Datomic example code | |
| (use '[datomic.api :only (db q) :as d]) | |
| ;; ?answer binds a scalar | |
| (q '[:find ?answer :in ?answer] | |
| 42) | |
| ;; of course you can bind more than one of anything | |
| (q '[:find ?last ?first :in ?last ?first] | |
| "Doe" "John") |
| (defn validates-credentials [username password] | |
| (let [uc (count username) | |
| pc (count password)] | |
| (match [username uc password pc] | |
| [(:or nil "") _ _ _] {:error "No username given" :field "name"} | |
| [_ _ (:or nil "") _] {:error "No password given" :field "pass"} | |
| [_ (_ :guard #(< % 3)) _ _] {:error "Username less than 3 characters" :field "pass"} | |
| [_ _ _ (_ :guard #(< % 4))] {:error "Password less than 4 characters" :field "pass"} | |
| [#"^([a-z0-9-_]+)$" _ _ _] {:error "Username contains invalid characters" :field "name"} | |
| :else true))) |
| (ns flp | |
| "Function-level programming a la Backus; see | |
| http://www.stanford.edu/class/cs242/readings/backus.pdf" | |
| (:refer-clojure :exclude [/])) | |
| ;;; Functional Forms - combine existing functions to form new ones. | |
| (def ^{:doc "Composition"} ° comp) | |
| (defn / [f] |
Rich Hickey (of [Clojure][1] fame) has released a cloud-based database called [Datomic][2] that has some interesting properties.
Datomic is an log of assertions and retractions of "facts", much as a DVCS like [Git][3] is a log of code diffs. The state of the database at any one time is the sum of all the assertions and retractions up to that date.
