facets 2.9.3 → 3.0.0

data/lib/core/facets/array/combination.rb

@@ -1,43 +0,0 @@
-class Array
-
-  unless method_defined?(:combination) # 1.8.7+
-
-    require 'facets/enumerator'
-
-    # Yields the block to each unique combination of _n_ elements.
-    #
-    #   a = %w|a b c d|
-    #   a.combination(3)
-    #
-    # produces
-    #
-    #   [["a", "b", "c"],
-    #    ["a", "b", "d"],
-    #    ["a", "c", "d"],
-    #    ["b", "c", "d"]]
-    #
-    # CREDIT: Florian Gross
-
-    def combination(k=2)
-      if block_given?
-        s = to_a
-        n = s.size
-        return unless (1..n) === k
-        idx = (0...k).to_a
-        loop do
-          yield s.values_at(*idx)
-          i = k - 1
-          i -= 1 while idx[i] == n - k + i
-          break if i < 0
-          idx[i] += 1
-          (i + 1 ... k).each {|j| idx[j] = idx[i] + j - i}
-        end
-      else
-        to_enum(:combination, k)
-      end
-    end
-
-  end
-
-end
-

data/lib/core/facets/array/index.rb

@@ -1,23 +0,0 @@
-class Array
-
-  if RUBY_VERSION < '1.8.7'
-
-    alias_method :_facets_index, :index
-
-    # Allows #index to accept a block.
-    #
-    #   ['a', 'b', 'c'].index{ |x| x.upcase == 'C' } #=> 2
-    #
-    # IMPORTANT: This is one of the few core overrides in Facets.
-    def index(obj=nil, &block)
-      if block_given?
-        _facets_index(find(&block))
-      else
-        _facets_index(obj)
-      end
-    end
-
-  end
-
-end
-

data/lib/core/facets/array/occurent.rb

@@ -1 +0,0 @@
-require 'facets/array/nonuniq'

data/lib/core/facets/array/permutation.rb

@@ -1,32 +0,0 @@
-class Array
-
-  unless method_defined?(:permutation) # 1.8.7+
-
-    # Permutation provids the possible orders of an enumerable.
-    # Each is indexed by a permutation number. The maximum number of
-    # arrangements is the factorial of the size of the array.
-    #
-    #    [1,2].permutation(2).to_a #=> [[1,2], [2,1]]
-    #
-    # CREDIT: Shin-ichiro Hara
-
-    def permutation(n=size)
-      if size < n or n < 0
-      elsif n == 0
-        yield([])
-      else
-        self[1..-1].permutation(n - 1) do |x|
-          (0...n).each do |i|
-            yield(x[0...i] + [first] + x[i..-1])
-          end
-        end
-        self[1..-1].permutation(n) do |x|
-          yield(x)
-        end
-      end
-    end
-
-  end
-
-end
-

data/lib/core/facets/array/product.rb

@@ -1,30 +0,0 @@
-class Array
-
-  unless method_defined?(:product) # 1.8.7+
-
-    # Provides the cartesian product of two or more arrays.
-    #
-    #   a = [1,2].product([4,5])
-    #   a  #=> [[1, 4],[1, 5],[2, 4],[2, 5]]
-    #
-    # CREDIT: Thomas Hafner
-
-    def product(*enums)
-      enums.unshift self
-      result = [[]]
-      while [] != enums
-        t, result = result, []
-        b, *enums = enums
-        t.each do |a|
-          b.each do |n|
-            result << a + [n]
-          end
-        end
-      end
-      result
-    end
-
-  end
-
-end
-

data/lib/core/facets/array/rotate.rb

@@ -1,48 +0,0 @@
-class Array
-
-  unless method_defined?(:rotate)
-
-    # Rotates an array's elements from back to front n times.
-    #
-    #   [1,2,3].rotate      #=> [2,3,1]
-    #   [2,3,1].rotate      #=> [3,1,2]
-    #   [3,1,2].rotate      #=> [1,2,3]
-    #
-    #   [1,2,3].rotate(3)   #=> [1,2,3]
-    #
-    # A negative parameter reverses the order from front to back.
-    #
-    #   [1,2,3].rotate(-1)  #=> [3,1,2]
-    #
-    # CREDIT: Florian Gross, Thomas Sawyer
-
-    def rotate(n=1)
-      self.dup.rotate!(n)
-    end
-
-  end
-
-  unless method_defined?(:rotate!)
-
-    # Same as #rotate, but acts in place.
-    #
-    #   a = [1,2,3]
-    #   a.rotate!
-    #   a  #=> [2,3,1]
-    #
-    # CREDIT: Florian Gross, Thomas Sawyer
-
-    def rotate!(n=1)
-      n = n.to_int
-      return self if (n == 0 or self.empty?)
-      if n < 0
-        n.abs.times{ self.unshift( self.pop ) }
-      else
-        n.abs.times{ self.push( self.shift ) }
-      end
-      self
-    end
-
-  end
-
-end

data/lib/core/facets/array/select.rb

@@ -1,20 +0,0 @@
-class Array
-
-  unless method_defined?(:select!)
-
-    # As with #select but modifies the Array in place.
-    #
-    #   a = [1,2,3,4,5,6,7,8,9,10]
-    #   a.select!{ |e| e % 2 == 0 }
-    #   a  #=> [2,4,6,8,10]
-    #
-    # CREDIT: Gavin Sinclair
-    #
-    def select!  # :yield:
-      reject!{ |e| not yield(e) }
-    end
-
-  end
-
-end
-

data/lib/core/facets/binding/eval.rb

@@ -1,14 +0,0 @@
-class Binding
-
-  unless method_defined?(:eval) # 1.8.7+
-
-    # Evaluate a Ruby source code string (or block) in the binding context.
-
-    def eval(str)
-      Kernel.eval(str, self)
-    end
-
-  end
-
-end
-

data/lib/core/facets/enumerable/count.rb

@@ -1,53 +0,0 @@
-require 'facets/hash/count'
-
-module Enumerable
-
-  # Count the number of items in an enumerable equal (==)
-  # to the given object(s).
-  #
-  #   e = [ 'a', 1, 'a' ]
-  #
-  #   e.count(1)       #=> 1
-  #   e.count('a')     #=> 2
-  #
-  # The method can count more than one item by supplying additional
-  # arguments.
-  #
-  #   e.count('a', 1)  #=> 3
-  #
-  # A block may also be used to select countable entries.
-  #
-  #   e.count{ |x| String === x }  #=> 2
-  #
-  # Note that Hash#count only considers values.
-  #
-  #   e = { 'a' => 2, 'x' => 2, 'b' => 1 }
-  #
-  #   e.count(1)  #=> 1
-  #   e.count(2)  #=> 2
-  #
-  # NOTE: This is one of the few method overrides in Facets.
-  #
-  # CREDIT: Trans
-
-  def count(*items, &block)
-    if block || !items.empty?
-      r = self
-      r = r.select(&block) if block
-      r = r.select{ |x| items.any?{ |i| i == x } } if !items.empty?
-      r.size
-    else
-      begin
-        size
-      rescue
-        i=0; each{ |e| i+=1 }; i
-      end
-    end
-  end
-
-end
-
-class Array
-  remove_method(:count) rescue nil
-end
-

data/lib/core/facets/enumerable/each_with_object.rb

@@ -1,38 +0,0 @@
-module Enumerable
-
-  unless method_defined?(:each_with_object)
-
-    # A variation of #inject that saves one from having to
-    # return the aggregate/memo argument.
-    #
-    # Say we want to count characters in a string. Using
-    # the #each_with_object method we have:
-    #
-    #    "string".each_with_object(Hash.new(0)) do |c, h|
-    #      h[c] += 1
-    #    end
-    #
-    # versus using #inject which would be:
-    #
-    #    "string".inject(Hash.new(0)) do |h, c|
-    #      h[c] +=1
-    #      h
-    #    end
-    #
-    # Notice that the order of the block parameters is reversed.
-    #
-    # This method used be called #injecting and had the same
-    # parameter order as #inject, but Ruby 1.9 has adopted this
-    # method, so we support it instead.
-
-    def each_with_object(memo) #:yield:
-      each do |element|
-        yield(element, memo)
-      end
-      memo
-    end
-
-  end
-
-end
-

data/lib/core/facets/enumerable/group_by.rb

@@ -1,33 +0,0 @@
-module Enumerable
-
-  unless method_defined?(:group_by) # 1.9
-
-    # Enumerable#group_by is used to group items in a collection by something
-    # they have in common.  The common factor is the key in the resulting hash,
-    # the array of like elements is the value.
-    #
-    #   (1..5).group_by { |n| n % 3 }
-    #   #=> { 0 => [3], 1 => [1, 4], 2 => [2,5] }
-    #
-    # Applied to an array.
-    #
-    #   ["I had", 1, "dollar and", 50, "cents"].group_by { |e| e.class }
-    #   #=> { String => ["I had","dollar and","cents"], Fixnum => [1,50] }
-    #
-    # Applied to a hash:
-    #
-    #   {:a=>1, :b=>2, :c=>1}.group_by{ |k,v| v }
-    #   #=> { 1=>[[:c,1], [:a,1]], 2=>[[:b,2]] }
-    #
-    # CREDIT: Erik Veenstra
-
-    def group_by #:yield:
-      r = Hash.new
-      each{ |e| (r[yield(e)] ||= []) << e }
-      r
-    end
-
-  end
-
-end
-

data/lib/core/facets/enumerable/none.rb

@@ -1,32 +0,0 @@
-module Enumerable
-
-  unless method_defined?(:none?)  # 1.8.7+
-
-    # Enumerable#none? is the logical opposite of the builtin method
-    # Enumerable#any?.  It returns +true+ if and only if _none_ of
-    # the elements in the collection satisfy the predicate.
-    #
-    # If no predicate is provided, Enumerable#none? returns +true+
-    # if and only if _none_ of the elements have a true value
-    # (i.e. not +nil+ or +false+).
-    #
-    #   [].none?                      # => true
-    #   [nil].none?                   # => true
-    #   [5,8,9].none?                 # => false
-    #   (1...10).none? { |n| n < 0 }  # => true
-    #   (1...10).none? { |n| n > 0 }  # => false
-    #
-    # CREDIT: Gavin Sinclair
-
-    def none?  # :yield: e
-      if block_given?
-        not self.any? { |e| yield e }
-      else
-        not self.any?
-      end
-    end
-
-  end
-
-end
-

data/lib/core/facets/enumerable/one.rb

@@ -1,39 +0,0 @@
-module Enumerable
-
-  unless method_defined?(:one?)  # 1.8.7+
-
-    # Enumerable#one? returns +true+ if and only if <em>exactly one</em>
-    # element in the collection satisfies the given predicate.
-    #
-    # If no predicate is provided, Enumerable#one? returns +true+ if
-    # and only if <em>exactly one</em> element has a true value
-    # (i.e. not +nil+ or +false+).
-    #
-    #   [].one?                      # => false
-    #   [nil].one?                   # => false
-    #   [5].one?                     # => true
-    #   [5,8,9].one?                 # => false
-    #   (1...10).one? { |n| n == 5 } # => true
-    #   (1...10).one? { |n| n < 5 }  # => false
-    #
-    # CREDIT: Gavin Sinclair
-
-    def one?  # :yield: e
-      matches = 0
-      if block_given?
-        self.each do |e|
-          if yield(e)
-            matches += 1
-            return false if matches > 1
-          end
-        end
-        return (matches == 1)
-      else
-        one? { |e| e }
-      end
-    end
-
-  end
-
-end
-

data/lib/core/facets/enumerable/take.rb

@@ -1,16 +0,0 @@
-module Enumerable
-
-  # Return the first n items from the collection
-  #
-  def take(n)
-    res = []
-    count = 0
-    each do |e|
-      break if count >= n
-      res << e
-      count += 1
-    end
-    res
-  end unless method_defined?(:take)
-
-end

data/lib/core/facets/float/round.rb

@@ -1,2 +0,0 @@
-require 'facets/numeric/round'
-