functions 0.0.4 → 0.0.5

checksums.yaml

@@ -1,15 +1,15 @@
 ---
 !binary "U0hBMQ==":
   metadata.gz: !binary |-
-    Yjc3YjRkZDYwYmMzZjZmYmUwMzVjMTVkZGQxYWJkMThlZWEyZWJiMg==
+    OTNkN2M4ZGQwZmUwZmJiNGE4Y2U3ZjViMTZlZTEwNDllNDFiMTZmMQ==
   data.tar.gz: !binary |-
-    Y2ZmYjg4OGJiNTg1ZmQxY2M1MjMxNmZmMzZjNWE2ODU5NWY1YzljOA==
+    ZWEwYmJjNWY2NDVkZDc1NTkwNjZiNzBkY2NmNDc1NGZhMGZlOGNiMg==
 SHA512:
   metadata.gz: !binary |-
-    NGRmMWYxMmY1ZTU0OWY1ZTM0ODk5ZmJhNTZkNjQwYmJmNWU3NmExZmViYWM3
-    NzQxOTYwMzliNTRhMDczNDE5OTRhZmYzYWE0MjhhNjZkODYyOTBiYTlkM2Y3
-    YzQwMmM2YjkxZTZkMjczNWM5YWVjNGQ0NmM2ODRmZjhiZjgxN2Q=
+    ODcyOTczYTFkMDhkN2VlNzg0MWYwOWU5MjhjMjJiMzkwYWEyYTczZGZjMDlm
+    ODdiZjhkMTM4MmFiODVmZjc3ZmMwNGVlM2UzYWUxMzBkMTRiMzI5YzJlZTYz
+    ZTgyYzViNjIxM2ZlNzdkY2E0M2MzNmEwOTgwYWRhZDQ0OGMxM2I=
   data.tar.gz: !binary |-
-    MDNmNDYxZDRlMDMzN2ZkM2U0ODY3MTkyZGMzN2JhMDAyMzA0ZGFkMmJiZWVi
-    NGRmYzFkZGY3OWI1ZjAzZjJiZDk0NmQ2M2JkZDI1ZjRjNWQyM2U4YTdmOGZj
-    ZjM5Nzg2NzlhZTVlYTNlMTMzOGFjYThjZTdkYzRkMTcxNmZiNDQ=
+    ZmJlMGVlMDlmMDU1MTgwMmYwMTAzMWNjNDA4ODYwYWYzYmU3MDQ3ODVjMDI4
+    YzFlYjNjZTEyNzllMzA4M2U3ZmI0M2QyYjZjMWUzM2ExOWUzY2Y1NDNkNjNk
+    ZjJmMTQwMzFiMzZmNmMxMTQ1OTY3N2VjYzM5MzdkYzRiNGQ1MTI=

data/lib/functions/prelude_lambda/basic.rb

@@ -71,7 +71,6 @@ module Functions
     # Returns the length
     Length = Send.(:length)
 
-    #
     Foldl = ->(f, i, a) { a.inject(i) { |r, x| f.(r, x) } }.curry
 
     ReduceLeft = ->(f, a) { a.inject { |r, x| f.(r, x) } }.curry
@@ -84,6 +83,8 @@ module Functions
 
     Map = ->(f, a) { a.map { |x| f.(x) } }.curry
 
+    Map_Hash = ->(f, h) { Hash[h.map{|k, v| [k, f.(v)] }] }.curry     
+
     Filter = ->(f, xs) { xs.select { |x| f.(x) } }.curry
 
     Parallel = ->(f, g, x) { [f.(x), g.(x)] }.curry
@@ -92,10 +93,20 @@ module Functions
 
     Intersect = ->(as) { as.inject(:&) }
 
+    Group_By = ->(f,a) { a.group_by(&f) }.curry # functional friend    
+
+    Partition_By = ->(f) { Group_By.(f) >= Send.(:values) } # functional friend    
+
     FromTo = ->(from) { ->(to) { Range.new(from, to) } }
 
     FromOneTo = FromTo.(1)
 
+    Count_By = ->(f,a) { a.inject( Hash.new(0) ) { |h,e| h[f.(e)] += 1; h } }.curry
+    # count_by = ->(f) { group_by.( f ) >= map_hash.( send.(:length) ) }    
+    
+    Count = ->(a) { a.inject( Hash.new(0) ) { |h,e| h[e] += 1; h } } # probably a bit faster   
+    # count = count_by.(identity) # alternative definition (generic)
+
   end
 
 end

data/lib/functions/version.rb

@@ -1,3 +1,3 @@
 module Functions
-  VERSION = "0.0.4"
+  VERSION = "0.0.5"
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: functions
 version: !ruby/object:Gem::Version
-  version: 0.0.4
+  version: 0.0.5
 platform: ruby
 authors:
 - Koen Handekyn