[ruby-list:34912] Re: creating a scope / anonymous module

In article <[e-mail]>,
  Takaaki Tateishi <[e-mail]> writes:

> はい．それでは今回話題に出そうと思ったきっかけとなったコードを簡略化
> したものを出します．与えられたルールに従ってprocオブジェクトをつくり
> 出すことを考えます．

うぅむ、高階関数な話か... でもちょっと関数型プログラミングとしては中途
半端かな。関数型で書くなら

def mk_encoders(rule)
  [
    rule.inject(proc{|s| s}) {|r, enc|
      case r
      when "A"
        proc{|s| enc.call(s) + "A"}
      when "B"
        proc{|s| enc.call(s) + "B"}
      end
    },
    rule.inject(proc{|s| s}) {|r, enc|
      case r
      when "A"
        proc{|s| enc.call(s) + "a"}
      when "B"
        proc{|s| enc.call(s) + "b"}
      end
    }
  ]
end

あるいは、(ループの各ステップで encoder1 が encoder2 に影響を与えるなら)

def mk_encoders(rule)
  rule.inject([proc{|s| s}, proc{|s| s}]) {|r, (enc1, enc2)|
    [
      case r
      when "A"
        proc{|s| enc1.call(s) + "A"}
      when "B"
        proc{|s| enc1.call(s) + "B"}
      end,
      case r
      when "A"
        proc{|s| enc2.call(s) + "a"}
      when "B"
        proc{|s| enc2.call(s) + "b"}
      end
    ]
  }
end

ないしは

def mk_encoders(rule)
  rule.inject([proc{|s| s}, proc{|s| s}]) {|r, (enc1, enc2)|
    case r
    when "A"
      [proc{|s| enc1.call(s) + "A"}, proc{|s| enc2.call(s) + "a"}]
    when "B"
      [proc{|s| enc1.call(s) + "B"}, proc{|s| enc2.call(s) + "b"}]
    end
  }
end

かなぁ、とか思ったりして。

# inject は要 1.7 だけど。
-- 
[田中 哲][たなか あきら][Tanaka Akira]
「ふえろ! わかめちゃん作戦です$(C⊇」(Little Worker, 桂遊生丸)