tgk

(defmacro aggregate
  "Simple aggregation. Iterates over seq, binding values to
  seq-bind. agg-bind is initially initial-val, but is bound to the value
  of body after each iteration, and returned as the final value."
  [agg-bind initial-val
   [seq-bind seq]
   & body]
  `(reduce
    (fn [~agg-bind ~seq-bind]
      (do ~@body))

tgk

(defn splits
  [s]
  (take-while
   (comp seq second)
   (iterate
    (fn [[prefix suffix]]
      [(conj prefix (first suffix))
       (rest suffix)])
    [[] s])))

tgk

This graphic illustrates string frequency over a period of time. Press left and right arrow keys to cycle through the data. A hash code adapted from Java is used to determine the color of the strings and the bars. log-scales are used to allow for visibility of small sample sizes at early time.

tgk

The circular buttons use callback to update which of the two is selected.

tgk

Mouseover to repel nodes. Weee, nodes!

tgk

Example of how rolling deploys might have been easy on Datomic databases, had Datomic supported change of schema in db snapshots. The example will not work, but illustrates how easy it would have been to operate on a new schema on an old database by performing migration in-memory when needed.

tgk

(use '[datomic.api :only [q db] :as d])

(def uri "datomic:mem://schema-test")

(d/delete-database uri)
(d/create-database uri)

(def conn (d/connect uri))

(def schema-tx

tgk

import java.util.Arrays;

public class Car {

	private int maxSpeed;
	private Wheel[] wheels;

	public Car(int maxSpeed, Wheel[] wheels) {
		this.maxSpeed = maxSpeed;
		this.wheels = wheels;

tgk

Vagrant::Config.run do |config|
  config.vm.box = "lucid32"
  config.vm.host_name = "apache"
  config.vm.network :hostonly, "192.168.0.101"

   config.vm.provision :chef_solo do |chef|
     chef.cookbooks_path = "cookbooks"

     chef.add_recipe "apt"
     chef.add_recipe "apache2"

tgk

Experiments with very small pie charts and tables with dots whose size represents a quantity.