funkify 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: df42a1e54ad9d803baf96647480e58dacff3e5eb
+  data.tar.gz: 08175309961eea835db32aa26d019a0b68c169bf
+SHA512:
+  metadata.gz: 5098c8b190f2bafc7cac212fd0ff14d3ced074be958d68025f3e1f7945e725051eb150e0547f5c9a1c69417fa9b5f07c0d59abe7c11a8eed942aeb2dce3c2502
+  data.tar.gz: a1b28ec738455b1109aee4f1f9cf1f9b22c4150dab18c718df56304ba0ce408994b0d9cbbd0d4e7362fbdef348090a1fafd2e85c1e9ccb36344fa9cbc212d48f

data/.gitignore

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

data/Gemfile

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

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 John Mair
+
+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,90 @@
+# Funkify
+
+**(c) Copyright 2013, Epitron**
+
+_Haskell-style partial application and composition for Ruby methods_
+
+## Usage
+
+```ruby
+class MyFunkyClass
+  include Funkify
+
+  def add(x, y)
+    x + y
+  end
+
+  # we make a specific method autocurried using the auto_curry method
+  auto_curry :add
+
+  # alternatively, if we invoke auto_curry without a parameter
+  # then all subsequent methods will be autocurried
+  auto_curry
+
+  def mult(x, y)
+    x * y
+  end
+
+  def negate(x)
+    -x
+  end
+end
+```
+
+When a method supports autocurrying it can still be invoked normally (if all parameters are provided) however if less than the required number are given a `Proc` is returned
+with the given parameters partially applied:
+
+```ruby
+funky = MyFunkyClass.new
+
+funky.add(1, 2) #=> This works normally and returns 3
+add_1 = funky.add(1) #=> The `1` is partially applied and a `Proc` is returned
+add_1.(2) #=> We invoke that `Proc` with the remaining argument and the final result (`3`) is returned.
+```
+
+We can also compose methods using `+`:
+
+```ruby
+add_1_and_multiply_by_5 = funky.mult(5) + funky.add(1)
+add_1_and_multiply_by_5.(10) #=> 55
+
+# We can even further compose the above with another method:
+
+(funky.negate + add_1_and_multiply_by_5).(10) #=> -55
+```
+
+Other examples:
+
+Add 10 to every item in an Enumerable:
+
+```ruby
+(1..5).map(&funky.add(10)) #=> [10, 12, 13, 14, 15]
+```
+
+Multiply by 10 and negate every item in an Enumerable:
+
+```ruby
+(1..5).map &(funky.negate + funky.mult(10)) => [-10, -20, -30, -40, -50]
+```
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'funkify'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install funkify
+
+## 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,13 @@
+require "bundler/gem_tasks"
+
+desc "Set up and run tests"
+task :default => [:test]
+
+def run_specs paths
+  quiet = ENV['VERBOSE'] ? '' : '-q'
+  exec "bacon -Ispec -rubygems #{quiet} #{paths.join ' '}"
+end
+
+task :test do
+  run_specs Dir['spec/**/*_spec.rb'].shuffle!
+end

data/funkify.gemspec

