arrows 0.0.1 → 0.0.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 3959c84c04b961af219c9ebace94e96b8dee661e
-  data.tar.gz: 1f8938d020276560369e30f791a8ec7607c9e267
+  metadata.gz: 1b8e5f6e4eb4a43c2f35518b07bf4b9f0a8a48f4
+  data.tar.gz: b28cecf3536eba6249380a4b1b95ccebe70f31c1
 SHA512:
-  metadata.gz: c1c511982b5353cce121f0d99783d04a93a7760dfcad30b2e50308c4dba5edf94b52d27928a5a9d0b2c96363c246cce7e552a13ec4ca3b5e7189d940576e6589
-  data.tar.gz: 6d56bc8cbce8fa1d48ff1ab14a0cdcdf3195f952b28f6147941e9b0cb520c34dd2611362a18f04bd0a9d2438037231724d3d5dab8f12f4ad5fe1e235284e6bd1
+  metadata.gz: dca8f5f4ff089919b40f3aad4ea9bc074c54be226dd39cefd4f52376a9dcb85946472cce5cbd2b04a39904adaf7f91759967c13fdb9708ab49958df18e2f70f2
+  data.tar.gz: 4da8524c8d276ee903bdc14176733ad99b9157ec2621b59fd35d5b984140b0e56badfb292633793aa29e7b9feb550dc263f45635a97d419365ccad96f4eb0e72

data/README.md

@@ -7,6 +7,7 @@ actually useful set of functional tools for day-to-day Ruby programming
 
 Features:
 
+*note, see spec/arrows/proc_spec.rb to get an idea how to use this junk
 ### Function composition
 
 If given
@@ -17,6 +18,7 @@ x -> H -> z
 
 As in we pipe what F poops out into the mouth of G a la Human Centipede
 
+
 ### Applicative composition
 Calls map (in Haskell, they generalize it to fmap) on the data passed in
 

data/lib/arrows.rb

@@ -2,6 +2,11 @@ require "arrows/version"
 
 module Arrows
   class << self
+    def concurrent(f,g)
+      Arrows::Proc.new do |*args| 
+        [f[*args.first], g[*args.last]]
+      end
+    end
     def fanout(f,g)
       Arrows::Proc.new { |*args| [f[*args], g[*args]] }
     end
@@ -23,7 +28,9 @@ module Arrows
       x.respond_to?(:call) && x.respond_to?(:arity)
     end
     def wrap_proc(f)
-      Arrows::Proc.new { |*args| f[*args] }
+      Arrows::Proc.new do |*args|
+        f[*args]
+      end
     end
   end
   class Proc < ::Proc
@@ -41,5 +48,10 @@ module Arrows
     def /(f)
       Arrows.fanout self, Arrows.lift(f)
     end
+
+    # concurrent composition
+    def %(f)
+      Arrows.concurrent self, Arrows.lift(f)
+    end
   end
 end

data/lib/arrows/version.rb

@@ -1,3 +1,3 @@
 module Arrows
-  VERSION = "0.0.1"
+  VERSION = "0.0.2"
 end

data/spec/arrows/proc_spec.rb

@@ -19,7 +19,7 @@ RSpec.describe Arrows::Proc do
     specify { should eq [10, 12, 14] }
   end
 
-  context '+ fanout' do
+  context '/ fanout' do
     let(:times2) { Arrows.lift -> (x) { x * 2 } }
     let(:plus3) { Arrows.lift -> (x) { x + 3 } }
     let(:four) { Arrows.lift 4 }
@@ -27,4 +27,52 @@ RSpec.describe Arrows::Proc do
     subject { six_eight.call }
     specify { should eq [8, 7] }
   end
+
+  context '% concurrent' do
+    let(:times2) { Arrows.lift -> (x) { x * 2 } }
+    let(:plus3) { Arrows.lift -> (x) { x + 3 } }
+    let(:four) { Arrows.lift [4,6] }
+    context 'validity' do
+      subject { times2.call 2 }
+      specify { should eq 4 }
+    end 
+    context 'arity' do
+      let(:par) { times2 % plus3 }
+      subject { par.call 1,2 }
+      specify { should eq [2, 5] }
+    end
+    context 'result' do
+      let(:eight_nine) { four >> times2 % plus3 }
+      subject { eight_nine.call }
+      specify { should eq [8,9] }
+    end
+  end
+
+  context '%/ fanout into concurrent' do
+    let(:add1) { Arrows.lift -> (x) { x + 1 } }
+    let(:add4) { Arrows.lift -> (x) { x + 4 } }
+    let(:two) { Arrows.lift 2 }
+    let(:result) { two >> add1 / add4 >> add1 % add4 }
+    context 'result' do
+      subject { result.call }
+      specify { should eq [4, 10] }
+    end
+  end
+
+  context '>=%/ applicative fanout into concurrent' do
+    let(:add1) { Arrows.lift -> (x) { x + 1 } }
+    let(:add4) { Arrows.lift -> (x) { x + 4 } }
+    let(:twos) { Arrows.lift [2,2,2] }
+    let(:transform) { add1 / add4 >> add1 % add4 }
+    let(:result) { twos >= add1 / add4 >> add1 % add4 }
+    context 'result' do
+      subject { result.call }
+      specify { should eq [[4,10], [4,10], [4,10]] }
+    end
+    context 'similarity' do
+      let(:actual) { twos >= transform }
+      subject { result.call }
+      specify { should eq actual.call }
+    end
+  end
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: arrows
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors:
 - Thomas Chen
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-12-04 00:00:00.000000000 Z
+date: 2014-12-05 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler