lambda_driver 1.0.0

data/.gitignore

@@ -0,0 +1,18 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+vendor/

data/.rspec

@@ -0,0 +1,2 @@
+--color
+--format documentation

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in lambda_driver.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 Tomohito Ozaki
+
+MIT License
+
+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,170 @@
+# LambdaDriver
+
+虚弦斥力場生成システム
+
+LambdaDriver drives your code more functional.
+
+```ruby
+# [:foo, :bar, :baz].map{|s| s.to_s }.map{|s| s.upcase }
+# [:foo, :bar, :baz].map(&:to_s).map(&:upcase)
+
+[:foo, :bar, :baz].map(&:to_s >> :upcase ) # => ["FOO",  "BAR",  "BAZ"]
+```
+
+```ruby
+# [:foo, :hoge, :bar, :fuga].select{|s| s.to_s.length > 3} # => [:hoge, :fuga]
+
+[:foo, :hoge, :bar, :fuga].select(&:to_s >> :length >> 3._(:<)) # => [:hoge, :fuga]
+```
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'lambda_driver'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install lambda_driver
+
+## Usage
+
+### Proc/lambda/Symbol/Method extensions
+- call
+- compose
+- with_args
+- flip
+- curry
+
+#### alias :< to Proc#call
+
+```ruby
+  f = lamdba{|x| x.to_s }
+  f < :foo # => "foo"
+```
+
+#### Proc#compose
+
+Returns new lambda which composed self and given function.
+A composed proc called with args, executes `self.(g(*args)).
+
+```ruby
+  f = lamdba{|x| x.to_s }
+  g = lambda{|y| y.length }
+  h = f compose g
+  h.(:hoge) # => 4
+```
+
+This method is aliased as `<<`.
+
+```ruby
+  f << g # => f.compose(g)
+```
+
+#### Proc#with_args
+
+Returns partially applied function that has 2nd and more parameters
+fixed by given *args.
+
+```ruby
+  f = lamdba{|x, y, z| [x, y, z]}
+  h = f.with_args(:a, :b)
+  h.(:c) # => [:c, :a, :b]
+```
+
+This method is aliased as `*`.
+
+```ruby
+  f * :foo  # => f.with_args(:foo)
+```
+
+
+#### Proc#flip
+
+Returns function whose parameter order spawed 1st for 2nd.
+A result of filped fuction is curried by Proc#curry.
+
+```ruby
+  f = lamdba{|x, y, z| [x, y, z]}
+  h = f.flip
+  h.(:a).(:b).(:c) # => [:b, :a, :c]
+```
+
+If arguments is var-args, pass explicitly arity to curring.
+
+```ruby
+  p = Proc.new{|*args| args.inspect }
+  p.flip(3).call(:a).(:b).(:c)      # => "[:b, :a, :c]"
+  p.flip(4).call(:a).(:b).(:c).(:d) # => "[:b, :a, :c, :d]"
+```
+
+If arity is 0 or 1, flip returns itself.
+
+This method is aliased as `~@`.
+
+```ruby
+  ~f # => f.filp
+```
+
+<!-- Symbol extensions -->
+<!-- - to_method -->
+
+### Class extensions
+- alias instance_method, :/
+
+```ruby
+  String / :index # => #<UnboundMethod: String#index>
+```
+
+### UnboundMethod extensions
+- alias bind, :<
+
+```ruby
+  String / :index                    # => #<UnboundMethod: String#index>
+  String / :index < "foobarbaz"      # => #<Method: String#index>
+  String / :index < "foobarbaz" < 3  # => 3 (== "foobarbaz".index(3) )
+```
+
+### Combinators
+<!-- - && || -->
+- ski combinator
+
+### Object extensions
+- ap(|>) :  obj.ap(f) => f.call(obj)
+- obj._.method : returns obj.method(method) or lamdba{|*args| obj.send(method, *args) }
+<!-- - obj.disjunction(f) : if f(self) is nil, return self else return f(self) -->
+
+#### Object#ap
+
+`Object#ap` is applies self to given proc/block.
+
+```ruby
+  f = lambda{|x| x * 2 }
+  "foo".ap(f) #  => "fooffoo"
+```
+
+#### Object#_
+
+Object#op is shortcut to quickly extract Method object.
+
+```ruby
+"foobarbaz"._.index         #=> #<Method: String#index>
+"foobarbaz"._.index < "bar" # => 3 (== "foobarbaz".index(3) )
+
+2._(:>=) # => #<Method: Fixnum#>=>
+[1, 2, 3].select(&2._(:>=)) # => [1, 2]( = [1, 2].select{|n| 2 >= n})
+```
+
+
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

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

