[ruby-dev:18747] Re: Enumerable#zip

At Tue, 12 Nov 2002 00:25:34 +0900,
matz wrote:
> cについては、
> 
>   class IndexedEnumerable
>     include Enumerable
>     def initialize(e)
>       @enum = e
>       @index = 0
>     end
>     def each
>       @enum.each do |x|
>         yield x, @index
>         @index += 1
>       end
>     end
>   end
>   b = IndexedEnumerable.new(a)
>   b.map{|x,i|...}
> 
> のようなのがあったら問題解決？

　これはすなわち

class IndexedEnumerable
  include Enumerable
  def initialize(e)
    @enum = e
  end
  def each
    @enum.each_with_index do |x|
      yield x
   end
  end
end

であり、 each_with_index を each とするというものですが、より
一般化したやつを前に書いたことがあります。(提案もしたっけ)

http://www.ruby-lang.org/cgi-bin/cvsweb.cgi/rough/ext/enumerator/

これを使うと

a.enum_with_index.map{|x,i|...}

または

b = Enumerator.new(a, :each_with_index)
b.map{|x,i|...}

となります。


　あと、こないだ発作的に作ってみたのが、指定したクラスの each_foo
というメソッドすべて、もしくは指定したイテレータメソッド foo に
ついて map_foo, grep_foo, ... を定義してしまうという強引な物です。

module Enumerable
  class Enumerator
    include Enumerable

    def initialize(enumobj, method, *args)
      @enumobj = enumobj
      @method = method
      @args = args
    end
    
    def each(&block)
      @enumobj.send(@method, *@args, &block)
    end
  end

  def Enumerable.activate_enum_sub(enum_method)
    enum_method = enum_method.to_s if !enum_method.is_a?(String)

    if /^each_(.*)/ =~ enum_method
      suffix = $1
    else
      suffix = enum_method
    end

    Enumerable.instance_methods.each { |meth|
      if /([?!])$/ =~ meth
	suffixed_meth = sprintf('%s_%s%c', meth[0..-2], suffix, meth[-1])
      else
	suffixed_meth = sprintf('%s_%s', meth, suffix)
      end
      
      yield <<-EOF
	def #{suffixed_meth}(*args, &block)
	  Enumerator.new(self, :#{enum_method}).#{meth}(*args, &block)
        end
      EOF
    }
  end

  def Enumerable.activate_module_enum(mod, *enum_methods)
    enum_methods.concat(mod.instance_methods.grep(/^each_[a-z_]+/))

    enum_methods.each { |enum_method|
      activate_enum_sub(enum_method) { |method_def|
	mod.module_eval method_def
      }
    }
  end

  def Enumerable.activate_singleton_enum(obj, *enum_methods)
    enum_methods.concat(obj.singleton_methods.grep(/^each_[a-z_]+/))

    enum_methods.each { |enum_method|
      activate_enum_sub(enum_method) { |method_def|
	obj.instance_eval method_def
      }
    }
  end
end


Enumerable.activate_module_enum Hash

a = { 1=>'a', 2=>'bb', 3=>'ccc', 0=>'abc' }

p a.grep_value(/b/)
p (a.select_value {|v| v.size == 3 })
p a.max_key

Enumerable.activate_singleton_enum ObjectSpace

p ObjectSpace.grep_object(Module) 

require 'etc'

Enumerable.activate_singleton_enum Etc, :group, :passwd

p (Etc.select_passwd { |u| u.uid < 10 })

p (Etc.collect_group { |g| g.name })


　便利そうなんだけど、標準に持っていくにはいまひとつケレン味が
抜けない感じもする。かといって標準になければ使えないのと同じと
いうのは前にも言った通り。

　イテレータについては Ruby の大きな魅力の部分でもあるので、
いろいろな人の意見を聞きたいところです。

-- 
                     /
                    /__  __            Akinori.org / MUSHA.org
                   / )  )  ) )  /     FreeBSD.org / Ruby-lang.org
Akinori MUSHA aka / (_ /  ( (__(  @ iDaemons.org / and.or.jp

"When I leave I don't know what I'm hoping to find
              When I leave I don't know what I'm leaving behind.."