Skip to content

Instantly share code, notes, and snippets.

View soulflyer's full-sized avatar

Iain soulflyer

View GitHub Profile
soulflyer / find-thing.clj
Created December 21, 2011 04:21
Possible additions to
(defn find-name
"Returnd the name of the first matching thing found in things
or nil if not found"
([thing things]
(if (= (val (first things)) thing)
(key (first things))
(if (< 1 (count things))
(find-name thing (rest things))))))