lite-ruby 1.0.14 → 1.0.15

data/lib/lite/ruby/enumerable.rb

@@ -1,227 +1,229 @@
 # frozen_string_literal: true
 
-module Enumerable
+if Lite::Ruby.configuration.monkey_patches.include?('enumerable')
+  module Enumerable
 
-  def cluster
-    each_with_object([]) do |ele, results|
-      last_res = results.last
+    def cluster
+      each_with_object([]) do |ele, results|
+        last_res = results.last
 
-      if last_res && (yield(ele) == yield(last_res.last))
-        last_res << ele
+        if last_res && (yield(ele) == yield(last_res.last))
+          last_res << ele
+        else
+          results << [ele]
+        end
+      end
+    end
+
+    def cluster_by(&block)
+      group_by(&block).sort.transpose.pop || []
+    end
+
+    def deduce(identity = 0, &block)
+      if block_given?
+        map(&block).deduce(identity)
       else
-        results << [ele]
+        inject { |acc, val| acc - val } || identity
       end
     end
-  end
 
-  def cluster_by(&block)
-    group_by(&block).sort.transpose.pop || []
-  end
+    def drop_last(num)
+      collection_size = to_a.size
+      return self if num > collection_size
 
-  def deduce(identity = 0, &block)
-    if block_given?
-      map(&block).deduce(identity)
-    else
-      inject { |acc, val| acc - val } || identity
+      self[0...(collection_size - num)]
     end
-  end
 
-  def drop_last(num)
-    collection_size = to_a.size
-    return self if num > collection_size
+    def drop_last_if
+      dropping = true
+      reverse_each.with_object([]) do |val, arr|
+        next if dropping &&= yield(val)
 
-    self[0...(collection_size - num)]
-  end
+        arr.unshift(val)
+      end
+    end
 
-  def drop_last_if
-    dropping = true
-    reverse_each.with_object([]) do |val, arr|
-      next if dropping &&= yield(val)
+    def exactly?(num)
+      found_count = 0
 
-      arr.unshift(val)
+      if block_given?
+        each { |*opt| found_count += 1 if yield(*opt) }
+      else
+        each { |opt| found_count += 1 if opt }
+      end
+
+      found_count > num ? false : num == found_count
     end
-  end
 
-  def exactly?(num)
-    found_count = 0
+    # rubocop:disable Style/CaseEquality
+    def excase?(object)
+      none? { |val| object === val }
+    end
+    # rubocop:enable Style/CaseEquality
 
-    if block_given?
-      each { |*opt| found_count += 1 if yield(*opt) }
-    else
-      each { |opt| found_count += 1 if opt }
+    def exclude?(object)
+      !include?(object)
     end
 
-    found_count > num ? false : num == found_count
-  end
+    def expand
+      map { |val| val.is_a?(Enumerable) ? val.expand : val }
+    end
 
-  # rubocop:disable Style/CaseEquality
-  def excase?(object)
-    none? { |val| object === val }
-  end
-  # rubocop:enable Style/CaseEquality
+    def exponential(identity = 0, &block)
+      if block_given?
+        map(&block).exponential(identity)
+      else
+        inject { |acc, val| acc**val } || identity
+      end
+    end
 
-  def exclude?(object)
-    !include?(object)
-  end
+    def frequency
+      each_with_object(Hash.new(0)) { |val, hash| hash[val] += 1 }
+    end
 
-  def expand
-    map { |val| val.is_a?(Enumerable) ? val.expand : val }
-  end
+    alias occurrences frequency
 
-  def exponential(identity = 0, &block)
-    if block_given?
-      map(&block).exponential(identity)
-    else
-      inject { |acc, val| acc**val } || identity
+    # rubocop:disable Style/CaseEquality
+    def incase?(object)
+      any? { |val| object === val }
     end
-  end
+    # rubocop:enable Style/CaseEquality
+
+    # rubocop:disable Metrics/MethodLength
+    def interpose(sep, &block)
+      enum = Enumerator.new do |val|
+        items = each
+
+        loop do
+          begin
+            val << items.next
+          rescue StopIteration
+            break
+          end
+
+          begin
+            items.peek
+          rescue StopIteration
+            break
+          else
+            val << sep
+          end
+        end
+      end
 
-  def frequency
-    each_with_object(Hash.new(0)) { |val, hash| hash[val] += 1 }
-  end
+      block ? enum.each(&block) : enum
+    end
+    # rubocop:enable Metrics/MethodLength
 
-  alias occurrences frequency
+    def many?
+      found_count = 0
 
-  # rubocop:disable Style/CaseEquality
-  def incase?(object)
-    any? { |val| object === val }
-  end
-  # rubocop:enable Style/CaseEquality
-
-  # rubocop:disable Metrics/MethodLength
-  def interpose(sep, &block)
-    enum = Enumerator.new do |val|
-      items = each
-
-      loop do
-        begin
-          val << items.next
-        rescue StopIteration
-          break
+      if block_given?
+        any? do |val|
+          found_count += 1 if yield(val)
+          found_count > 1
         end
+      else
+        any? { (found_count += 1) > 1 }
+      end
+    end
 
-        begin
-          items.peek
-        rescue StopIteration
-          break
-        else
-          val << sep
+    def modulate(modulo)
+      if modulo == 1
+        to_a
+      elsif size % modulo != 0
+        raise ArgumentError, "Invalid modulo: #{modulo.inspect}"
+      else
+        (0...size).each_with_object(Array.new(modulo, [])) do |i, array|
+          array[i % modulo] += [self[i]]
         end
       end
     end
 
-    block ? enum.each(&block) : enum
-  end
-  # rubocop:enable Metrics/MethodLength
+    # rubocop:disable Metrics/AbcSize, Metrics/MethodLength
+    def occur(amount = nil)
+      result = Hash.new { |hash, key| hash[key] = [] }
+
+      each do |item|
+        key = item
+        result[key] << item
+      end
 
-  def many?
-    found_count = 0
+      if block_given?
+        result.select! { |_key, values| yield(values.size) }
+      else
+        raise ArgumentError, 'Invalid occur amount' unless amount
 
-    if block_given?
-      any? do |val|
-        found_count += 1 if yield(val)
-        found_count > 1
+        if amount.is_a?(Range)
+          result.select! { |_key, values| amount.include?(values.size) }
+        else
+          result.select! { |_key, values| values.size == amount }
+        end
       end
-    else
-      any? { (found_count += 1) > 1 }
+
+      result.values.flatten.uniq
     end
-  end
+    # rubocop:enable Metrics/AbcSize, Metrics/MethodLength
 
-  def modulate(modulo)
-    if modulo == 1
-      to_a
-    elsif size % modulo != 0
-      raise ArgumentError, "Invalid modulo: #{modulo.inspect}"
-    else
-      (0...size).each_with_object(Array.new(modulo, [])) do |i, array|
-        array[i % modulo] += [self[i]]
+    def produce(identity = 0, &block)
+      if block_given?
+        map(&block).produce(identity)
+      else
+        inject { |acc, val| acc * val } || identity
       end
     end
-  end
 
-  # rubocop:disable Metrics/AbcSize, Metrics/MethodLength
-  def occur(amount = nil)
-    result = Hash.new { |hash, key| hash[key] = [] }
-
-    each do |item|
-      key = item
-      result[key] << item
+    def quotient(identity = 0, &block)
+      if block_given?
+        map(&block).quotient(identity)
+      else
+        inject { |acc, val| acc / val } || identity
+      end
     end
 
-    if block_given?
-      result.select! { |_key, values| yield(values.size) }
-    else
-      raise ArgumentError, 'Invalid occur amount' unless amount
+    def several?
+      found_count = 0
 
-      if amount.is_a?(Range)
-        result.select! { |_key, values| amount.include?(values.size) }
+      if block_given?
+        each { |*opt| found_count += 1 if yield(*opt) }
       else
-        result.select! { |_key, values| values.size == amount }
+        each { |opt| found_count += 1 if opt }
       end
-    end
-
-    result.values.flatten.uniq
-  end
-  # rubocop:enable Metrics/AbcSize, Metrics/MethodLength
 
-  def produce(identity = 0, &block)
-    if block_given?
-      map(&block).produce(identity)
-    else
-      inject { |acc, val| acc * val } || identity
+      found_count > 1
     end
-  end
 
-  def quotient(identity = 0, &block)
-    if block_given?
-      map(&block).quotient(identity)
-    else
-      inject { |acc, val| acc / val } || identity
+    # rubocop:disable Metrics/MethodLength
+    def squeeze(*limited_to)
+      first = true
+      current = nil
+
+      each_with_object([]) do |val, array|
+        if !limited_to.empty? && !limited_to.include?(val)
+          array << val
+        elsif first || current != val
+          array << val
+          first = false
+          current = val
+        end
+      end
     end
-  end
+    # rubocop:enable Metrics/MethodLength
 
-  def several?
-    found_count = 0
+    def take_last(num)
+      collection_size = to_a.size
+      return self if num > collection_size
 
-    if block_given?
-      each { |*opt| found_count += 1 if yield(*opt) }
-    else
-      each { |opt| found_count += 1 if opt }
+      self[(collection_size - num)..-1]
     end
 
-    found_count > 1
-  end
+    def take_last_if
+      reverse_each.with_object([]) do |val, arr|
+        break arr unless yield(val)
 
-  # rubocop:disable Metrics/MethodLength
-  def squeeze(*limited_to)
-    first = true
-    current = nil
-
-    each_with_object([]) do |val, array|
-      if !limited_to.empty? && !limited_to.include?(val)
-        array << val
-      elsif first || current != val
-        array << val
-        first = false
-        current = val
+        arr.unshift(val)
       end
     end
-  end
-  # rubocop:enable Metrics/MethodLength
-
-  def take_last(num)
-    collection_size = to_a.size
-    return self if num > collection_size
-
-    self[(collection_size - num)..-1]
-  end
-
-  def take_last_if
-    reverse_each.with_object([]) do |val, arr|
-      break arr unless yield(val)
 
-      arr.unshift(val)
-    end
   end
-
 end