Contents

context :ImmutableStack do
  role :head do
  end
  role :tail do
  end

  def pop
    [@head, @tail]
  end

  def push(element)
    ImmutableStack.new element, self
  end

  def self.empty
    @@empty ||= self.new(nil, nil)
  end

  def each
    yield head
    t = tail
    while t != ImmutableStack::empty do
      h, t = t.pop
      yield h
    end
  end

  def initialize(h, t)
    @head = h
    @tail = t
    self.freeze
  end
end

Version data entries

2 entries across 2 versions & 1 rubygems

Version	Path
maroon-0.7.1	base/ImmutableStack.rb
maroon-0.7.0	base/ImmutableStack.rb