reducers 0.0.5

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 9e4ce6f19825a68ed2f7fe8789f4664ad5e53162
+  data.tar.gz: 58ca8955c2d87b32de33fb068654c2caddd48193
+SHA512:
+  metadata.gz: cf8a8a0f43172d79c381ed2fe051222235ea910104b93a334b0ac5233a724164d30a82f442faa6fa9470ba0b99fd632dd7a8a1bdd3833e28ac2a1be89f11fda7
+  data.tar.gz: 849e17e58a0cc129a20ada47ece1a5a95e2a7e7e2caab69a2ea63419e9afb8103688e6e15bb4e831a952644bc42fab92eb4b3e765fda3e339c65cfbd933b041e

data/.autotest

@@ -0,0 +1 @@
+require "autotest/bundler"

data/.rspec

@@ -0,0 +1 @@
+

data/History.txt

@@ -0,0 +1,6 @@
+=== 1.0.0 / 2012-12-24
+
+* 1 major enhancement
+
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,11 @@
+.autotest
+.rspec
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/reducers
+lib/reducers.rb
+lib/reducers/functional.rb
+spec/reducers_spec.rb
+spec/spec_helper.rb

data/README.txt

@@ -0,0 +1,59 @@
+= reducers
+
+== https://github.com/dsisnero/reducers
+
+
+
+== DESCRIPTION:
+
+This library is intended to provide a reducer library on collections for ruby like the clojure reducers
+
+== FEATURES/PROBLEMS:
+
+* 
+
+== SYNOPSIS:
+
+ 
+
+== REQUIREMENTS:
+
+
+
+== INSTALL:
+
+ sudo gem install reducers
+
+== DEVELOPERS:
+
+After checking out the source, run:
+
+  $ rake newb
+
+This task will install any missing dependencies, run the tests/specs,
+and generate the RDoc.
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2012 FIX
+
+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/Rakefile

@@ -0,0 +1,49 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+
+Hoe.plugin :bundler
+
+# Hoe.plugin :compiler
+# Hoe.plugin :compiler
+# Hoe.plugin :gem_prelude_sucks
+# Hoe.plugin :gem_prelude_sucks
+# Hoe.plugin :inline
+# Hoe.plugin :inline
+# Hoe.plugin :racc
+# Hoe.plugin :racc
+# Hoe.plugin :rcov
+# Hoe.plugin :rcov
+# Hoe.plugin :rubyforge
+# Hoe.plugin :rubyforge
+
+Hoe.spec 'reducers' do
+
+  developer('Dominic Sisneros', 'dsisnero@gmail.com')
+  # extra_deps << ['blah', '~> 1.0']
+  # extra_dev_deps << ['blah', '~>1.0']
+  # dependency(name,version,type)  :type one of :[:runtime, :dev,
+  # :development, :developer]
+  dependency('hoe-bundler', '> 0.0.0', :dev)
+  dependency('rspec', '> 0.0.0', :dev)
+  dependency('ZenTest', '> 0.0.0', :dev)
+  dependency('cucumber', '> 0.0.0', :dev)
+  dependency('aruba', '> 0.0.0', :dev)
+  dependency('lazing', '>0.0.0', :dev)
+
+  ##
+  # Optional: Extra files you want to add to RDoc.
+  #
+  # .txt files are automatically included (excluding the obvious).
+
+  # extra_rdoc_files
+
+  ##
+  # Optional: The filename for the project history. [default: History.txt]
+
+  # history_file
+
+
+  # self.rubyforge_name = 'reducers' # if different than 'reducers'
+end

data/bin/reducers

@@ -0,0 +1,3 @@
+#!/usr/bin/env ruby
+
+abort "you need to write me"

data/lib/reducers.rb