data/lambda_driver.gemspec

@@ -0,0 +1,22 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'lambda_driver/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = "lambda_driver"
+  gem.version       = LambdaDriver::VERSION
+  gem.authors       = ["Tomohito Ozaki"]
+  gem.email         = ["ozaki@yuroyoro.com"]
+  gem.description   = %q{Drives your code more functioal!}
+  gem.summary       = %q{Drives your code more functioal!}
+  gem.homepage      = ""
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.require_paths = ["lib"]
+
+  # dependencies
+  gem.add_development_dependency 'rspec'
+end

data/lib/lambda_driver/ap.rb

@@ -0,0 +1,13 @@
+module LambdaDriver::Ap
+  def ap(f = nil, &block)
+    if f.nil? && (not block_given?)
+      return lambda{|g=nil,&inner_block| self.ap(g, &inner_block) }
+    end
+
+    if block_given?
+      yield self
+    else
+      f.call(self)
+    end
+  end
+end

data/lib/lambda_driver/callable.rb

@@ -0,0 +1,94 @@
+module LambdaDriver::Callable
+
+  def call(*args, &block)
+    if block_given?
+      self.to_proc.call(*args, &block)
+    else
+      self.to_proc.call(*args)
+    end
+  end
+
+  # Returns new lambda which composed self and given function.
+  # A composed proc called with args, executes `self.(g(*args)).
+  #
+  #   f = lamdba{|x| x.to_s }
+  #   g = lambda{|y| y.length }
+  #   h = f compose g
+  #   h.(:hoge) # => 4
+  #
+  # This method is aliased as `<<`.
+  #
+  #   f << g # => f.compose(g)
+  #
+  def compose(g)
+    lambda{|*args| self.to_proc.call(g.to_proc.call(*args)) }
+  end
+
+  # g compose self
+  def >>(g)
+    g.to_proc << self
+  end
+
+  # Returns partially applied function that has 2nd and more parameters
+  # fixed by given *args.
+  #
+  #   f = lamdba{|x, y, z| [x, y, z]}
+  #   h = f.with_args(:a, :b)
+  #   h.(:c) # => [:c, :a, :b]
+  #
+  # This method is aliased as `*`.
+  #
+  #   f * :foo  # => f.with_args(:foo)
+  #
+  def with_args(*args)
+    lambda{|v|
+      self.to_proc.call(*([v] + args))
+    }
+  end
+
+  # Returns function whose parameter order spawed 1st for 2nd.
+  # A result of filped fuction is curried by Proc#curry.
+  #
+  #   f = lamdba{|x, y, z| [x, y, z]}
+  #   h = f.flip
+  #   h.(:a).(:b).(:c) # => [:b, :a, :c]
+  #
+  # If arguments is var-args, pass explicitly arity to curring.
+  #
+  #   p = Proc.new{|*args| args.inspect }
+  #   p.flip(3).call(:a).(:b).(:c)      # => "[:b, :a, :c]"
+  #   p.flip(4).call(:a).(:b).(:c).(:d) # => "[:b, :a, :c, :d]"
+  #
+  # If arity is 0 or 1, flip returns itself.
+  #
+  # This method is aliased as `~@`.
+  #
+  #   ~f # => f.filp
+  #
+  def flip(arity = nil)
+    f = self.to_proc
+    return self if (0..1).include?(f.arity)
+    return self if f.arity == -1 && arity.nil?
+
+    curried = f.curry(arity)
+    lambda{|x|
+      lambda{|y|
+        g = curried[y]
+        (g.respond_to? :call) ? g[x] : g
+      }
+    }
+  end
+
+  def curry(arity = nil)
+    self.to_proc.curry(arity)
+  end
+
+  def self.included(klass)
+    klass.send(:alias_method, :+@, :to_proc)
+    klass.send(:alias_method, :<,  :call)
+    klass.send(:alias_method, :<<, :compose)
+    klass.send(:alias_method, :*,  :with_args)
+    klass.send(:alias_method, :~@, :flip)
+    klass.send(:alias_method, :%, :curry)
+  end
+end

