Skip to content

Instantly share code, notes, and snippets.

View shark8me's full-sized avatar

Kiran Karkera shark8me

View GitHub Profile
(ns cc.ziptrial
(:use [clojure.zip :as zip]
[clojure.test]
))
(def v1 (zip/vector-zip [1 [2 3] [4 5]]))
(defn leafnodes [loc]
"returns all the leaf nodes in loc"
(filter (complement zip/branch?) ;filter only non-branch nodes
@shark8me
shark8me / ziptrials.clj
Created November 4, 2011 13:16
Clojure zippers part 1
(ns cc.ziptrial
(:use [clojure.zip :as zip]
[clojure.test]
))
(def v1 (zip/vector-zip [1 [2 3] [4 5]]))
(defn leafnodes [loc]
"returns all the leaf nodes in loc"
(filter (complement zip/branch?) ;filter only non-branch nodes