funkr 0.0.20 → 0.0.21

data/lib/funkr/types/maybe.rb

@@ -71,6 +71,13 @@ module Funkr
         end
       end
       
+      def unbox(default=nil)
+        self.match do |on|
+          on.just {|v| v }
+          on.nothing { default }
+        end
+      end
+
       class << self
         alias unit just
         alias pure just
@@ -81,14 +88,19 @@ module Funkr
         if value.nil? then self.nothing
         else self.just(value) end
       end
-      
-      def unbox(default=nil)
-        self.match do |on|
-          on.just {|v| v }
-          on.nothing { default }
+
+      # concat :: [Maybe a] -> [a]
+      #  The Maybe.concat function takes a list of Maybes and returns
+      #  a list of all the Just values.
+      def self.concat(maybes)
+        maybes.inject([]) do |a, e|
+          e.match do |on| 
+            on.just{|v| a + [v]}
+            on.nothing{ a }
+          end
         end
       end
-      
+
     end
   end
 end

data/lib/funkr/version.rb

@@ -1,3 +1,3 @@
 module Funkr
-  VERSION = "0.0.20"
+  VERSION = "0.0.21"
 end

data/test/tests.rb

@@ -50,6 +50,12 @@ puts Maybe.mconcat([Maybe.just(10),
                     Maybe.nothing,
                     Maybe.just(30)])
 
+puts "\n> concat"
+puts Maybe.concat([ Maybe.just(10),
+                    Maybe.just(20),
+                    Maybe.nothing,
+                    Maybe.just(30) ]).inspect
+
 puts "\n> Comparisons"
 puts(m <=> m)
 puts(m <=> (m.map{|v| v+1}))

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 0
-  - 20
-  version: 0.0.20
+  - 21
+  version: 0.0.21
 platform: ruby
 authors: 
 - Paul Rivier
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-09-28 00:00:00 +02:00
+date: 2011-09-29 00:00:00 +02:00
 default_executable: 
 dependencies: []