funkr 0.0.3 → 0.0.4

data/lib/funkr/categories/applicative.rb

@@ -18,6 +18,10 @@ module Funkr
             end
           end
         end
+
+        def lift_with(*args, &block)
+          full_lift_proc(&block).call(*args)
+        end
       end
 
       

data/lib/funkr/extensions/array.rb

@@ -89,5 +89,12 @@ class Array
     else [[], self]
     end
   end
+
+  # Constitue des groupes de n éléments
+  def groups_of(ar, n)
+    return [] if self.empty?
+    [self.take(n)] + groups_of(self.drop(n), n)
+  end
+
   
 end

data/lib/funkr/version.rb

@@ -1,3 +1,3 @@
 module Funkr
-  VERSION = "0.0.3"
+  VERSION = "0.0.4"
 end

data/test/tests.rb

@@ -33,11 +33,16 @@ f = Maybe.full_lift_proc{|x,y| x + y}
 puts f.call(m,m)
 puts f.call(m,n)
 
+puts "\n> Lift with"
+puts Maybe.lift_with(m,m){|x,y| x + y}
+
+puts "\n> mconcat"
 puts Maybe.mconcat([Maybe.just(10),
                     Maybe.just(20),
                     Maybe.nothing,
                     Maybe.just(30)])
 
+puts "\n> Comparisons"
 puts(m <=> m)
 puts(m <=> (m.map{|v| v+1}))
 puts(m < (m.map{|v| v+1}))
@@ -65,3 +70,6 @@ puts(a.bind do |x|
        end
      end.inspect)
 
+
+puts "\n> group_seq_by"
+puts([1,2,4,5,7,5,8,2,10].group_seq_by{|x| x % 2}.inspect)

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 0
-  - 3
-  version: 0.0.3
+  - 4
+  version: 0.0.4
 platform: ruby
 authors: 
 - Paul Rivier
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-03-09 00:00:00 +01:00
+date: 2011-03-11 00:00:00 +01:00
 default_executable: 
 dependencies: []