data/lib/lambda_driver/core_ext/class.rb

@@ -0,0 +1,3 @@
+class Class
+  alias_method :/, :instance_method
+end

data/lib/lambda_driver/core_ext/method.rb

@@ -0,0 +1,4 @@
+class Method
+  include LambdaDriver::Callable
+  include LambdaDriver::Currying if RUBY_VERSION < '1.9.0'
+end

data/lib/lambda_driver/core_ext/object.rb

@@ -0,0 +1,4 @@
+class Object
+  include LambdaDriver::Op::Proxy
+  include LambdaDriver::Ap
+end

data/lib/lambda_driver/core_ext/proc.rb

@@ -0,0 +1,4 @@
+class Proc
+  include LambdaDriver::Callable
+  include LambdaDriver::Currying if RUBY_VERSION < '1.9.0'
+end

data/lib/lambda_driver/core_ext/symbol.rb

@@ -0,0 +1,4 @@
+class Symbol
+  include LambdaDriver::Callable
+  include LambdaDriver::Currying if RUBY_VERSION < '1.9.0'
+end

data/lib/lambda_driver/core_ext/unbound_method.rb

@@ -0,0 +1,3 @@
+class UnboundMethod
+  alias_method :<, :bind
+end

data/lib/lambda_driver/core_ext.rb

@@ -0,0 +1,3 @@
+Dir["#{File.dirname(__FILE__)}/core_ext/*.rb"].sort.each do |path|
+  require "lambda_driver/core_ext/#{File.basename(path, '.rb')}"
+end

data/lib/lambda_driver/currying.rb

@@ -0,0 +1,20 @@
+module LambdaDriver::Currying
+  def curry
+    f = self.to_proc
+    arity = __arity(f)
+    return f if arity == 0
+
+    lambda{|arg| __curry(f, arity, arg, []) }
+  end
+
+  private
+    def __arity(f)
+      (f.arity >= 0) ? f.arity : -(f.arity + 1)
+    end
+
+    def __curry(f, arity, arg, passed)
+      args = passed + [arg]
+      return f.call(*args) if arity == 1
+      lambda{|arg| __curry(f, arity - 1, arg, args) }
+    end
+end

data/lib/lambda_driver/op.rb

@@ -0,0 +1,31 @@
+module LambdaDriver::Op
+  module Proxy
+    def _(method = nil)
+      method ? ::LambdaDriver::Op.method_or_lambda(self, method) : OpProxy.new(self)
+    end
+  end
+
+  def method_or_lambda(obj, method)
+    (obj.respond_to?(method) && obj.method(method)) ||
+      lambda{|*args| obj.__send__(method, *args) }
+  end
+  module_function :method_or_lambda
+
+  class BlankSlate
+    instance_methods.each { |m| undef_method m unless m =~ /^(__|object_id)/ }
+  end
+
+  class OpProxy < (RUBY_VERSION < '1.9.0' ? BlankSlate : BasicObject)
+    def initialize(obj)
+      @obj = obj
+    end
+
+    def call(method)
+      ::LambdaDriver::Op.method_or_lambda(@obj, method)
+    end
+
+    def method_missing(method)
+      ::LambdaDriver::Op.method_or_lambda(@obj, method)
+    end
+  end
+end

data/lib/lambda_driver/version.rb

@@ -0,0 +1,3 @@
+module LambdaDriver
+  VERSION = "1.0.0"
+end

data/lib/lambda_driver.rb

