Add Array#delete_first, Array#delete_first_each

Author: TylerRick

lib/core/facets/array/delete_first.rb

@@ -0,0 +1,21 @@
+class Array
+  # Deletes first item from +self+ that is equal to +obj+.
+  #
+  # Returns the deleted item, or +nil+ if no matching item is found.
+  #
+  # If the optional code block is given, the result of the block is returned if
+  # the item is not found.
+
+  #    a = [ "a", "b", "b", "b", "c" ]
+  #    a.delete_first("b")                   #=> "b"
+  #    a                               #=> ["a", "c"]
+  #    a.delete("z")                   #=> nil
+  #    a.delete("z") {"not found"}     #=> "not found"
+  def delete_first(el)
+    i = index(el)
+    if i
+      delete_at(i)
+    end
+  end
+end
+

lib/core/facets/array/delete_first_each.rb

@@ -0,0 +1,37 @@
+class Array
+  # For each element of `other`, deletes the _first_ element from self that is equal to that element
+  # (using `delete_at`, not `delete`).
+  #
+  # Returns a new array that is a copy of the original array, with the given elements removed.
+  #
+  # This is similar to `Array#-` and `Array#difference`, except that instead of removing _all_
+  # matches, it only removes as many occurrences as you actually _ask_ it to remove:
+  #
+  #    > [1, 1, 2].delete_first_each [1]
+  #   => [1, 2]
+  #
+  #    > [1, 1, 2].delete_first_each [1, 1]
+  #   => [2]
+  #
+  #    > [1, 1, 2] - [1]
+  #   => [2]
+  #
+  #    > [1, 1, 2].difference [1]
+  #   => [2]
+  #
+  def delete_first_each(other)
+    dup.delete_first_each!(other)
+  end
+
+  # For each element of `other`, deletes the _first_ element from self that is equal to that element
+  # (using `delete_at`, not `delete`).
+  #
+  # This is the in-place version of delete_first_each.
+  #
+  def delete_first_each!(other)
+    other.each do |el|
+      delete_first(el)
+    end
+    self
+  end
+end

test/core/array/test_delete_first_each.rb

@@ -0,0 +1,41 @@
+covers 'facets/array/delete_first_each'
+
+test_case Array do
+  method :delete_first_each do
+    test do
+      a                         = [1,1,2,3]
+      a.delete_first_each(  [1]).assert == [  1,2,3]
+      a.difference([1]).assert == [    2,3]
+      (a -         [1]).assert == [    2,3]
+      a.assert                 == [1,1,2,3]
+    end
+
+    test do
+      a                          = [1,1,2,3]
+      a.delete_first_each([1, 1]).assert == [    2,3]
+      (a -          [1]).assert == [    2,3]
+      a.assert                  == [1,1,2,3]
+    end
+
+    test 'example from Array#- docs' do
+      a =  [ 1, 1, 2, 2, 3, 3, 4, 5 ]
+      (a - [    1,    2,       4    ]).assert == [ 3, 3, 5 ]
+      a.delete_first_each([1,    2,       4    ]).assert == [ 1, 2, 3, 3, 5 ]
+    end
+
+    test 'element that is not found' do
+      a                          = [1,1,2,3]
+      (a -          [4]).assert == [1,1,2,3]
+      a.delete_first_each([   4]).assert == [1,1,2,3]
+      a.assert                  == [1,1,2,3]
+    end
+  end
+
+  method :delete_first_each! do
+    test do
+      a                        = [1,1,2,3]
+      a.delete_first_each!([1]).assert == [  1,2,3]
+      a.assert                == [  1,2,3]
+    end
+  end
+end