mjm

(in-package :hax0r.fork)

(defgame fork-game
  (:start-in mansion-foyer)
  (:welcome "=== FORK: the cool person's game ===")
  
  (defloc mansion-foyer "a creepy mansion foyer"
    (door west other-room))
  
  (defloc other-room "a room inside the creepy mansion"

mjm

(ns structures.avl-tree)

(defn height [tree]
  (if (nil? tree)
    0
    (inc (max (height (:left tree))
              (height (:right tree))))))

(defn balance [tree]
  (- (height (:left tree))

mjm

fatal: bad object 92ab867c4a7049548545ea4b2a8d80c38abebb1d
error: pack-objects died with strange error
error: failed to push some refs to 'git@github.com:cooldude127/emacs-starter-kit.git'

mjm

;;; A date library that follows principle of least surprise
(ns clojure.contrib.date)

(import 'java.util.Calendar)
(import 'java.util.TimeZone)

(def #^{:doc "Conversion of Calendar weekdays to keywords"}
     weekday-map
     {Calendar/SUNDAY :sunday
      Calendar/MONDAY :monday

mjm

;;; A date library that follows principle of least surprise
;;;
;;; A few usage examples:
;;;
;;;   user> (now)
;;;   {:second 24, :minute 10, :hour 0, :type
;;;   :clojure.contrib.date/DateTime, :year 2009, :month 1, :day 23
;;;   :zone "America/New_York"}
;;;
;;;   user> (today)