church 0.0.11 → 0.0.12

data/lib/church/hash.rb

@@ -1,8 +1,11 @@
 module Church
+  # Returns the keys of a Hash as an array
   KEYS   = -> hash { MAP[[*hash], &:first] }
 
+  # Returns the values of a Hash as an array
   VALUES = -> hash { MAP[[*hash], &:last]  }
 
+  # Inverts the keys and values of its hash argument
   INVERT = -> hash {
     ks, vs = KEYS[hash], VALUES[hash]
     sz = SIZE[ks]
@@ -15,6 +18,7 @@ module Church
     })[]
   }
 
+  # Merges the keys and values of the two hashes into a new hash
   MERGE = -> a, b {
     all = [*a] + [*b]
     sz  = SIZE[all]

data/lib/church/io.rb

@@ -1,16 +1,21 @@
 module Church
+  # Returns the equivalent of Fixnum#chr
   CHR = -> o { '' << o }
 
+  # Returns the equivalent of String#ord
   ORD = -> c {
     (order = -> i {
       '' << i == c ? i : order[i + 1]
     })[1]
   }
 
+  # Prints the object
   PRINT = -> obj { $> << obj }
 
+  # Prints the object with a newline
   PUTS =  -> obj { $> << obj << "\n" }
 
+  # Returns an array of the characters of a string
   CHARS = -> str {
     sz = SIZE[str]
     ret = []
@@ -22,5 +27,6 @@ module Church
     })[]
   }
 
-  JOIN = -> str, delim { str * delim }
+  # Joins the collection into a string on a specified delimiter
+  JOIN = -> coll, delim { coll * delim }
 end

data/lib/church/lambda.rb

@@ -1,3 +1,4 @@
 module Church
+  # Composes the lambdas f and g into a procedure which returns f(g(x))
   COMPOSE = -> f, g { -> x { f[g[x]] } }
 end

data/lib/church/math.rb

@@ -1,8 +1,11 @@
 module Church
+  # Returns the square root of its argument
   SQRT = -> n { n ** 2 ** -1 }
 
+  # Returns its argument rounded down
   FLOOR = -> n { n - n % 1 }
 
+  # Returns the primality of its argument
   PRIME = -> n {
     n = n < 0 ? -n : n
     n < 3 ? n == 2 : n % 2 == 0 ? false :

data/lib/church/utils.rb

@@ -1,4 +1,5 @@
 module Church::Utils
+  # Returns the ROT-13 of the specified character
   ROT13 = -> chr {
     ord = ORD[chr]
     ord > 64 && ord <  91 ? CHR[(ord -  78) % 26 + 65] :

data/lib/church/version.rb

@@ -1,3 +1,3 @@
 module Church
-  VERSION = "0.0.11"
+  VERSION = "0.0.12"
 end

data/spec/io_spec.rb

@@ -3,18 +3,14 @@ require 'spec_helper'
 include Church
 
 describe 'CHR' do
-  (1..122).each do |ord|
-    it "should return its argument's corresponding character" do
-      expect(CHR[ord]).to eq ord.chr
-    end
+  it "should return its argument's corresponding character" do
+    expect(CHR[83]).to eq 83.chr
   end
 end
 
 describe 'ORD' do
-  ("\1".."z").each do |chr|
-    it "should return its argument's corresponding ordinal value" do
-      expect(ORD[chr]).to be chr.ord
-    end
+  it "should return its argument's corresponding ordinal value" do
+    expect(ORD['q']).to be 'q'.ord
   end
 end
 

data/spec/lambda_spec.rb

@@ -7,7 +7,7 @@ describe 'COMPOSE' do
   MUL_SIX = -> x { 6 * x }
   SIX_X_PLUS_TWO = COMPOSE[ADD_TWO, MUL_SIX]
 
-  (-50..50).each do |x|
+  (-2..2).each do |x|
     it "should compose two lambdas f and g and return f[g[x]]" do
       expect(SIX_X_PLUS_TWO[x]).to be x * 6 + 2
     end

data/spec/math_spec.rb

@@ -16,7 +16,7 @@ describe 'FLOOR' do
 end
 
 describe 'PRIME' do
-  (-25..25).each do |i|
+  (-6..6).each do |i|
     it "should return its argument's primality" do
       expect(PRIME[i]).to be i.prime?
     end

data/spec/utils_spec.rb

@@ -7,4 +7,9 @@ describe 'ROT13' do
     expect(ROT13['a']).to eq 'n'
     expect(ROT13['n']).to eq 'a'
   end
+
+  it "should rotate an uppercase letter 13 places" do
+    expect(ROT13['M']).to eq 'Z'
+    expect(ROT13['Z']).to eq 'M'
+  end
 end

metadata

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