functions 0.0.8 → 0.0.9

checksums.yaml

@@ -1,15 +1,15 @@
 ---
 !binary "U0hBMQ==":
   metadata.gz: !binary |-
-    NTk3ZDc4OWUxMTEwY2QzODFiZjYzMGJjNTA2MDZjMjNhNWJiMDc5Mw==
+    ZjNiMzhiYWU2ZWZiMTFlMzY2MWFhZmI3ZDU1NWYzNmI4NDUxM2IxOA==
   data.tar.gz: !binary |-
-    MWNiMjA0N2UzNmExNzg5NTAyZTcwYzUwOGEzODFhMDY0MGVjYjQwYg==
+    YjNiYTg3MTUxODAwYTIxNjZlNDJhMTkzZDFhYTM5YTY3NTU1MzdmZA==
 SHA512:
   metadata.gz: !binary |-
-    Nzc3N2VjMzBkM2NiNTVhOTQ3NWJlNzA3NjY4NGU3NWU0YWVlMzFmZDZmMDE5
-    YjdkZWJlODZhYTEzZDYzMTdjNWY1YTE2NGRhM2U2MjM2Njk4MzUyMDU3YzBi
-    NWIwNTJhMjUwNTI5ZWE0NGYyYzEyOWJmMTU0OWFiZjRmODc1MDA=
+    ZTljMTAwOTQzMGVhYTFhZmNhN2Q0ODQ3YTU2ZmVkNDNiMDNmZGQwMDBmMjUz
+    ZGQ0MDg0MWVjYzMxMmVkNDY5ZThlMzhjYzM5NmJjOWJjZTZmYWY5M2Y5ZmVh
+    Y2Y2ZmEwMWU3NjU0NjBmZTRhMDRiNjlkOTNlNzlkNDNmYzExNjc=
   data.tar.gz: !binary |-
-    NzU5YzRiOWEzMmM5ZDVmMWQxZGY0OGZmNjU2NDBjMzVjMzFkMTBmNThjMzli
-    MTRkMTYxYWMxMWFhMzZhN2UxZmFjODdmM2VjMjllOGQzY2NlMDU5NjViZTA2
-    YmMzNjhjZDYxYTIzMGQ1YjcxMDM1MDVkNjBkODc1N2FiZWY4MDQ=
+    ZWJlZWQwZDUwZjgyMWEzYTNlNGU5NzFkNmQ2OTUwMGNmMmQyZmM4OTYyMDI0
+    NjdhNDczOGNmMTRmZmZlNTU2ZGZjMzIzZDIzZDI1MjMyOTU3MTE1YmEzZjI0
+    ZjU0NTQyY2NmNWUyMDk4NDBjZWE5NzE1ZDYwZTZlZGQ4ZjMxYTk=

data/lib/functions/prelude_lambda/basic.rb

@@ -81,6 +81,10 @@ module Functions
 
     Zip = ->(a, b) { a.zip(b) }.curry
 
+    Zip_Hash_Left = ->(as, bs) { as.merge(bs) { |k, a, b| [a, b] } }.curry
+
+    Zip_Hash = ->(as, bs) { as.each_with_object({}) { |(k, a), h| h[k] = [a, bs[k]]; h } }.curry
+
     Map = ->(f, a) { a.map { |x| f.(x) } }.curry
 
     Map_Hash = ->(f, h) { Hash[h.map{|k, v| [k, f.(v)] }] }.curry     
@@ -93,9 +97,9 @@ module Functions
 
     Intersect = ->(as) { as.inject(:&) }
 
-    Group = ->(f,a) { a.group_by(&f) }.curry # functional friend    
+    Group = ->(f,a) { a.group_by(&f) }.curry 
 
-    Partition = ->(f) { Group.(f) > Send.(:values) } # functional friend    
+    Partition = ->(f) { Group.(f) > Send.(:values) } 
 
     FromTo = ->(from) { ->(to) { Range.new(from, to) } }
 

data/lib/functions/prelude_lambda/ext.rb

@@ -16,17 +16,17 @@ class Proc
   # Composition of Procs (functions): (f+g)(x) = f(g(x))
   def +(g)
     # Prelude::Compose.(self,g)
-    ->(x) { self.(g.(x)) }
+    ->(*x) { self.(g.(*x)) }
   end
   # Composition of Procs (functions): (f<g)(x) = f(g(x))
   def <(g)
     # Prelude::Compose.(self,g)
-    ->(x) { self.(g.(x)) }
+    ->(*x) { self.(g.(*x)) }
   end
   # Composition of Procs (functions): (f>g)(x) = g(f(x))
   def >(g)
     # Prelude::After.(self,g)
-    ->(x) { g.(self.(x)) }
+    ->(*x) { g.(self.(*x)) }
   end
   # Partial evaluation of a Proc (function)
   def partial(a)

data/lib/functions/version.rb

@@ -1,3 +1,3 @@
 module Functions
-  VERSION = "0.0.8"
+  VERSION = "0.0.9"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: functions
 version: !ruby/object:Gem::Version
-  version: 0.0.8
+  version: 0.0.9
 platform: ruby
 authors:
 - Koen Handekyn
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-10-17 00:00:00.000000000 Z
+date: 2013-10-18 00:00:00.000000000 Z
 dependencies: []
 description: functional programming in ruby
 email: