daitai 0.1.11 → 0.1.12

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 4d7a78ce4623b81bdf05b5be7c7aee152f89e81db2e11b494cc391bf5636d5c5
-  data.tar.gz: 7dcac48058a84d36295f62f9ada59010eb090f9fcf8cbbbfc680d48201934b7e
+  metadata.gz: 1939017ecba29ca4fe6e6ee9a5773e51453a236b9fc688a8a90418f7317958db
+  data.tar.gz: a1d08cbcac87cfd8689652a391380e7b857c7a617aca0edcb2a3b8dee79e56d3
 SHA512:
-  metadata.gz: c35c2a5feb0824759caf918bfce02401e247f55036784e8870dbb68829c6e0dd253cf36a66962ddd1d06a0de2e8ecf04c4b86c77411bb84f695db6ca2fcadfd1
-  data.tar.gz: 98589d176b0a5acdbc6dd21956056e155ff6cfb584d94f2745f09f89b6dbcbb0d0c2093b30a941114a2638cd0bf3a05c7376ff663818a9c16669f979f0eeada6
+  metadata.gz: 3d1a1b81055ddebb8ad11e8fef26f168c4c16074066a2b26d51fcccd1c4df17ab9e76d1959392dd119b8ce71cb733080cf42081b90185d534832c8dbec25ad3c
+  data.tar.gz: 2fc218befeb82b84827a1dd303679fa238bd758125d4ba080838bcd30b0a899512cd00675ad16091d64127712042aa975f15ce075f0777e6af5ddf4180b72ece

data/.travis.yml

@@ -7,4 +7,6 @@ rvm:
   - 2.4.3
   - 2.5.0
   - ruby-head
-before_install: gem install bundler -v 1.16.1
+before_install:
+  - gem update --system
+  - gem install bundler -v 1.16.2

data/Gemfile.lock

@@ -1,7 +1,7 @@
 PATH
   remote: .
   specs:
-    daitai (0.1.11)
+    daitai (0.1.12)
 
 GEM
   remote: https://rubygems.org/

data/README.md

@@ -40,8 +40,11 @@ $ gem install daitai
 * [comparator](#comparator-definition)
 * [compose](#compose-definition)
 * [concat](#concat-definition)
+* [cond](#cond-definition)
 * [dec](#dec-definition)
 * [divide](#divide-definition)
+* [equals](#equals-definition)
+* [false](#false-definition)
 * [filter](#filter-definition)
 * [flip](#flip-definition)
 * [head](#head-definition)
@@ -75,6 +78,7 @@ $ gem install daitai
 * [sum](#sum-definition)
 * [tail](#tail-definition)
 * [tap](#tap-definition)
+* [true](#true-definition)
 * [xor](#xor-definition)
 
 - - -
@@ -209,6 +213,26 @@ Daitai.concat.("Szcz", "ecin") # => "Szczecin"
 
 - - -
 
+<h4 id='cond-definition'>
+  <code>cond :: [[(*… → Bool), (*… → *)]] → (*… → *)</code>
+</h4>
+
+Takes a list of pairs consisted of a predicate and a transformer and returns a function which finds the first passing predicate and evaluates the corresponding transformer. Returns a `nil` if there is no matching predicate.
+
+```ruby
+function = Daitai.cond.(
+  [Daitai.is.(String), Daitai.always.("It's a String!")],
+  [Daitai.is.(Symbol), Daitai.always.("It's a Symbol!")],
+  [Daitai.true, ->(unknown) { "I don't know what #{unknown} is."}]
+)
+
+function.("いただきます") # => "It's a String!"
+function.(:env) # => "It's a Symbol!"
+function.(3.14) # => "I don't know what 3.14 is."
+```
+
+- - -
+
 <h4 id='dec-definition'>
   <code>dec :: Numeric -> Numeric</code>
 </h4>
@@ -233,6 +257,33 @@ Daitai.divide.(18, 6) # => 3
 
 - - -
 
+<h4 id='equals-definition'>
+  <code>equals :: a -> b -> Bool</code>
+</h4>
+
+Returns `true` if both arguments are equal. Otherwise returns `false`.
+
+```ruby
+Daitai.equals.(7, 7) # => true
+Daitai.equals.('7', 7) # => false
+Daitai.equals.(%w[a b c], %w[a b c]) # => true
+```
+
+- - -
+
+<h4 id='false-definition'>
+  <code>false :: * -> Bool</code>
+</h4>
+
+Returns a function that ignores all arguments and always returns `false`.
+
+```ruby
+Daitai.false.() # => false
+Daitai.false.(1, 2, 3) # => false
+```
+
+- - -
+
 <h4 id='filter-definition'>
   <code>filter :: (a -> Bool) -> [a] -> [a]</code>
 </h4>
@@ -708,6 +759,19 @@ Daitai.tap.(logger, 7)
 
 - - -
 
+<h4 id='true-definition'>
+  <code>true :: * → Bool</code>
+</h4>
+
+Returns a function that ignores all arguments and always returns `true`.
+
+```ruby
+Daitai.true.() # => true
+Daitai.true.(1, 2, 3) # => true
+```
+
+- - -
+
 <h4 id='xor-definition'>
   <code>xor :: Bool -> Bool -> Bool</code>
 </h4>

data/lib/daitai.rb

@@ -14,8 +14,11 @@ module Daitai
   extend Comparator
   extend Compose
   extend Concat
+  extend Cond
   extend Dec
   extend Divide
+  extend Equals
+  extend False
   extend Filter
   extend Flip
   extend Head
@@ -49,5 +52,6 @@ module Daitai
   extend Sum
   extend Tail
   extend Tap
+  extend True
   extend Xor
 end

data/lib/daitai/functions/comparator.rb

@@ -4,13 +4,13 @@ module Daitai
   module Comparator
     def comparator
       lambda do |predicate|
-        ->(a, b) { evaluate(predicate, a, b) }
+        ->(a, b) { evaluate_comparator(predicate, a, b) }
       end
     end
 
     private
 
-    def evaluate(predicate, a, b)
+    def evaluate_comparator(predicate, a, b)
       return -1 if predicate.(a, b)
       return 1 if predicate.(b, a)
       0

data/lib/daitai/functions/cond.rb

@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+
+module Daitai
+  module Cond
+    def cond
+      ->(*pairs) { evaluate_cond(pairs) }
+    end
+
+    private
+
+    def evaluate_cond(pairs)
+      lambda do |*arguments|
+        result = nil
+
+        pairs.each do |(predicate, transformer)|
+          break result = transformer.(*arguments) if predicate.(*arguments)
+        end
+
+        result
+      end
+    end
+  end
+end

data/lib/daitai/functions/equals.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+module Daitai
+  module Equals
+    def equals
+      lambda do |a, b|
+        a == b
+      end.curry
+    end
+  end
+end

data/lib/daitai/functions/false.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+module Daitai
+  module False
+    def false
+      always.(false)
+    end
+  end
+end

data/lib/daitai/functions/true.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+
+module Daitai
+  module True
+    def true
+      always.(true)
+    end
+  end
+end

data/lib/daitai/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module Daitai
-  VERSION = '0.1.11'
+  VERSION = '0.1.12'
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: daitai
 version: !ruby/object:Gem::Version
-  version: 0.1.11
+  version: 0.1.12
 platform: ruby
 authors:
 - Walerian Sobczak
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2018-05-12 00:00:00.000000000 Z
+date: 2018-05-19 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -95,8 +95,11 @@ files:
 - lib/daitai/functions/comparator.rb
 - lib/daitai/functions/compose.rb
 - lib/daitai/functions/concat.rb
+- lib/daitai/functions/cond.rb
 - lib/daitai/functions/dec.rb
 - lib/daitai/functions/divide.rb
+- lib/daitai/functions/equals.rb
+- lib/daitai/functions/false.rb
 - lib/daitai/functions/filter.rb
 - lib/daitai/functions/flip.rb
 - lib/daitai/functions/head.rb
@@ -130,6 +133,7 @@ files:
 - lib/daitai/functions/sum.rb
 - lib/daitai/functions/tail.rb
 - lib/daitai/functions/tap.rb
+- lib/daitai/functions/true.rb
 - lib/daitai/functions/xor.rb
 - lib/daitai/version.rb
 homepage: https://github.com/walerian777/daitai