arrows 0.0.2 → 0.0.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 1b8e5f6e4eb4a43c2f35518b07bf4b9f0a8a48f4
-  data.tar.gz: b28cecf3536eba6249380a4b1b95ccebe70f31c1
+  metadata.gz: 3e42f3d0e4c8cecd3652dad40c68dceb12ae87b3
+  data.tar.gz: 60bfe5bc1948c543a13e421fce7fadae1fb96fe6
 SHA512:
-  metadata.gz: dca8f5f4ff089919b40f3aad4ea9bc074c54be226dd39cefd4f52376a9dcb85946472cce5cbd2b04a39904adaf7f91759967c13fdb9708ab49958df18e2f70f2
-  data.tar.gz: 4da8524c8d276ee903bdc14176733ad99b9157ec2621b59fd35d5b984140b0e56badfb292633793aa29e7b9feb550dc263f45635a97d419365ccad96f4eb0e72
+  metadata.gz: 747c5dec094e34b35286359c41477f8cca1bc655c4378798f49f66e41610d5339e642cc7ebef41e510e8349d7dd42c39d9d7e009ff12affffd622d13645df83a
+  data.tar.gz: cc30a24f86c1831b0f48febe9bfed33cce5a16d7fd1a95e74a88dfab9d9b6e9e31535578ca333ed17831a1f347ec9c97fdbe7f75b19839b9a9405d80f1e3d8f4

data/lib/arrows.rb

@@ -1,7 +1,22 @@
 require "arrows/version"
 
 module Arrows
+  class Either
+    attr_accessor :payload
+    def initialize(good_or_evil, payload)
+      @good = !!good_or_evil
+      @payload = payload
+    end
+    def good?
+      @good
+    end
+  end
   class << self
+    def fork(f,g)
+      Arrows::Proc.new do |either|
+        either.good? ? f[*either.payload] : g[*either.payload]
+      end
+    end
     def concurrent(f,g)
       Arrows::Proc.new do |*args| 
         [f[*args.first], g[*args.last]]
@@ -16,6 +31,14 @@ module Arrows
     def fmap(xs, f)
       Arrows::Proc.new { |*args| xs[*args].map { |*x| f[*x] }  }
     end
+    def good(x)
+      return x if x.respond_to?(:good?) && x.respond_to?(:payload)
+      Arrows::Either.new true, x
+    end
+    def evil(x)
+      return x if x.respond_to?(:good?) && x.respond_to?(:payload)
+      Arrows::Either.new false, x
+    end 
     def lift(x)
       return x if arrow_like? x
       return wrap_proc x if proc_like? x
@@ -53,5 +76,10 @@ module Arrows
     def %(f)
       Arrows.concurrent self, Arrows.lift(f)
     end
+
+    # fork composition
+    def ^(f)
+      Arrows.fork self, f
+    end
   end
 end

data/lib/arrows/version.rb

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

data/spec/arrows/proc_spec.rb

@@ -48,6 +48,23 @@ RSpec.describe Arrows::Proc do
     end
   end
 
+  context '^ fork' do
+    let(:times2) { Arrows.lift -> (x) { x * 2 } }
+    let(:plus3) { Arrows.lift -> (x) { x + 3 } }
+    let(:four) { Arrows.lift Arrows.good 4 }
+    let(:eight) { Arrows.lift Arrows.evil 8 }
+    let(:fork_four) { four >> (times2 ^ plus3) }
+    let(:fork_eight) { eight >> (plus3 ^ times2) }
+    context 'good' do
+      subject { fork_four.call }
+      specify { should eq 8 }
+    end
+    context 'evil' do
+      subject { fork_eight.call }
+      specify { should eq 16 }
+    end
+  end
+
   context '%/ fanout into concurrent' do
     let(:add1) { Arrows.lift -> (x) { x + 1 } }
     let(:add4) { Arrows.lift -> (x) { x + 4 } }

metadata

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