clifford’s gists

clifford / core.clj

Created October 2, 2012 18:05 — forked from ejackson/core.clj

Attempt at the problem

	(ns timetable.core2
	(:refer-clojure :exclude [==])
	(:use [clojure.core.logic]
	[clojure.tools.macro]))

	;; --------------------------------------------------------
	;; Useful goals
	(defne rembero
	"Succeeds if out is the list l with the first instance of element x removed"
	[x l out]

clifford / gist:4588275

Created January 21, 2013 18:46 — forked from stuarthalloway/gist:3068749

	;; 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

clifford / wont_work.cljs

Created May 9, 2014 13:22 — forked from swannodette/wont_work.cljs

	(ns test.core
	(:require-macros [cljs.core.async.macros :refer [go]])
	(:require [cljs.core.async :refer [<! chan put!]]
	[om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true]))

	(enable-console-print!)

	(def aidc (chan))

clifford / works!@#.cljs

Created May 9, 2014 15:01 — forked from haywoood/works!@#.cljs

	(ns test.core
	(:require-macros [cljs.core.async.macros :refer [go]])
	(:require [cljs.core.async :refer [<! chan put!]]
	[om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true]))

	(def app-state (atom {:projects
	[{:id 1 :title "proj 1"}
	{:id 2 :title "proj 2"}
	{:id 3 :title "proj 3"}

clifford / merge-stats-map.clj

Created May 28, 2014 17:59 — forked from gerritjvv/merge-stats-map.clj

	(def msgs [ {"a" {:stat1 1 :stat2 10} "b" {:stat1 1}} {"a" {:stat1 1}}])

	(def merged (apply merge-with (partial merge-with +) msgs))
	;; {"a" {:stat1 2, :stat2 10}, "b" {:stat1 1}}
	(prn merged)
	;; {"a" {:stat1 2, :stat2 10}, "b" {:stat1 1}}

	(= (-> merged first second :stat1) 2)
	;; true

clifford / reagent_datascript.cljs

Last active August 29, 2015 14:11 — forked from allgress/reagent_datascript.cljs

	(ns reagent-test.core
	(:require [reagent.core :as reagent :refer [atom]]
	[datascript :as d]
	[cljs-uuid-utils :as uuid]))

	(enable-console-print!)

	(defn bind
	([conn q]
	(bind conn q (atom nil)))

clifford / engine.c

Created October 30, 2019 10:06

Quant cup contest for fastest matching engine.

	/*****************************************************************************
	* QuantCup 1: Price-Time Matching Engine
	*
	* Submitted by: voyager
	*
	* Design Overview:
	* In this implementation, the limit order book is represented using
	* a flat linear array (pricePoints), indexed by the numeric price value.
	* Each entry in this array corresponds to a specific price point and holds
	* an instance of struct pricePoint. This data structure maintains a list