lab419_streams 0.1.0.pre

data/LICENSE

@@ -0,0 +1,10 @@
+The MIT License (MIT)
+
+Copyright (c) 2012 Robert Dober
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+

data/README.md

@@ -0,0 +1,14 @@
+# Lab419 Streams
+
+## Lazy Evaluation For Lazy Programmers
+
+
+### The Integers
+
+```ruby
+  integers = cons_stream( 0 ){ binop_stream( :+, integers, 1 ) }
+
+  integers.head        # --> 0
+
+  integers.tail.take 5 # --> [*1..5]
+```

data/lib/lab419/streams.rb

@@ -0,0 +1 @@
+require 'lab419/streams/kernel'

data/lib/lab419/streams/derived.rb

@@ -0,0 +1,65 @@
+module Lab419
+  module Streams
+    module Derived
+
+      def append *streams
+        return __append_to_empty__ streams if empty?
+        cons_stream head do
+          tail.append( *streams )
+        end
+      end
+
+      def filter lbda=nil, &or_blk
+        raise ArgumentError, "provide either block or lambda" if !!lbda == !!or_blk
+        __filter__ lbda || or_blk
+      end
+
+      # TODO: To a module for streams of streams?
+      def flatmap lbda=nil, &or_blk
+        raise ArgumentError, "provide either block or lambda" if !!lbda == !!or_blk
+        __flatmap__ lbda || or_blk
+      end
+
+      def merge other
+        other = other.to_stream unless self.class === other
+        Streams::Merger.merge self, other
+      end
+      def smap lbda=nil, &or_blk
+        raise ArgumentError, "provide either block or lambda" if !!lbda == !!or_blk
+        __smap__ lbda || or_blk
+      end
+
+      protected
+      def __filter__ lbda
+        return empty_stream if empty?
+        return cons_stream( head ){ tail.__filter__ lbda } if lbda.( head )
+        return tail.__filter__ lbda
+      end
+
+      def __flatmap__ lbda
+        return empty_stream if empty?
+        return tail.__flatmap__ lbda if head.empty?
+        cons_stream lbda.( head.first ) do
+          cons_stream( head.tail ){ tail }.__flatmap__ lbda
+        end
+      end
+
+      def __smap__ lbda
+        return empty_stream if empty?
+        return cons_stream lbda.( head ) do
+          tail.__smap__ lbda
+        end
+      end
+
+      private
+      def __append_to_empty__ streams
+        if streams.empty?
+          empty_stream
+        else
+          streams.first.append( *streams[1..-1] )
+        end
+      end
+
+    end # module Derived
+  end # module Streams
+end # module Lab419

data/lib/lab419/streams/empty.rb

@@ -0,0 +1,17 @@
+require 'singleton'
+
+module Lab419
+  class Stream
+    IllegalStreamState = Class.new RuntimeError
+    class Empty < Lab419::Stream
+      include Singleton
+      def head; raise IllegalStreamState, "must not call head on empty stream" end
+      def tail; raise IllegalStreamState, "must not call tail on empty stream" end
+      def empty?; true end
+
+      private
+      def initialize; end
+
+    end # class Empty
+  end # class Stream
+end # module Lab419

data/lib/lab419/streams/enumerable.rb

@@ -0,0 +1,20 @@
+require 'lab419/streams' # To allow to require this file directly without any precondition
+
+module Enumerable
+  # TODO: Overload for arrays in order not to create an enumerator for absolutely nothing
+  def to_stream
+    __to_stream__ to_enum
+  end
+  private
+  def __to_stream__ enum
+    cons_stream( enum.next ){ __to_stream__ enum }
+  rescue StopIteration
+    empty_stream
+  end  
+end
+
+module Kernel
+  def finite_stream *args
+    args.to_stream
+  end
+end # module Kernel

data/lib/lab419/streams/helpers/merger.rb

@@ -0,0 +1,19 @@
+module Lab419
+  module Streams
+    module Merger extend self
+      def merge str1, str2
+        if str1.empty?
+          str2
+        elsif str2.empty?
+          str1
+        else
+          cons_stream( str1.head ){
+            cons_stream( str2.head ){
+              merge str1.tail, str2.tail
+            }
+          }
+        end
+      end
+    end # module Merger extend self
+  end # module Streams
+end # module Lab419

data/lib/lab419/streams/integers.rb

