Skip to content

Instantly share code, notes, and snippets.

View c-spencer's full-sized avatar

Chris Spencer c-spencer

34 followers · 2 following
View GitHub Profile
@c-spencer
c-spencer / Templating.html
Created July 2, 2010 09:31 — forked from fivesixty/Templating.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script type="text/javascript" src="Eventful.js"></script>
<script type="text/javascript" src="Mustache.js"></script>
</head>
<body>
<div style="float: left; margin-right: 30px;">
<h2>Object Definition</h2>
<pre> var Person = function (name) {
@c-spencer
c-spencer / tween.js
Created July 2, 2010 09:31 — forked from fivesixty/tween.js
var Tween = (function () {
var animations = {}, nanim = 0;
var Tween = {};
Tween.step = function () {
var d = new Date();
var thisTick = d.getTime();
@c-spencer
c-spencer / mongo.html
Created July 4, 2010 17:00
<html>
<head>
<script type="text/javascript" src="src/Server.js"></script>
<script type="text/javascript" src="src/Cursor.js"></script>
<script type="text/javascript" src="src/Collection.js"></script>
<script type="text/javascript" src="src/Db.js"></script>
</head>
<body>
&nbsp;
<script type="text/javascript">
@c-spencer
c-spencer / neo.clj
Created July 14, 2010 21:29
(def *tx* nil)
(def *lucene*) ; def'd during startup
(defmacro with-tx [& body]
`(binding [*tx* (.beginTx *neo*)]
(try
(let [val# (do ~@body)]
(.success *tx*)
val#)
(finally (.finish *tx*)))))
@c-spencer
c-spencer / 01.clj
Created July 15, 2010 19:28
(defn multiples [limit & nums]
(->> (map #(range % limit %) nums)
(apply concat)
(distinct)))
(print (time
(apply +
(multiples 1000 3 5))))
@c-spencer
c-spencer / 14.clj
Created July 16, 2010 09:57
; memoize this
(defn collatz [n l]
(if (= n 1)
(inc l)
(if (even? n)
(recur (/ n 2) (inc l))
(recur (inc (* 3 n)) (inc l)))))
(print (time
(apply max-key last
@c-spencer
c-spencer / clojure neo4j tests.clj
Created August 11, 2010 20:40
(use 'clojure.test)
(testing "Initialising"
(start "var/test")
(are [x y] (= x y)
(.getClass *neo*) EmbeddedGraphDatabase
(.getClass *lucene* LuceneFullTextIndexService)))
(testing "Homogeneous Nodes"
@c-spencer
c-spencer / dang.clj
Created August 11, 2010 21:45
(defn register-classed-indices [classes]
(transaction-handler
(afterCommit [_ data state] nil)
(beforeCommit [_ data]
(let [remnodes (into {} (map (fn [^Node node] [(.getId node) {}]) (.deletedNodes data)))
rnodes (reduce (fn [props ^PropertyEntry removal] (update-in props [(.getId ^Node (.entity removal))] assoc (.key removal) (.previouslyCommitedValue removal))) remnodes (filter #(contains? remnodes (.getId ^Node (.entity ^PropertyEntry %))) (.removedNodeProperties data)))]
(doseq [^PropertyEntry removal (.removedNodeProperties data)]
(let [entity ^Node (.entity removal)
key (.key removal)
entity-id (.getId entity)
@c-spencer
c-spencer / mutable locking.clj
Created August 12, 2010 20:46
(defprotocol TestProtocol
(test-method [this]))
(deftype MutableLocking
; Compiles ok
[^{:volatile-mutable true} mut-var]
TestProtocol
(test-method [this]
(locking this
(set! mut-var {:set true})
@c-spencer
c-spencer / now-iter.js
Created April 1, 2011 15:51
everyone.now.joinChat = function () {
this.now.inChat = true;
var userlist = [];
everyone.now.iterate(function (user) {
if (user.now.inChat) {
userlist.push(userId(user));
}
});
this.now.receiveUsers(userlist);
everyone.now.broadcastJoin(this);