@@ -0,0 +1,26 @@
+require "lambda_driver/version"
+
+Dir["#{File.dirname(__FILE__)}/lambda_driver/*.rb"].sort.each do |path|
+  next if File.basename(path, '.rb') == 'core_ext'
+  require "lambda_driver/#{File.basename(path, '.rb')}"
+end
+require "lambda_driver/core_ext"
+
+module LambdaDriver
+
+  # SKI combinators
+  I = lambda{|x| x }
+  K = lambda{|x| lambda{|y| y }}
+  S = lambda{|x| lambda{|y| lambda{|z| x.to_proc.call(z).call(y.to_proc.call(z)) } } }
+
+  # Boolean combinators
+  AND = lambda{|l| lambda{|r| l && r }}
+  OR  = lambda{|l| lambda{|r| l || r }}
+
+  class << self
+    def i ; I end
+    def k ; K end
+    def s ; S end
+  end
+
+end

data/spec/ap_spec.rb

@@ -0,0 +1,41 @@
+require 'spec_helper'
+
+describe LambdaDriver::Ap do
+  let(:object) { "foobarbaz" }
+  let(:f) { lambda{|x| x * 2 } }
+
+  describe '#ap'do
+    context 'given none' do
+      subject { object.ap }
+
+      it { should be_a_kind_of Proc }
+      it('obj.ap.call(f) should be f.call(obj)'){
+        subject.call(f).should == f.call(object)
+      }
+      it('obj.ap.call{block} should be result of execute block with obj'){
+        subject.call{|x| x * 3 }.should == (object * 3)
+      }
+      it('obj.ap.call(f){block} should be result of execute block with obj'){
+        subject.call(f){|x| x * 3 }.should == (object * 3)
+      }
+    end
+
+    context 'block given' do
+      it('obj.ap{block} should be result of execute block with obj'){
+        object.ap{|x| x * 3 }.should == (object * 3)
+      }
+    end
+
+    context 'proc object given' do
+      it('obj.ap(f) should be f.call(obj)'){
+        object.ap(f).should == f.call(object)
+      }
+    end
+
+    context 'block given and proc object given' do
+      it('obj.ap.call(f){block} should be result of execute block with obj'){
+        object.ap(f){|x| x * 3 }.should == (object * 3)
+      }
+    end
+  end
+end

data/spec/class_spec.rb

@@ -0,0 +1,12 @@
+require 'spec_helper'
+
+describe 'class' do
+  describe './' do
+    subject { String / :index }
+
+    it { should be_a_kind_of UnboundMethod }
+    it("(klass / method_name).bind(obj).call(x) should be obj.method_name(x)"){
+      subject.bind("foobarbaz").call("bar") == "foobarbaz".index("bar")
+    }
+  end
+end

data/spec/lambda_spec.rb

@@ -0,0 +1,61 @@
+require 'spec_helper'
+
+describe 'lambda' do
+  describe '#compose' do
+    subject { lambda{|x| x.to_s} }
+
+    it_should_behave_like 'composable'
+  end
+
+  describe '#with_args' do
+    subject { lambda{|x, y, *z| [x, y] + z.to_a } }
+    it_should_behave_like 'with_args'
+  end
+
+  describe '#flip' do
+    context 'arity = 1' do
+      subject { lambda{|x| [x] } }
+
+      it_should_behave_like 'flip(arity=1)'
+    end
+
+    context 'arity > 1' do
+      subject { lambda{|x, y| [x, y] } }
+
+      it_should_behave_like 'flip'
+    end
+
+    context 'varargs' do
+      subject { lambda{|*x| x } }
+
+      it_should_behave_like 'flip(varargs)'
+    end
+  end
+
+  describe '#curry' do
+    subject { lambda{|x, y| [x, y] } }
+
+    it_should_behave_like 'curry'
+
+    context 'varargs' do
+      subject { lambda{|*x| x } }
+
+      it_should_behave_like 'curry(varargs)'
+    end
+  end
+
+  describe '#call' do
+    subject { lambda{|x| x.to_s + "_f"} }
+
+    it_should_behave_like 'call'
+  end
+
+  describe 'ailases' do
+    subject { lambda{|x| x.to_s + "_f"} }
+
+    it_should_behave_like 'aliases'
+    it_should_behave_like 'aliases(varargs)' do
+      subject { lambda{|*x| x } }
+    end
+  end
+end

data/spec/method_spec.rb

@@ -0,0 +1,91 @@
+require 'spec_helper'
+
+describe Method do
+  describe '#compose' do
+    subject { "aaa".method(:+) }
+
+    it_should_behave_like 'composable' do
+      let(:x) { "foo" }
+    end
+  end
+
+  describe '#with_args' do
+    subject { "foobarbaz".method(:delete) }
+
+    it_should_behave_like 'with_args' do
+      let(:x) { 'r' }
+      let(:y) { 'o' }
+      let(:z) { 'a' }
+    end
+  end
+
+  describe '#flip' do
+    context 'arity = 1' do
+      subject { "aaa".method(:+) }
+
+      it_should_behave_like 'flip(arity=1)' do
+        let(:x) { "foo" }
+        let(:y) { "bar" }
+      end
+    end
+
+    context 'arity > 1' do
+      subject { "foobarbaz".method(:tr) }
+
+      it_should_behave_like 'flip' do
+        let(:x) { 'r' }
+        let(:y) { 'o' }
+      end
+    end
+
+    context 'varargs' do
+      subject { "foobarbaz".method(:delete) }
+
+      it_should_behave_like 'flip(varargs)' do
+        let(:x) { 'r' }
+        let(:y) { 'o' }
+      end
+    end
+  end
+
+  describe '#curry' do
+    context 'arity > 1' do
+      subject { "foobarbaz".method(:tr) }
+
+      it_should_behave_like 'curry' do
+        let(:x) { 'r' }
+        let(:y) { 'o' }
+      end
+    end
+
+    context 'varargs' do
+      subject { "foobarbaz".method(:delete) }
+
+      it_should_behave_like 'curry(varargs)' do
+        let(:x) { 'r' }
+        let(:y) { 'o' }
+      end
+    end
+  end
+
+  describe '#call' do
+    subject { "aaa".method(:+) }
+
+    it_should_behave_like 'call' do
+      let(:x) { "foo" }
+    end
+  end
+
+  describe 'ailases' do
+    it_should_behave_like 'aliases' do
+      subject { "aaa".method(:+) }
+      let(:x) { "foo" }
+    end
+
+    it_should_behave_like 'aliases(varargs)' do
+      subject { "foobarbaz".method(:delete) }
+      let(:x) { 'r' }
+      let(:y) { 'o' }
+    end
+  end
+end

data/spec/op_spec.rb

@@ -0,0 +1,63 @@
+require 'spec_helper'
+
+shared_examples_for 'method_or_lambda' do |label|
+  let(:method_name) { :+ }
+  context 'given method name (is reciever object responds)' do
+    subject { method }
+
+    it { should be_a_kind_of Method }
+    it("#{label}.call(args) should be obj.send(method_name, args)"){
+      subject.call('bar').should == object.send(method_name, 'bar')
+    }
+  end
+
+  context 'given method name (is not reciever object responds)' do
+    subject { lambda_proc }
+    before {
+      def object.method_missing(method, *args)
+        method == :foo ? args : super(method, *args)
+      end
+    }
+
+    it { should be_a_kind_of Proc }
+    it("#{label}.call(args) should be obj.send(method_name, args)"){
+      lambda_proc.call('bar', 'baz').should == object.send(:foo, 'bar', 'baz')
+    }
+  end
+end
+
+describe LambdaDriver::Op do
+  describe '#_' do
+    let(:object) { "foobarbaz" }
+
+    context 'given nil' do
+      subject { object._ }
+
+      it { subject.class.should be_a_kind_of LambdaDriver::Op::Proxy }
+    end
+
+    it_should_behave_like 'method_or_lambda', 'obj._(method_name)' do
+      let(:method){ object._(:+) }
+      let(:lambda_proc){ object._(:foo) }
+    end
+  end
+end
+
+describe LambdaDriver::Op::Proxy do
+  let(:object) { "foobarbaz" }
+
+  describe '#call' do
+    it_should_behave_like 'method_or_lambda', 'obj._(method_name)' do
+      let(:method){ object._.call(:+) }
+      let(:lambda_proc){ object._.call(:foo) }
+    end
+  end
+
+  describe '#method_missing' do
+    it_should_behave_like 'method_or_lambda', 'obj._.method_name' do
+      let(:method){ object._.index }
+      let(:method_name) { :index }
+      let(:lambda_proc){ object._.foo }
+    end
+  end
+end

data/spec/proc_spec.rb

@@ -0,0 +1,61 @@
+require 'spec_helper'
+
+describe Proc do
+  describe '#compose' do
+    subject { Proc.new{|x| x.to_s} }
+
+    it_should_behave_like 'composable'
+  end
+
+  describe '#with_args' do
+    subject { Proc.new{|x, y, *z| [x, y] + z.to_a } }
+    it_should_behave_like 'with_args'
+  end
+
+  describe '#flip' do
+    context 'arity = 1' do
+      subject { Proc.new{|x| [x] } }
+
+      it_should_behave_like 'flip(arity=1)'
+    end
+
+    context 'arity > 1' do
+      subject { Proc.new{|x, y| [x, y] } }
+
+      it_should_behave_like 'flip'
+    end
+
+    context 'varargs' do
+      subject { Proc.new{|*x| x } }
+
+      it_should_behave_like 'flip(varargs)'
+    end
+  end
+
+  describe '#curry' do
+    subject { Proc.new{|x, y| [x, y] } }
+
+    it_should_behave_like 'curry'
+
+    context 'varargs' do
+      subject { Proc.new{|*x| x } }
+
+      it_should_behave_like 'curry(varargs)'
+    end
+  end
+
+  describe '#call' do
+    subject { Proc.new{|x| x.to_s + "_f"} }
+
+    it_should_behave_like 'call'
+  end
+
+  describe 'ailases' do
+    subject { Proc.new{|x| x.to_s + "_f"} }
+
+    it_should_behave_like 'aliases'
+    it_should_behave_like 'aliases(varargs)' do
+      subject { Proc.new{|*x| x } }
+    end
+  end
+end

data/spec/shared/composable_spec.rb

@@ -0,0 +1,193 @@
+require 'spec_helper'
+
+shared_examples_for 'composable' do
+  it { should respond_to :to_proc}
+  it { should respond_to :>> }
+  it { should respond_to :<< }
+  it { should respond_to :compose }
+
+  let(:x) { :foo }
+  let(:y) { 12 }
+  let(:g) { lambda{|x| (x.to_s * 2) + "_g" } }
+
+  it('" f >> g" returns g(f)'){
+    (subject >> g).should be_a_kind_of Proc
+  }
+  it('"(f >> g).call(x)" should be g(f(x))'){
+    (subject >> g).call(x).should == g.call(subject.to_proc.call(x))
+  }
+
+  it('" f << g" returns g(f)'){
+    (subject << g).should be_a_kind_of Proc
+  }
+  it('"(f << g).call(x)" should be f(g(x))'){
+    (subject << g).call(y).should == subject.to_proc.call(g.call(y)) }
+end
+
+shared_examples_for 'with_args' do
+  it { should respond_to :with_args }
+  it { should respond_to :*}
+
+  let(:x) { :foo }
+  let(:y) { :bar }
+  let(:z) { :baz }
+
+  it('" f.with_args(x) returns proc which is partaily appied arguments'){
+    subject.with_args(y).should be_a_kind_of Proc
+  }
+
+  it('" f.with_args(y).call(x)" should be f(x, y)'){
+    puts x.inspect
+    subject.with_args(y).call(x).should == subject.to_proc.call(x, y)
+  }
+
+  it('" f.with_args(*args).call(x)" should be f(x, *args)'){
+    subject.with_args(y, z).call(x).should == subject.to_proc.call(x, y, z)
+  }
+
+  it('" f * x returns proc which is partaily appied arguments'){
+    (subject * y).should be_a_kind_of Proc
+  }
+
+  it('" (f * y).call(x)" should be f(x, y)'){
+    (subject * y).call(x).should == subject.to_proc.call(x, y)
+  }
+end
+
+shared_examples_for 'flip' do
+  it { should respond_to :flip }
+  it { should respond_to :~}
+
+  let(:x) { :foo }
+  let(:y) { :bar }
+
+  it(' f.flip returns function whose parameter order swaped 1st for 2nd.'){
+    subject.flip.should be_a_kind_of Proc
+  }
+
+  it(' f.flip.call(x) returns proc ') {
+    subject.flip.call(y).should be_a_kind_of Proc
+  }
+  it(' f.flip.call(x).call(y) should be (y,x)'){
+    subject.flip.call(y).call(x).should == subject.to_proc.call(x, y)
+  }
+
+  it(' ~f returns function whose parameter order swaped 1st for 2nd.'){
+    (~subject).should be_a_kind_of Proc
+  }
+
+  it(' ~f.call(x) returns proc ') {
+    (~subject).call(y).should be_a_kind_of Proc
+  }
+  it(' ~f.call(x).call(y) should be (y,x)'){
+    (~subject).call(y).call(x).should == subject.to_proc.call(x, y)
+  }
+end
+
+shared_examples_for 'flip(arity=1)' do
+  let(:x) { :foo }
+  let(:y) { :bar }
+
+  it(' f.flip returns itself'){
+    subject.flip.should == subject
+  }
+
+  it(' f.flip.call(x) returns proc ') {
+    subject.flip.call(y) == subject.call(y)
+  }
+end
+
+shared_examples_for 'flip(varargs)' do
+  let(:x) { :foo }
+  let(:y) { :bar }
+
+  it('f.flip returns itself'){
+    subject.flip.should == subject
+  }
+
+  it('f.flip(2).call(x) returns proc ') {
+    subject.flip(2).call(y) == subject.call(y)
+  }
+
+  it('~f.flip(2).call(x).call(y) should be f.call(y,x)'){
+    subject.flip(2).call(y).call(x).should == subject.to_proc.call(x, y)
+  }
+end
+
+shared_examples_for 'curry' do
+  it { should respond_to :curry}
+  it { should respond_to :%}
+
+  let(:x) { :foo }
+  let(:y) { :bar }
+
+  it('f.curry returns curried function'){
+    subject.curry.should be_a_kind_of Proc
+  }
+
+  it('f.curry.call(x) returns proc ') {
+    subject.curry.call(y).should be_a_kind_of Proc
+  }
+  it('f.curry.call(x).call(y) should be f.call(x,y)'){
+    subject.curry.call(x).call(y).should == subject.to_proc.call(x, y)
+  }
+end
+
+shared_examples_for 'curry(varargs)' do
+  let(:x) { :foo }
+  let(:y) { :bar }
+
+  it('f % 2 returns curried function'){
+    (subject % 2).should be_a_kind_of Proc
+  }
+
+  it('(f % 2).call(x) returns proc ') {
+    (subject % 2).call(y).should be_a_kind_of Proc
+  }
+  it('(f % 2).call(x).call(y) should be f.call(x,y)'){
+    (subject % 2).call(x).call(y).should == subject.to_proc.call(x, y)
+  }
+end
+
+shared_examples_for 'call' do
+  it { should respond_to :call}
+  it { should respond_to :<}
+
+  let(:x) { :foo }
+
+  it('f.call(x) == f.call(x)'){
+    subject.call(x).should == subject.call(x)
+  }
+
+  it('(f < x) == f.call(x)'){
+    (subject < x).should == subject.call(x)
+  }
+end
+
+shared_examples_for 'aliases' do
+  let(:x) { :foo }
+  let(:y) { 12 }
+  let(:g) { lambda{|x| (x.to_s * 2).to_s + "_g" } }
+
+  it('(~f < x) should be f.flip.call(x)'){
+    (~subject < x).should == subject.flip.call(x)
+  }
+
+  it('(f << g < x) should f.compose(g).call(x)'){
+    (subject << g < x).should == subject.compose(g).call(x)
+  }
+
+  it('(f >> g < x) should g.compose(f).call(x)'){
+    (subject >> g < x).should == g.compose(subject).call(x)
+  }
+end
+
+shared_examples_for 'aliases(varargs)' do
+  let(:x) { :foo }
+  let(:y) { 12 }
+  let(:g) { lambda{|x| (x.to_s * 2).to_s + "_g" } }
+
+  it('(f % 2 * y << g < x) should be f.curry(2).with_args(y).compose(g).call(x)'){
+    (subject % 2 * y << g < x).should == subject.curry(2).with_args(y).compose(g).call(x)
+  }
+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 'lambda_driver'
+
+Dir["#{File.dirname(__FILE__)}/shared/**/*.rb"].each {|f| require f}
+
+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