@@ -0,0 +1,16 @@
+require 'lab419/streams'
+
+module Kernel
+  def integers from = 0
+    cons_stream from do
+      integers from.succ
+    end
+  end
+  # There are so many possibilities to define odds and evens that it is mind boggeling
+  def odds from=1
+    integers( from ).filter(&:odd?)
+  end
+  def evens from=0
+    integers( from ).filter(&:even?)
+  end
+end # module Kernel

data/lib/lab419/streams/kernel.rb

@@ -0,0 +1,27 @@
+require 'lab419/streams/stream'
+
+module Kernel
+      def binop_stream_const op, lhs_stream, rhs_operand
+        return lhs_stream if lhs_stream.empty?
+        cons_stream lhs_stream.head.send( op, rhs_operand ) do
+          binop_stream_const op, lhs_stream.tail, rhs_operand
+        end
+      end
+
+      def binop_streams op, lhs, rhs
+        return empty_stream if lhs.empty? || rhs.empty?
+        cons_stream lhs.head.send( op, rhs.head ) do
+          binop_streams op, lhs.tail, rhs.tail
+        end
+      end
+
+      def cons_stream head, &tail
+        Lab419::Stream.new head, tail
+      end
+
+      def const_stream const
+        cons_stream( const ){ const_stream const }
+      end
+
+      def empty_stream; Lab419::Stream::Empty.instance end
+end # module Kernel

data/lib/lab419/streams/operators.rb

@@ -0,0 +1,18 @@
+module Lab419
+  module Streams
+    module Operators
+      def + otha
+        otha is const_stream otha unless self.class === otha
+        __plus__ otha
+      end
+
+      protected
+      def __plus__ otha
+        return empty_stream if empty?
+        cons_stream head + otha.head do
+          tail.__plus__ otha.tail
+        end
+      end
+    end # module Operators
+  end # module Streams
+end # module Lab419

data/lib/lab419/streams/stream.rb

@@ -0,0 +1,69 @@
+require 'lab419/streams/empty'
+require 'lab419/streams/helpers/merger'
+require 'lab419/streams/operators'
+require 'lab419/streams/derived'
+
+module Lab419
+  class Stream
+    
+    attr_reader :head
+
+    include Enumerable
+    include Lab419::Streams::Operators
+    include Lab419::Streams::Derived
+
+
+    def drop n = 1
+      x = self
+      loop do
+        return empty_stream if x.empty?
+        return x if n.zero?
+        x = x.tail
+        n -= 1
+      end
+    end
+
+    def each
+      x = self
+      loop do
+        return if x.empty?
+        yield x.head.tap{ x = x.tail }
+      end
+    end
+
+    def empty?; false end
+
+    def tail
+      @tail.()
+    end
+
+    def take n = 1
+      x = self
+      n.times.inject [] do | a, _ |
+        return a if x.empty?
+        a << x.head
+        x = x.tail
+        a
+      end
+    end
+
+    private
+    def initialize head, tail
+      @head = head
+      @tail = memoize tail
+    end 
+
+    def memoize lbda
+      run = false
+      result = nil
+      -> do
+        if run
+          result
+        else
+          run = true
+          result = lbda.()
+        end
+      end
+    end
+  end # class Stream
+end # module Lab419

data/lib/lab419/streams/version.rb

@@ -0,0 +1,5 @@
+module Lab419
+  module Streams
+    VERSION = "0.1.0.pre"
+  end # module Streams
+end # module Lab419

metadata

@@ -0,0 +1,107 @@
+--- !ruby/object:Gem::Specification
+name: lab419_streams
+version: !ruby/object:Gem::Version
+  version: 0.1.0.pre
+  prerelease: 6
+platform: ruby
+authors:
+- Robert Dober
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-02-17 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: ruby-debug19
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0.11'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0.11'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.9.2.2
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.9.2.2
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.12.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.12.0
+description: ! "Implemention of streams in the classic sense where a stream is a head
+  and a promise to compute the tail.\n    Utilities to use streams from enumerables"
+email: robert.dober@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/lab419/streams/enumerable.rb
+- lib/lab419/streams/integers.rb
+- lib/lab419/streams/kernel.rb
+- lib/lab419/streams/version.rb
+- lib/lab419/streams/derived.rb
+- lib/lab419/streams/stream.rb
+- lib/lab419/streams/operators.rb
+- lib/lab419/streams/empty.rb
+- lib/lab419/streams/helpers/merger.rb
+- lib/lab419/streams.rb
+- LICENSE
+- README.md
+homepage: https://github.com/RobertDober/lab419
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.9.2
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>'
+    - !ruby/object:Gem::Version
+      version: 1.3.1
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: Implementing Lazy Evaluation
+test_files: []
+has_rdoc: