kansuu 0.0.2 → 0.0.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 15f1ebcfd060418353aeef0fc91c09b70cb61bba
-  data.tar.gz: 4eca15568b286ac9248de7ccb1ad4b67eba8cb55
+  metadata.gz: 4741726cacb83525d3945d20e797dc283555b414
+  data.tar.gz: 9bbde18d909e6f2f7ce38fde7d1c41955a05faf3
 SHA512:
-  metadata.gz: 77935840f84cdc68c963b6ed1de9d054c4ae66ea401c81bca52e0aebbfdb77f9f0b6a9008a932d88ba7404a5d9bd6b2a3aaee9556e5cc698783cebc444b57e44
-  data.tar.gz: ff05bffff0ed6d4b1a9676683b650f1c7ff37b4d5ee4adffcab4a970a6cddd717155fc920db36cb19bd33b07a4ace548febde0f2733e3f51e0d56613d467df73
+  metadata.gz: 7cab7ea16c6a6c375789ff8a614f0b02a99893b811e6c59ee4a67708b6b63856959826b6657a0fd244dacd2360548bf68570cd909f9a2b13126ad6866c9c8fae
+  data.tar.gz: a4187ca02df873e0ffddbd99b91a28e5b6bc3cf5bb0f2e3b1855243923c7b1de7cdd3d4dbb90a9532f0c57cd5d28ca287c8cce541dccadcd522af923e399275e

data/lib/kansuu/control.rb

@@ -1,5 +1,5 @@
 require "lambda_driver"
-require "kansuu/num"
+require "kansuu/util"
 
 module Kansuu::Control
   extend Kansuu::Util

data/lib/kansuu/enum.rb

@@ -108,6 +108,17 @@ module Kansuu::Enum
     fold1[-> x, y { x + y }]
   end
 
+  def range
+    -> x, y { x..y } % 2
+  end
+
+  def initial
+    withl[length >> minus[1]] >>
+    app[take]
+  end
+
+  def tail; drop[1] end
+
   __module_functionize[]
 end
 

data/lib/kansuu/flow.rb

@@ -0,0 +1,13 @@
+require "lambda_driver"
+require "kansuu/util"
+
+module Kansuu::Flow
+  extend Kansuu::Util
+
+  def act
+    -> f, x { f >> (-> y { x }) < x} % 2
+  end
+
+  __module_functionize[]
+end
+

data/lib/kansuu/option.rb

@@ -0,0 +1,12 @@
+require "lambda_driver"
+require "kansuu/util"
+
+module Kansuu::Option
+  extend Kansuu::Util
+
+  def may
+    -> f, x { !x.nil? ? f[x] : x } % 2
+  end
+
+  __module_functionize[]
+end

data/lib/kansuu/version.rb

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

data/lib/kansuu.rb

@@ -5,9 +5,11 @@ require "kansuu/combinator"
 require "kansuu/control"
 require "kansuu/enum"
 require "kansuu/eq"
+require "kansuu/flow"
 require "kansuu/func"
 require "kansuu/num"
 require "kansuu/obj"
+require "kansuu/option"
 require "kansuu/ord"
 
 module Kansuu
@@ -17,9 +19,11 @@ module Kansuu
     Kansuu::Control,
     Kansuu::Enum,
     Kansuu::Eq,
+    Kansuu::Flow,
     Kansuu::Func,
     Kansuu::Num,
     Kansuu::Obj,
+    Kansuu::Option,
     Kansuu::Ord
   ].map &-> m {
     include m

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: kansuu
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.0.3
 platform: ruby
 authors:
 - Akihito Fujiwara
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2016-07-11 00:00:00.000000000 Z
+date: 2016-07-13 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -88,9 +88,11 @@ files:
 - lib/kansuu/control.rb
 - lib/kansuu/enum.rb
 - lib/kansuu/eq.rb
+- lib/kansuu/flow.rb
 - lib/kansuu/func.rb
 - lib/kansuu/num.rb
 - lib/kansuu/obj.rb
+- lib/kansuu/option.rb
 - lib/kansuu/ord.rb
 - lib/kansuu/util.rb
 - lib/kansuu/version.rb