From 95a3027926ca97f7ae50c5db0171f3dcc087b967 Mon Sep 17 00:00:00 2001
From: Denis Knauf <Denis.Knauf@gmail.com>
Date: Wed, 23 Jun 2010 16:40:01 +0200
Subject: [PATCH] flatten added

---
 lib/functional.rb | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/functional.rb b/lib/functional.rb
index ce407c0..7faf71d 100644
--- a/lib/functional.rb
+++ b/lib/functional.rb
@@ -154,6 +154,12 @@ class Functional
 		end
 	end
 
+	class Flatten <Base
+		def call a
+			Array === a ? a.each( &method( :call)) : @next.call( a)
+		end
+	end
+
 	class Reduce <Base
 		def initialize iv, *a, &e
 			super *a, &e
@@ -218,6 +224,10 @@ class Functional
 		push TopDown.new( init, &exe)
 	end
 
+	def flatten
+		push Flatten.new
+	end
+
 	def each &exe
 		return self  unless exe
 		push Each.new