[ruby-list:21121] Re: transpose, each_thread, etc...

原です。

In message "[ruby-list:21109] Re: transpose, each_thread, etc..."

|お世話になっております。 A.中村です。

|＞(2) Array#transpose
|＞いわゆる行列の転置を組み込みにする事の提案です。つまり、
|＞  arrays = [["a", 97], ["b", 98], ["c", 99]]
|＞に対して
|＞  arrays.transpose #=>[["a", "b", "c"], [97, 98, 99]]

|これ、3次元以上になったらどう考えるのが妥当なんでしょう?
|次元のrotateっていう感じなのでしょうか？

よい質問です。(^^; 配列の奥の方がまた配列になっていたとしても、短なるオ
ブジェクトとして扱った方がいいのではないかと思うんですよね。つまり一番浅
い２つだけを交換すると。

データの基本的な形として

  データ＝レコードの配列
  レコード＝フィールドの配列

というのがあると思うんですよ。つまり2次元配列は特別扱いしてい
いのではないでしょうか。

まあ、無理すれば任意の２次元を選んで交換できますが。

  data = [[["000", "001"], ["010", "011"]],
          [["100", "101"], ["110", "111"]]]
  data.transpose  # 0 <-> 1
  data.collect{|x| x.transpose} # 1 <-> 2
  data.transpose.collect{|x| x.transpose}.transpose # 0 <-> 2

しかしそういうのは Tensor クラスとかを作って対応すべきかな。

|あと、次元が不揃いだったら…例外で門前払いですか?

確かにこれが問題です。この辺を組み込みで適当にやってもらえる所がありがた
いところでもあるのですが。あり得るのは、

(1) 不揃いな次元は例外発生。
(2) transpose(n) と各要素の次元 n を指定できる。
(3) 最大の配列で次元を決めてしまう。
(4) 最初の配列で次元を決めてしまう。

ぐらいでしょうか。(4)なら

  class Array
    def transpose
      (0..(self[0].size-1)).collect{|i| collect{|a| a[i]}}
    end
  end

と書けます。書けるけれど、難しいですよね。

もう少し transpose の有用性をアピールしておくと、例えば、しばしばテーブ
ル型のデータのインターフェースの相違を吸収してくれるでしょう：

  Hash[*[keys, values].transpose.flatten]

の様に。

また、数値のテーブルの総和を求める縦横計算ってありますよね。transpose が
あれば、

  tot = table.collect{|x| x + [sum(x)]}
  tot << tot.transpose.collect{|x| sum(x)}

で済んでしまいます。（今だかつてない簡便さじゃない？）

-----^ test-transpose.rb
#!/usr/bin/ruby
class Array
  def transpose
    (0..(self[0].size-1)).collect{ |i| collect{ |a| a[i] } }
  end
end
def sum(array, tot = 0)
  array.each do |x| tot += x; end
  tot
end

table = DATA.readlines.collect{|x|
  x.chomp.split.collect{|y| y.to_i}
}
tot = table.collect{|x| x + [sum(x)]}
tot << tot.transpose.collect{|x| sum(x)}
tot.each do |x|
  puts " %3s" * x.size % x
end

__END__
11 22 33
44 55 66
77 88 99
12 34 56
-----$ test-transpose.rb
=>
  11  22  33  66
  44  55  66 165
  77  88  99 264
  12  34  56 102
 144 199 254 597

って、こういう話は ruby-dev でしたか。なんか成行きで、、、(^^;