Added exercise numbers to test docstrings.

Author: Jani Rahkola

test/recursion_test.clj

@@ -6,77 +6,77 @@
   (and (sequential? x)
        (clojure.core/empty? x)))
 
-(facts "product"
+(facts "ex 1 product"
   (product [])        => 1
   (product [1 2 3])   => 6
   (product [1 2 3 4]) => 24
   (product [0 1 2])   => 0
   (product #{2 3 4})  => 24)
 
-(facts "singleton?"
+(facts "ex 3 singleton?"
        (singleton? [1])     => true
        (singleton? #{2})    => true
        (singleton? [])      => false
        (singleton? [1 2 3]) => false)
 
-(facts "my-last"
+(facts "ex 4 my-last"
   (my-last [])      => nil
   (my-last [1 2 3]) => 3
   (my-last [2 5])   => 5)
 
-(facts "max-element"
+(facts "ex 5 max-element"
        (max-element [2 4 1 4]) => 4
        (max-element [2])       => 2
        (max-element [])        => nil)
 
-(facts "seq-max"
+(facts "ex 6 seq-max"
        (seq-max [1] [1 2]) => [1 2]
        (seq-max [1 2] [3 4]) => [3 4])
 
-(facts "longest-sequence"
+(facts "ex 7 longest-sequence"
        (longest-sequence [[1 2] [] [1 2 3]]) => [1 2 3]
        (longest-sequence [[1 2]])            => [1 2]
        (longest-sequence [])                 => nil)
 
-(facts "my-filter"
+(facts "ex 8 my-filter"
        (my-filter odd? [1 2 3 4]) => '(1 3)
        (my-filter (fn [x] (> x 9000)) [12 49 90 9001]) => '(9001)
        (my-filter even? [1 3 5 7]) => empty?)
 
-(facts "sequence-contains?"
+(facts "ex 9 sequence-contains?"
   (sequence-contains? 3 [1 2 3]) => true
   (sequence-contains? 3 [4 7 9]) => false
   (sequence-contains? :pony [])  => false)
 
-(facts "my-take-while"
+(facts "ex 10 my-take-while"
        (my-take-while odd? [1 2 3 4])  => '(1)
        (my-take-while odd? [1 3 4 5])  => '(1 3)
        (my-take-while even? [1 3 4 5]) => empty?
        (my-take-while odd? [])         => empty?)
 
-(facts "my-drop-while"
+(facts "ex 11 my-drop-while"
        (my-drop-while odd? [1 2 3 4])  => '(2 3 4)
        (my-drop-while odd? [1 3 4 5])  => '(4 5)
        (my-drop-while even? [1 3 4 5]) => '(1 3 4 5)
        (my-drop-while odd? [])         => empty?)
 
-(facts "seq="
+(facts "ex 12 seq="
   (seq= [1 2 4] '(1 2 4))  => true
   (seq= [1 2 3] [1 2 3 4]) => false
   (seq= [1 3 5] [])        => false)
 
-(facts "my-map"
+(facts "ex 13 my-map"
        (my-map + [1 2 3] [4 4 4]) => '(5 6 7)
        (my-map + [1 2 3 4] [0 0 0]) => '(1 2 3)
        (my-map + [1 2 3] []) => empty?)
 
-(facts "power"
+(facts "ex 14 power"
   (power 2 2)  => 4
   (power 5 3)  => 125
   (power 7 0)  => 1
   (power 0 10) => 0)
 
-(facts "fib"
+(facts "ex 15 fib"
   (fib 0) => 0
   (fib 1) => 1
   (fib 2) => 1
@@ -86,28 +86,28 @@
   (fib 6) => 8
   (fib 10) => 55)
 
-(facts "my-repeat"
+(facts "ex 16 my-repeat"
        (my-repeat 2 :a)    => '(:a :a)
        (my-repeat 3 "lol") => '("lol" "lol" "lol")
        (my-repeat -1 :a)   => empty?)
 
-(facts "my-range"
+(facts "ex 17 my-range"
   (my-range 0)  => empty?
   (my-range 1)  => '(0)
   (my-range 2)  => '(1 0)
   (my-range 3)  => '(2 1 0))
 
-(facts "tails"
+(facts "ex 18 tails"
   (tails [1 2 3 4])   => (just [[1 2 3 4] [2 3 4] [3 4] [4] []] :in-any-order)
   (tails [])          => (just [[]])
   (tails [1])         => (just [[1] []] :in-any-order))
 
-(facts "inits"
+(facts "ex 18 inits"
   (inits [1 2 3 4])   => (just [[] [1] [1 2] [1 2 3] [1 2 3 4]] :in-any-order)
   (inits [])          => (just [[]])
   (inits [1])         => (just [[] [1]] :in-any-order))
 
-(facts "rotations"
+(facts "ex 19 rotations"
   (rotations [])      => '(())
   (rotations [1 2 3]) => (just [[1 2 3] [2 3 1] [3 1 2]] :in-any-order)
   (rotations [:a :b]) => (just [[:a :b] [:b :a]] :in-any-order)
@@ -116,54 +116,54 @@
                                  :in-any-order)
   (count (rotations [6 5 8 9 2])) => 5)
 
-(facts "my-frequencies"
+(facts "ex 20 my-frequencies"
   (my-frequencies []) => {}
   (my-frequencies [1 1 2 2 :D :D :D]) => {1 2, 2 2, :D 3}
   (my-frequencies [:a "moi" :a "moi" "moi" :a 1])
   => {:a 3, "moi" 3, 1 1})
 
-(facts "un-frequencies"
+(facts "ex 21 un-frequencies"
   (un-frequencies {:a 3 :b 2 "^_^" 1})
   => (just [:a :a :a "^_^" :b :b] :in-any-order)
   (un-frequencies (my-frequencies [:a :b :c :a]))
   => (just [:a :a :b :c] :in-any-order)
   (my-frequencies (un-frequencies {:a 100 :b 10}))
   => {:a 100 :b 10})
 
-(facts "my-take"
+(facts "ex 22 my-take"
        (my-take 2 [1 2 3 4]) => '(1 2)
        (my-take 4 [:a :b]) => '(:a :b))
 
-(facts "my-drop"
+(facts "ex 23 my-drop"
        (my-drop 2 [1 2 3 4]) => '(3 4)
        (my-drop 4 [:a :b]) => empty?)
 
-(facts "halve"
+(facts "ex 24 halve"
        (halve [1 2 3 4])   => ['(1 2) '(3 4)]
        (halve [1 2 3 4 5]) => ['(1 2) '(3 4 5)]
        (halve [1])         => (just empty? '(1)))
 
-(facts "seq-merge"
+(facts "ex 25 seq-merge"
   (seq-merge [4] [1 2 6 7])        => '(1 2 4 6 7)
   (seq-merge [1 5 7 9] [2 2 8 10]) => '(1 2 2 5 7 8 9 10))
 
-(facts "merge-sort"
+(facts "ex 26 merge-sort"
   (merge-sort [])                 => empty?
   (merge-sort [1 2 3])            => '(1 2 3)
   (merge-sort [5 3 4 17 2 100 1]) => '(1 2 3 4 5 17 100))
 
-(facts "split-into-monotonics"
+(facts "ex 27 split-into-monotonics"
   (split-into-monotonics [0 1 2 1 0])   => '((0 1 2) (1 0))
   (split-into-monotonics [0 5 4 7 1 3]) => '((0 5) (4 7) (1 3)))
 
-(facts "permutations"
+(facts "ex 28 permutations"
   (permutations []) => (just empty?)
   (count (permutations (range 5))) => 120
   (permutations [1 5 3])
   => (just [1 5 3] [5 1 3] [5 3 1] [1 3 5] [3 1 5] [3 5 1]
            :in-any-order))
 
-(facts "powerset"
+(facts "ex 29 powerset"
   (powerset [])      => (some-checker (just empty?) (just #{#{}}))
   (powerset [1 2 4]) => (some-checker
                           (just empty?