Skip to content

Instantly share code, notes, and snippets.

Avatar
😴
I'm probably napping

Matt Moriarity mjm

😴
I'm probably napping
View GitHub Profile
View avl_tree.clj
(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))
View gist:53074
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'
View date.clj
;;; 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
View date.clj
;;; 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)
You can’t perform that action at this time.