church 0.1.1 → 0.1.2

data/lib/church/array.rb

@@ -1,15 +1,15 @@
 module Church
-  # Returns the size of an array or string using recursion.
+  # Returns the size of an array or string.
   SIZE = -> coll {
     coll == [] || coll == '' ? 0 : 1 + SIZE[coll[1..-1]]
   }
 
-  # Maps fn over coll recursively.
+  # Maps fn over coll.
   MAP = -> coll, &fn {
     coll == [] ? [] : [fn[coll[0]]] + MAP[coll[1..-1], &fn]
   }
 
-  # Maps fn over coll iteratively and in-place, modifying the original collection.
+  # Maps fn over coll in-place, modifying the original collection.
   MAP_BANG = -> coll, &fn {
     sz = SIZE[coll]
     i = 0
@@ -20,7 +20,7 @@ module Church
     })[]
   }
 
-  # Reduces fn over coll iteratively.
+  # Reduces fn over coll.
   REDUCE = -> coll, &fn {
     sz = SIZE[coll]
     ret = coll[0]
@@ -32,7 +32,7 @@ module Church
     })[]
   }
 
-  # Filters coll through fn using recursion.
+  # Filters coll through fn.
   FILTER = -> coll, &fn {
     coll == [] ? [] : (fn[coll[0]] ? [coll[0]] : []) + FILTER[coll[1..-1], &fn]
   }
@@ -83,4 +83,10 @@ module Church
 
   # Sorts the collection in reverse order.
   RSORT = COMPOSE[REVERSE, SORT]
+
+  # Returns the collection with the first n elements dropped.
+  DROP = -> coll, n { coll[n..-1] }
+
+  # Returns the first n elements of the collection.
+  TAKE = -> coll, n { coll[0, n] }
 end

data/lib/church/utils.rb

@@ -13,4 +13,10 @@ module Church::Utils
       n == 1 ? cs << 1 : collatz_p[cs << n]
     })[[n]]
   }
+
+  DIGITSUM = -> n {
+    (summer = -> sum {
+      (n /= 10) == 0 ? sum : summer[sum + n % 10]
+    })[n % 10]
+  }
 end

data/lib/church/version.rb

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

data/spec/array_spec.rb

@@ -78,3 +78,15 @@ describe 'EACH' do
     expect(x).to be 6
   end
 end
+
+describe 'DROP' do
+  it "should drop the first n elements of a collection" do
+    expect(DROP[[1, 2, 3, 4], 2]).to eq [3, 4]
+  end
+end
+
+describe 'TAKE' do
+  it "should take the first n elements of a collection" do
+    expect(TAKE[[1, 2, 3, 4], 2]).to eq [1, 2]
+  end
+end

data/spec/spec_helper.rb

@@ -1,6 +1,8 @@
 require 'simplecov'
 require 'simplecov-console'
 
+SimpleCov.add_filter '/spec'
+
 SimpleCov.formatter = SimpleCov::Formatter::MultiFormatter[
   SimpleCov::Formatter::HTMLFormatter,
   SimpleCov::Formatter::Console

data/spec/utils_spec.rb

@@ -28,3 +28,10 @@ describe 'COLLATZ' do
     expect(SIZE[COLLATZ[194]]).to be 120
   end
 end
+
+describe 'DIGITSUM' do
+  it "should return the digital sum of its argument" do
+    expect(DIGITSUM[12345]).to be 15
+    expect(DIGITSUM[0]).to be 0
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: church
 version: !ruby/object:Gem::Version
-  version: 0.1.1
+  version: 0.1.2
   prerelease: 
 platform: ruby
 authors: