From af7db89aa3630264c64da638c6330160c99d94b8 Mon Sep 17 00:00:00 2001
From: Jun Hiroe <Jun.Hiroe@gmail.com>
Date: Sat, 22 Mar 2014 13:46:53 +0900
Subject: Add Enumerable#max_by

---
 mrbgems/mruby-enum-ext/mrblib/enum.rb | 35 +++++++++++++++++++++++++++++++++++
 mrbgems/mruby-enum-ext/test/enum.rb   |  4 ++++
 2 files changed, 39 insertions(+)

diff --git a/mrbgems/mruby-enum-ext/mrblib/enum.rb b/mrbgems/mruby-enum-ext/mrblib/enum.rb
index d0e125850..e61062e3f 100644
--- a/mrbgems/mruby-enum-ext/mrblib/enum.rb
+++ b/mrbgems/mruby-enum-ext/mrblib/enum.rb
@@ -267,4 +267,39 @@ module Enumerable
     ary
   end
   alias collect_concat flat_map
+
+  ##
+  # call-seq:
+  #    enum.max_by {|obj| block }      -> obj
+  #    enum.max_by                     -> an_enumerator
+  #
+  # Returns the object in <i>enum</i> that gives the maximum
+  # value from the given block.
+  #
+  # If no block is given, an enumerator is returned instead.
+  #
+  #    %w[albatross dog horse].max_by { |x| x.length }   #=> "albatross"
+
+  def max_by(&block)
+    return to_enum :max_by unless block_given?
+
+    first = true
+    max = nil
+    max_cmp = nil
+
+    self.each do |val|
+      if first
+        max = val
+        max_cmp = block.call(val)
+        first = false
+      else
+        if cmp = block.call(val) > max_cmp
+          max = val
+          max_cmp = cmp
+        end
+      end
+    end
+
+    max
+  end
 end
diff --git a/mrbgems/mruby-enum-ext/test/enum.rb b/mrbgems/mruby-enum-ext/test/enum.rb
index 664c1b344..bca1fc4f6 100644
--- a/mrbgems/mruby-enum-ext/test/enum.rb
+++ b/mrbgems/mruby-enum-ext/test/enum.rb
@@ -76,3 +76,7 @@ assert("Enumerable#flat_map") do
   assert_equal [1, -1, 2, -2, 3, -3, 4, -4], [1, 2, 3, 4].flat_map { |e| [e, -e] }
   assert_equal [1, 2, 100, 3, 4, 100], [[1, 2], [3, 4]].flat_map { |e| e + [100] }
 end
+
+assert("Enumerable#max_by") do
+  assert_equal "albatross", %w[albatross dog horse].max_by { |x| x.length }
+end
-- 
cgit v1.2.3