updating the path to enlightenment, adding a repl runner, and adding

the about vectors koans.

koans/about_vectors.clj

@@ -0,0 +1,28 @@
+(def __ nil)
+
+(defn test-creating-vectors []
+  (let [empty-vector (vec nil)]
+    (assert (= clojure.lang.PersistentVector (class empty-vector)))
+    (assert (= __ (.size empty-vector)))))
+
+(defn test-vector-literals []
+  (let [vector (vec nil)]
+    (assert (= [] vector)))
+  (let [vector (vec '(1))]
+    (assert (= [1] vector)))
+  (let [vector (vec '(1 2))]
+    (assert (= [1 __] vector)))
+  (let [vector (vec nil)]
+    (assert (= __ (conj vector 333)))))
+
+(defn test-accessing-vector-elements []
+  (let [vector [:peanut, :butter, :and, :jelly]]
+    (assert (= __ (nth vector 0)))
+    (assert (= __ (first vector)))
+    (assert (= __ (nth vector 3)))
+    (assert (= __ (last vector)))))
+
+(defn test-vectors-and-ranges []
+  (assert (not (= [1 2 3 4 5] (range 1 5))))
+  (assert (= [1 2 3 4] (range 1 5)))
+  (assert (= __ (range 5 10))))

koans/path_to_enlightenment.clj

@@ -1,4 +1,5 @@
-(load "about-asserts")
+(load "about_asserts")
+(load "about_vectors")
 
 (defmacro meditate-on
   "Runs tests but exits if an assertion fails"
@@ -6,12 +7,18 @@
   `(try
    (~test-function)
    (catch Throwable t#
-     (println (str (:zen (meta #'~test-function)) "\n"
-                   (:name (meta #'~test-function))
-                   " returned " t#))
+     (println (str "\n\"" (:zen (meta #'~test-function)) "\"\n"
+                   "[FAILURE] - "(:name (meta #'~test-function))
+                   " failed\n" t# "\n"))
      (System/exit 1))))
 
 (meditate-on test-truth)
 (meditate-on test-assert-equality)
 (meditate-on test-fill-in-values)
+
+(meditate-on test-creating-vectors)
+(meditate-on test-vector-literals)
+(meditate-on test-accessing-vector-elements)
+(meditate-on test-vectors-and-ranges)
+
 (println "You have achieved clojure zen. Go out into the universe and spread your newfound knowledge.")