church 0.0.5 → 0.0.6

data/lib/church/array.rb

@@ -81,6 +81,7 @@ module Church
     })[]
   }
 
+  # Zips each element of coll with its index within the collection.
   INDEXED = -> coll {
     sz = SIZE[coll]
     ret = []
@@ -92,6 +93,19 @@ module Church
     })[]
   }
 
+  # Reverses the collection.
+  REVERSE = -> coll {
+    sz = SIZE[coll]
+    ret = coll[0, 0]
+    i = sz
+
+    (reverser = -> {
+      ret << coll[i - 1]
+      (i -= 1) == 0 ? ret : reverser[]
+    })[]
+  }
+
+  # Sorts the collection.
   SORT = -> coll {
     x, *xs = *coll
     coll == [] ? []
@@ -99,4 +113,7 @@ module Church
       [x] +
       SORT[FILTER[xs, &-> y { y >= x }]]
   }
+
+  # Sorts the collection in reverse order.
+  RSORT = -> coll { REVERSE[SORT[coll]] }
 end

data/lib/church/version.rb

@@ -1,3 +1,3 @@
 module Church
-  VERSION = "0.0.5"
+  VERSION = "0.0.6"
 end

data/spec/array_spec.rb

@@ -43,12 +43,28 @@ describe 'FILTER' do
   end
 end
 
+describe 'REVERSE' do
+  it "should reverse an array" do
+    expect(REVERSE[[1, 2, 3]]).to eq [3, 2, 1]
+  end
+
+  it "should reverse a string" do
+    expect(REVERSE["Ruby"]).to eq "ybuR"
+  end
+end
+
 describe 'SORT' do
   it "should sort an array" do
     expect(SORT[[4, 3, 2, 2, 1, 3]]).to eq [1, 2, 2, 3, 3, 4]
   end
 end
 
+describe 'RSORT' do
+  it "should sort an array in reverse order" do
+    expect(RSORT[[2, 1, 3]]).to eq [3, 2, 1]
+  end
+end
+
 describe 'INDEXED' do
   it "should zip a collection with indices" do
     expect(INDEXED[[1, 2, 3]]).to eq [[1, 0], [2, 1], [3, 2]]

metadata

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