map in core.cljs first is test

ajlopez · Mar 1, 2015 · c945fb4 · c945fb4
1 parent 181421f
commit c945fb4
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/core.cljs b/src/core.cljs
@@ -239,3 +239,10 @@ called."
                 (if (= (.length vals) 0)
                     nil
                     (.create js/lists (vals))))))
+
+(defn map
+    [f coll]
+    (let [s (seq coll)]
+        (if (nil? s)
+            nil
+            (cons (f (first s)) (map f (rest s))))))
diff --git a/test/is/map.cljs b/test/is/map.cljs
@@ -0,0 +1 @@
+(println "Map Function Tests")(is (= (map inc [1 2 3]) [2 3 4]))