data/spec/symbol_spec.rb

@@ -0,0 +1,63 @@
+require 'spec_helper'
+
+describe Symbol do
+  describe '#compose' do
+    subject { :to_s }
+
+    it_should_behave_like 'composable'
+  end
+
+  describe '#with_args' do
+    subject {:delete }
+
+    it_should_behave_like 'with_args' do
+      let(:x) { 'foobar' }
+      let(:y) { 'o'  }
+      let(:z) { 'a'}
+    end
+  end
+
+  describe '#flip' do
+    context 'arity = 1' do
+      subject { :to_s }
+
+      it_should_behave_like 'flip(arity=1)'
+    end
+
+    context 'varargs' do
+      subject {:product }
+
+      it_should_behave_like 'flip(varargs)' do
+        let(:x) { [:bar] }
+        let(:y) { [:foo] }
+      end
+    end
+  end
+
+  describe '#curry' do
+    subject { :product }
+
+    it_should_behave_like 'curry(varargs)' do
+      let(:x) { [:bar] }
+      let(:y) { [:foo] }
+    end
+  end
+
+  describe '#call' do
+    subject { :to_s }
+
+    it_should_behave_like 'call'
+  end
+
+  describe 'ailases' do
+    subject { :to_s }
+
+    it_should_behave_like 'aliases'
+
+    it_should_behave_like 'aliases(varargs)' do
+      subject { :product }
+      let(:x) { [:bar] }
+      let(:y) { [:foo] }
+    end
+  end
+end

data/spec/unbound_method_spec.rb

@@ -0,0 +1,13 @@
+require 'spec_helper'
+
+describe UnboundMethod do
+  describe '#<' do
+    let(:unbound_method){ String.instance_method(:index) }
+    subject { unbound_method < "foobarbaz" }
+
+    it { should be_a_kind_of Method }
+    it('(unbound_method < obj).call(x) should be unbound_method.bind(obj).call(x)'){
+      subject.call('bar').should == unbound_method.bind("foobarbaz").call("bar")
+    }
+  end
+end

metadata

@@ -0,0 +1,96 @@
+--- !ruby/object:Gem::Specification
+name: lambda_driver
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Tomohito Ozaki
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-03-26 00:00:00.000000000Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: &70364479275960 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70364479275960
+description: Drives your code more functioal!
+email:
+- ozaki@yuroyoro.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- lambda_driver.gemspec
+- lib/lambda_driver.rb
+- lib/lambda_driver/ap.rb
+- lib/lambda_driver/callable.rb
+- lib/lambda_driver/core_ext.rb
+- lib/lambda_driver/core_ext/class.rb
+- lib/lambda_driver/core_ext/method.rb
+- lib/lambda_driver/core_ext/object.rb
+- lib/lambda_driver/core_ext/proc.rb
+- lib/lambda_driver/core_ext/symbol.rb
+- lib/lambda_driver/core_ext/unbound_method.rb
+- lib/lambda_driver/currying.rb
+- lib/lambda_driver/op.rb
+- lib/lambda_driver/version.rb
+- spec/ap_spec.rb
+- spec/class_spec.rb
+- spec/lambda_spec.rb
+- spec/method_spec.rb
+- spec/op_spec.rb
+- spec/proc_spec.rb
+- spec/shared/composable_spec.rb
+- spec/spec_helper.rb
+- spec/symbol_spec.rb
+- spec/unbound_method_spec.rb
+homepage: ''
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.10
+signing_key: 
+specification_version: 3
+summary: Drives your code more functioal!
+test_files:
+- spec/ap_spec.rb
+- spec/class_spec.rb
+- spec/lambda_spec.rb
+- spec/method_spec.rb
+- spec/op_spec.rb
+- spec/proc_spec.rb
+- spec/shared/composable_spec.rb
+- spec/spec_helper.rb
+- spec/symbol_spec.rb
+- spec/unbound_method_spec.rb