ruby--ruby/sample/list.rb

# Linked list example
class MyElem
  # <20><><EFBFBD>֥<EFBFBD><D6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD>ưŪ<C6B0>˸ƤФ<C6A4><D0A4><EFBFBD><EFBFBD>᥽<EFBFBD>å<EFBFBD>
  def initialize(item)
    # @<40>ѿ<EFBFBD><D1BF>ϥ<EFBFBD><CFA5>󥹥<EFBFBD><F3A5B9A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѿ<EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>פ<EFBFBD><D7A4>ʤ<EFBFBD>)
    @data = item
    @succ = nil
  end

  def data
    @data
  end

  def succ
    @succ
  end

  # <20><>obj.data = val<61>פȤ<D7A4><C8A4><EFBFBD><EFBFBD>Ȥ<EFBFBD><C8A4>˰<EFBFBD><CBB0>ۤ˸ƤФ<C6A4><D0A4><EFBFBD><EFBFBD>᥽<EFBFBD>å<EFBFBD>
  def succ=(new)
    @succ = new
  end
end

class MyList
  def add_to_list(obj)
    elt = MyElem.new(obj)
    if @head
      @tail.succ = elt
    else
      @head = elt
    end
    @tail = elt
  end

  def each
    elt = @head
    while elt
      yield elt
      elt = elt.succ
    end
  end

  # <20><><EFBFBD>֥<EFBFBD><D6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȥ<EFBFBD>ʸ<EFBFBD><CAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᥽<EFBFBD>å<EFBFBD>
  # <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>print<6E>Ǥ<EFBFBD>ɽ<EFBFBD><C9BD><EFBFBD><EFBFBD><EFBFBD>Ѥ<EFBFBD><D1A4><EFBFBD>
  def to_s
    str = "<MyList:\n";
    for elt in self
      # <20><>str = str + elt.data.to_s + "\n"<22>פξ<D7A4>ά<EFBFBD><CEAC>
      str += elt.data.to_s + "\n"
    end
    str += ">"
    str
  end
end

class Point
  def initialize(x, y)
    @x = x; @y = y
    self
  end

  def to_s
    sprintf("%d@%d", @x, @y)
  end
end

# <20><><EFBFBD><EFBFBD><EFBFBD>ѿ<EFBFBD><D1BF><EFBFBD>`$'<27>ǻϤޤ롥
$list1 = MyList.new
$list1.add_to_list(10)
$list1.add_to_list(20)
$list1.add_to_list(Point.new(2, 3))
$list1.add_to_list(Point.new(4, 5))
$list2 = MyList.new
$list2.add_to_list(20)
$list2.add_to_list(Point.new(4, 5))
$list2.add_to_list($list1)

# ۣ<><DBA3><EFBFBD>Ǥʤ<C7A4><CAA4>¤<EFBFBD><C2A4>᥽<EFBFBD>åɸƤӽФ<D3BD><D0A4>γ<EFBFBD><CEB3>̤Ͼ<CCA4>ά<EFBFBD>Ǥ<EFBFBD><C7A4><EFBFBD>
print "list1:\n", $list1, "\n"
print "list2:\n", $list2, "\n"