[ruby-list:40153] Re: 求む，もっとましな連結リストの実装

　小西 弘将です。

>こういうネタを振っていいのか悩みましたが，まあまずいなら叱られて
>恥をかけばいいかと考えることにしました。
>
>http://www.cs.kyoto-wu.ac.jp/info-com/algorithm/sources/list.rb
>
>こういうふうに連結リストの実装を行ってみました。授業のアルゴリズ
>ムとデータ構造の教材です。しかし時間がなくて無理やり作ったソース
>で，自分でも気に入らないのです。

連結リストがほしいときに、RubyではArrayを使うように思います。
今回の例では、下のような感じでしょうか・・・。(挿入の定義がちょっと違い
ます)

添付で、私好みの双方向連結リストを載せてみます。(あんまり美しくないです
が・・・特にCellのアクセス制限が)。これでも、list同士の連結やら、あれこ
れメソッドが足りないように思えます。

やはり、ディープコピーをしないRubyで、連結リストをわざわざ実装する必然性
は勉強以外にあまり認められない気がします。


# Arrayによる実装 ###################################################
#!/usr/local/bin/ruby
# list_ary.rb
# リストの実験 Array版というか、そのまんまArray

require "jcode"

class List < Array
  def find( name )
    each_with_index do |data, index|
      return index if data == name
    end
    return size
  end
  def insert( name, data )
    super find( name ), data
  end
end

############### Main Program ##################
list = List.new

#特異メソッドの定義
def list.showlinks( name = nil, num = 1 )
  pos = find( name )
  (pos..(pos+num)).each do |i|
    break if i >= size
    print at(i), "\n"
  end
end
def list.show
  each do |data|
    print data, "\n"
  end
end

print "リストに動物の名前を加える\n"
list << "こぶた" << "たぬき"  << "きつね" << "ねこ" << "こあら" << "らっ
こ"
list.show

print "\nこぶた から後の最大10個のセルを表示する\n"
list.showlinks "こぶた", 10

print "\nたぬき の位置に きつつき を挿入\n"
list.insert( "たぬき", "きつつき")
list.showlinks "こぶた", 10

print "\nたぬき のセルを削除\n"
list.delete( "たぬき" )
list.show


#〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
# 小西 弘将 ( KONISHI Hiromasa )
# [e-mail]
#〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