Added exercise 'singleton?'.

samitsal · Oct 21, 2012 · f1c6017 · f1c6017
1 parent 3a590e4
commit f1c6017
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/recursion.clj b/src/recursion.clj
@@ -3,6 +3,9 @@
 (defn product [coll]
   :-)
 
+(defn singleton? [coll]
+  :-)
+
 (defn last-element [coll]
   :-)
 

diff --git a/test/recursion_test.clj b/test/recursion_test.clj
@@ -9,6 +9,12 @@
   (product [0 1 2])   => 0
   (product #{2 3 4})  => 24)
 
+(facts "singleton?"
+       (singleton? [1])     => true
+       (singleton? #{2})    => true
+       (singleton? [])      => false
+       (singleton? [1 2 3]) => false)
+
 (facts "last-element"
   (last-element [])      => nil
   (last-element [1 2 3]) => 3
-Original file line number
+Diff line change
@@ Expand Up / @@ -3,6 +3,9 @@ @@
     (defn product [coll]
       :-)
+    (defn singleton? [coll]
+      :-)
     (defn last-element [coll]
       :-)
@@ Expand Down @@