@@ -0,0 +1,330 @@
+require_relative 'reducers/functional'
+
+module Enumerable
+
+  def lazy2(&block)
+    Reducers::Reducible.new(self)
+  end
+
+end
+
+
+module Reducers
+
+  VERSION = '0.0.5'
+
+  module Transformers
+
+    def map(&block)
+      add_proc mapping(&block)
+      self
+    end
+
+    def mash
+            reduce({}) do |result, input|
+
+        r = yield input
+
+        case r
+        when Hash
+          nk, nv = *r.to_a[0]
+        when Range
+          nk, nv = r.first, r.last
+        else
+          nk, nv = *r
+        end
+        result[nk] = nv
+        result
+      end
+    end
+
+    def duplicate_on(&block)
+      group_by(&block).map{|x| x[1]}.select{|x| x.size > 1}
+    end
+
+    def group_by()
+      groups = reduce({}) do |h,i|
+        result = yield i
+        if h[result]
+          h[result] << i
+        else
+          h[result] = [i]
+        end
+        h
+      end
+      groups.lazy2
+    end
+
+    def grep(patt)
+      select{|x| x =~ patt}
+    end
+
+    def select(&block)
+      add_proc filtering(&block)
+      self
+    end
+
+    def reject(&block)
+      add_proc filtering(&(block.complement))
+      self
+    end
+
+    def mapcat(&block)
+      add_proc mapcatting(&block)
+      self
+    end
+
+    def take(n)
+      add_proc taking(n)
+      self
+    end
+
+    def drop(n)
+      add_proc dropping(n)
+      self
+    end
+
+    def take_while(&block)
+      add_proc take_while_proc(&block)
+      self
+    end
+
+    def drop_while(&block)
+      add_proc drop_while_proc(&block)
+      self
+    end
+
+    def flat_map(&block)
+      map(&block).flatten
+      self
+    end
+
+
+    def to_a
+      force
+    end
+
+    protected
+
+    def add_proc(proc)
+      #  @chain = chain.compose(proc)
+      @proc_chain << proc
+    end
+
+    def mapping()
+      ->(f1){
+        ->(result,input){
+          mv = yield input
+          f1[result,mv ]
+
+        }
+
+      }
+    end
+
+    def mashing
+      ->(f1){
+
+        ->(result,input){
+          r = yield input
+          h = {}
+          case r
+          when Hash
+            nk, nv = *r.to_a[0]
+          when Range
+            nk, nv = r.first, r.last
+          else
+            nk, nv = *r
+          end
+          h[nk] = nv
+          f1[result,h]
+        }
+      }
+    end
+
+
+    def taking(n)
+      ->(f1){
+        ->(result, input){
+          n = n - 1
+          if n >= 0
+            f1[result, input]
+          else
+            throw(:reduced, result)
+          end
+        }
+      }
+    end
+
+    def dropping(n)
+      ->(f1){
+        ->(result,input){
+          n = n -1
+          if n < 0
+            f1[result,input]
+          else
+            result
+          end
+        }
+      }
+    end
+
+    def take_while_proc()
+      ->(f1){
+        taking = true
+        ->(result,input){
+          taking = yield input
+          if taking
+            f1[result,input]
+          else
+            throw(:reduced,result)
+          end
+        }
+      }
+    end
+
+
+    def drop_while_proc()
+      ->(f1){
+        dropping = true
+        ->(result, input){
+
+          if dropping
+            dropping = yield input
+          end
+          if dropping
+            result
+          else
+            f1[result,input]
+          end
+        }
+      }
+    end
+
+    def filtering()
+      ->(f1){
+        ->(result,input){
+          if yield input
+            f1[ result,input]
+          else
+            result
+          end
+        }
+      }
+    end
+
+    def parting()
+      ->(f1){
+        ->(result,input){
+          if yield input
+            [f1[result,input],result]
+          else
+            [result, f1[result,input]]
+          end
+        }}
+    end
+
+
+    def mapcatting()
+      ->(f1){
+        ->(result,input){
+          mcv = yield input
+          reduce[f1, result, mcv]
+        }
+      }
+    end
+
+    def flatmapping()
+      ->(f1){
+        ->(result,input){
+          mcv = yield input
+          f1[result, mcv.flatten]
+        }
+      }
+    end
+
+  end
+
+
+  class Undefined; end
+
+  class Reducible
+
+    include Transformers
+
+
+    # attr_reader :chain
+    attr_reader :coll, :proc_chain
+
+    def initialize(coll)
+      @coll = coll
+      @chain = ->x{x}
+      @proc_chain = []
+    end
+
+    def reduce(init = nil, f= Undefined ,&block)
+      if !block or !f == Undefined
+        if f == Undefined
+          f = init
+          init = nil
+        end
+
+        reducer = f
+      else
+        reducer = chain.(block) if f == Undefined
+      end
+
+      result = catch(:reduced){
+
+        if init
+          coll.reduce(init,&reducer)
+        else
+          coll.reduce(&reducer)
+        end
+      }
+
+    end
+
+    def initialize_copy(source)
+      super
+      @proc_chain = @proc_chain.dup
+    end
+
+    def tee
+      p2 = self.dup
+      [self, p2]
+    end
+
+    def partition(&block)
+      p1,p2 = tee
+      [p1.select(&block), p2.reject(&block)]
+    end
+
+    def chain
+      chain ||= Proc.compose(proc_chain)
+    end
+
+
+    def force
+      reduce([]){|r,i| r << i ; r}
+    end
+
+
+  end
+end
+
+
+# (defn reducer
+#   ([coll xf]
+#    (reify
+#     clojure.core.protocols/CollReduce
+#     (coll-reduce [_ f1 init]
+#       (clojure.core.protocols/coll-reduce coll (xf f1) init)))))
+
+# def reducer(coll,xf)
+#   Class.new do
+#     define_method :reduce do |init,coll,f1|
+#       coll.reduce(init,xf.(f1))
+#     end
+#   end
+# end

data/lib/reducers/functional.rb

@@ -0,0 +1,42 @@
+module Functional
+
+  def identity
+    ->x{ x}
+  end
+
+
+  module ClassMethods
+
+    def compose(*proc_chain)
+      proc_chain = proc_chain.first if proc_chain.first.class == Array
+      proc_chain.reduce(->(x){x}){|result,p| result.compose(p)}
+    end
+  end
+
+
+
+
+  def complement
+  lambda {|*args| not self.call(*args) }
+  end
+
+ def compose(other)
+    lambda {|*args| call(other.call(*args)) }
+  end
+
+  def pipe(other)
+    other.compose(self)
+  end
+
+
+  alias :* :compose
+  alias :>> :pipe
+
+
+
+
+
+end
+
+class Proc; include Functional; extend Functional::ClassMethods; end
+class Method; include Functional; extend Functional::ClassMethods; end

data/spec/reducers_spec.rb

@@ -0,0 +1,9 @@
+require_relative 'spec_helper'
+
+require "reducers"
+
+describe Reducers do
+ it "can be created" do
+   Reducers.new.must_be_instance_of Reducers
+ end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,17 @@
+# This file was generated by the `rspec --init` command. Conventionally, all
+# specs live under a `spec` directory, which RSpec adds to the `$LOAD_PATH`.
+# Require this file using `require "spec_helper.rb"` to ensure that it is only
+# loaded once.
+#
+# See http://rubydoc.info/gems/rspec-core/RSpec/Core/Configuration
+require 'rspec'
+require 'reducers'
+
+
+RSpec.configure do |config|
+  config.treat_symbols_as_metadata_keys_with_true_values = true
+  config.run_all_when_everything_filtered = true
+  config.filter_run :focus
+end
+
+

metadata

@@ -0,0 +1,175 @@
+--- !ruby/object:Gem::Specification
+name: reducers
+version: !ruby/object:Gem::Version
+  version: 0.0.5
+platform: ruby
+authors:
+- Dominic Sisneros
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-02-25 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rdoc
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.10'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.10'
+- !ruby/object:Gem::Dependency
+  name: hoe-bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+- !ruby/object:Gem::Dependency
+  name: ZenTest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+- !ruby/object:Gem::Dependency
+  name: cucumber
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+- !ruby/object:Gem::Dependency
+  name: aruba
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+- !ruby/object:Gem::Dependency
+  name: lazing
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>'
+      - !ruby/object:Gem::Version
+        version: 0.0.0
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.5'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.5'
+description: This library is intended to provide a reducer library on collections
+  for ruby like the clojure reducers
+email:
+- dsisnero@gmail.com
+executables:
+- reducers
+extensions: []
+extra_rdoc_files:
+- History.txt
+- Manifest.txt
+- README.txt
+files:
+- .autotest
+- .rspec
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/reducers
+- lib/reducers.rb
+- lib/reducers/functional.rb
+- spec/reducers_spec.rb
+- spec/spec_helper.rb
+- .gemtest
+homepage: 
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options:
+- --main
+- README.txt
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: reducers
+rubygems_version: 2.0.0
+signing_key: 
+specification_version: 4
+summary: This library is intended to provide a reducer library on collections for
+  ruby like the clojure reducers
+test_files: []