@@ -0,0 +1,23 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'funkify/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "funkify"
+  spec.version       = Funkify::VERSION
+  spec.authors       = ["John Mair"]
+  spec.email         = ["jrmair@gmail.com"]
+  spec.description   = "Haskell-style partial application and composition for Ruby methods"
+  spec.summary       = "Haskell-style partial application and composition for Ruby methods"
+  spec.homepage      = "https://github.com/banister/funkify"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files`.split($/)
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.3"
+  spec.add_development_dependency "rake"
+  spec.add_development_dependency 'bacon', '~> 1.2'
+end

data/lib/funkify.rb

@@ -0,0 +1,67 @@
+require "funkify/version"
+
+module Funkify
+  def self.included(klass)
+    klass.extend ClassMethods
+  end
+
+  class ::Proc
+    def +(other)
+      Funkify.compose(self, other)
+    end
+  end
+
+  module_function
+
+  def curry(obj, *args)
+    case obj
+    when Symbol
+      method(obj).to_proc.curry[*args]
+    else
+      obj.curry(*args)
+    end
+  end
+
+  def compose(*args)
+    head, *tail = args
+    head = _procify(head)
+    if args.size <= 2
+      ->(*xs) { head.(_procify(tail[0]).(*xs)) }
+    else
+      ->(*xs) { head.(compose(*tail)) }
+    end
+  end
+
+  def _procify(obj)
+    case obj
+    when Symbol
+      method(obj).to_proc
+    else
+      obj.to_proc
+    end
+  end
+
+  module ClassMethods
+    def auto_curry(*names)
+      if names.empty?
+        in_use = nil
+        define_singleton_method(:method_added) do |name|
+          return if in_use
+          in_use = true
+          auto_curry name
+          in_use = false
+        end
+        return
+      end
+
+      names.each do |name|
+        m = instance_method(name)
+        curried_method = nil
+        define_method(name) do |*args|
+          curried_method ||= m.bind(self).to_proc.curry
+          curried_method[*args]
+        end
+      end
+    end
+  end
+end

data/lib/funkify/version.rb

@@ -0,0 +1,3 @@
+module Funkify
+  VERSION = "0.0.1"
+end

data/spec/funkify_spec.rb

@@ -0,0 +1,124 @@
+require 'spec_helper'
+
+describe Funkify do
+  describe "auto_curry method" do
+    before do
+      @c = Class.new do
+        include Funkify
+
+        def alpha(x) x end
+        def beta(x) x end
+        auto_curry :beta
+
+        def epsilon(x) x end
+
+        def gamma(x) x end
+        def zeta(x) x end
+        auto_curry :gamma, :zeta
+
+        auto_curry
+
+        def harry(x) x end
+        def joseph(x) x end
+      end.new
+    end
+
+    it 'does not autocurry unselected methods' do
+      should.raise(ArgumentError) { @c.alpha }
+    end
+
+    it 'curries one method, when specified' do
+      @c.beta.is_a?(Proc).should == true
+    end
+
+    it 'does not curry methods after auto_curry used to curry a single method' do
+      should.raise(ArgumentError) { @c.epsilon }
+    end
+
+    it 'curries multiple methods when auto_curry given multiple args' do
+      @c.gamma.is_a?(Proc).should == true
+      @c.zeta.is_a?(Proc).should == true
+    end
+
+    it 'curries all methods after a call to auto_curry with no args' do
+      @c.harry.is_a?(Proc).should == true
+      @c.joseph.is_a?(Proc).should == true
+    end
+  end
+
+  describe "currying behaviour" do
+    before do
+      @c = Class.new do
+        include Funkify
+
+        auto_curry
+
+        def add(x, y, z)
+          x + y + z
+        end
+      end.new
+    end
+
+    it 'invokes methods normally when all parameters are provided' do
+      @c.add(1, 2, 3).should == 6
+    end
+
+    it 'returns a curried Proc when less than required args are given' do
+      @c.add.is_a?(Proc).should == true
+      @c.add(1).is_a?(Proc).should == true
+      @c.add(1, 2).is_a?(Proc).should == true
+    end
+
+    it 'allows curried procs to be completed when the full args are provided successively' do
+      @c.add(1).(2).(3).should == 6
+      @c.add(1).(2, 3).should == 6
+      @c.add(1, 2).(3).should == 6
+    end
+
+    it 'raises an exception when too many args passed to curried Proc'  do
+      should.raise(ArgumentError) { @c.add(1, 2).(3, 4) }
+    end
+  end
+
+  describe "composition" do
+    before do
+      @c = Class.new do
+        include Funkify
+
+        auto_curry
+
+        def add(x, y)
+          x + y
+        end
+
+        def mult(x, y)
+          x * y
+        end
+
+        def negate(x)
+          -x
+        end
+
+        def plus_1(x)
+          x + 1
+        end
+      end.new
+    end
+
+    it 'returns a new Proc when composing methods' do
+      (@c.negate + @c.plus_1).is_a?(Proc).should == true
+    end
+
+    it 'invokes composed methods in the correct order (right-to-left)' do
+      (@c.negate + @c.plus_1).(5).should == -6
+    end
+
+    it 'can compose partially applied methods' do
+      (@c.add(5) + @c.mult(2)).(5).should == 15
+    end
+
+    it 'can compose multiple methods' do
+      (@c.negate + @c.add(5) + @c.mult(5)).(5).should == -30
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,3 @@
+lib = File.expand_path('../../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'funkify'

metadata

@@ -0,0 +1,99 @@
+--- !ruby/object:Gem::Specification
+name: funkify
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- John Mair
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-07-10 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: bacon
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.2'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.2'
+description: Haskell-style partial application and composition for Ruby methods
+email:
+- jrmair@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- funkify.gemspec
+- lib/funkify.rb
+- lib/funkify/version.rb
+- spec/funkify_spec.rb
+- spec/spec_helper.rb
+homepage: https://github.com/banister/funkify
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+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: 
+rubygems_version: 2.0.3
+signing_key: 
+specification_version: 4
+summary: Haskell-style partial application and composition for Ruby methods
+test_files:
+- spec/funkify_spec.rb
+- spec/spec_helper.rb
+has_rdoc: