church 0.1.2 → 0.1.4

data/README.md

@@ -1,5 +1,9 @@
 # Church
 
+[![Gem Version](https://badge.fury.io/rb/church.png)](http://badge.fury.io/rb/church)
+[![Build Status](https://travis-ci.org/threeifbywhiskey/church.png?branch=master)](https://travis-ci.org/threeifbywhiskey/church)
+
+
 **Church** is a module that wraps a bunch of constant Procs that do various functional programming tricks.
 
 ### Examples

data/church.gemspec

@@ -17,7 +17,8 @@ Gem::Specification.new do |spec|
   spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
   spec.require_paths = ["lib"]
 
-  spec.add_development_dependency "bundler", "~> 1.5"
+  spec.add_development_dependency "bundler"
   spec.add_development_dependency "rake"
+  spec.add_development_dependency "rspec"
   spec.add_development_dependency "simplecov-console"
 end

data/lib/church/array.rb

@@ -81,6 +81,14 @@ module Church
       SORT[FILTER[xs, &-> y { y >= x }]]
   }
 
+  SORT_BY = -> coll, &fn {
+    x, *xs = *coll
+    coll == [] ? []
+    : SORT_BY[FILTER[xs, &-> y { (fn[x] <=> fn[y]) == 1 }], &fn] + 
+      [x] +
+      SORT_BY[FILTER[xs, &-> y { (fn[x] <=> fn[y]) <= 0 }], &fn]
+  }
+
   # Sorts the collection in reverse order.
   RSORT = COMPOSE[REVERSE, SORT]
 
@@ -89,4 +97,11 @@ module Church
 
   # Returns the first n elements of the collection.
   TAKE = -> coll, n { coll[0, n] }
+
+  # Returns the index of the element within the collection, or nil if not found.
+  INDEX = -> coll, elem {
+    (indexer = -> i {
+      coll[i] == elem ? i : i > SIZE[elem] ? nil : indexer[i + 1]
+    })[0]
+  }
 end

data/lib/church/version.rb

@@ -1,3 +1,3 @@
 module Church
-  VERSION = "0.1.2"
+  VERSION = "0.1.4"
 end

data/spec/array_spec.rb

@@ -59,6 +59,14 @@ describe 'SORT' do
   end
 end
 
+describe 'SORT_BY' do
+  let(:order) { [1, 2, 3, 4, 5] }
+
+  it "should sort an array using the supplied function" do
+    expect(SORT_BY[[4, 2, 5, 1, 3], &-> n { order.index n }]).to eq order
+  end
+end
+
 describe 'RSORT' do
   it "should sort an array in reverse order" do
     expect(RSORT[[2, 1, 3]]).to eq [3, 2, 1]
@@ -90,3 +98,10 @@ describe 'TAKE' do
     expect(TAKE[[1, 2, 3, 4], 2]).to eq [1, 2]
   end
 end
+
+describe 'INDEX' do
+  it "should find the indices of characters within strings" do
+    expect(INDEX['abc', 'b']).to be 1
+    expect(INDEX['abc', 'd']).to be nil
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: church
 version: !ruby/object:Gem::Version
-  version: 0.1.2
+  version: 0.1.4
   prerelease: 
 platform: ruby
 authors:
@@ -16,17 +16,17 @@ dependencies:
   requirement: !ruby/object:Gem::Requirement
     none: false
     requirements:
-    - - ~>
+    - - ! '>='
       - !ruby/object:Gem::Version
-        version: '1.5'
+        version: '0'
   type: :development
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     none: false
     requirements:
-    - - ~>
+    - - ! '>='
       - !ruby/object:Gem::Version
-        version: '1.5'
+        version: '0'
 - !ruby/object:Gem::Dependency
   name: rake
   requirement: !ruby/object:Gem::Requirement
@@ -43,6 +43,22 @@ dependencies:
     - - ! '>='
       - !ruby/object:Gem::Version
         version: '0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
 - !ruby/object:Gem::Dependency
   name: simplecov-console
   requirement: !ruby/object:Gem::Requirement