Contents

module Rupture
  class LazySeq < Seq
    def initialize(block = nil)
      @block = block
    end

    def seq
      return @seq unless @block
      @seq   = @block.call.seq
      @block = nil
      @seq
    end
  end
end

module Enumerable
  def seq
    F.lazy_seq do
      callcc do |external|
        each do |item|
          external = callcc do |internal|
            rest = F.lazy_seq do
              callcc do |external|
                internal.call(external)
              end
            end
            external.call(F.cons(item, rest))
          end
        end
        external.call(nil)
      end
    end
  end
end

Version data entries

2 entries across 2 versions & 1 rubygems

Version	Path
rupture-0.2.1	lib/rupture/lazy_seq.rb
rupture-0.2.0	lib/rupture/lazy_seq.rb