# HG changeset patch
# User William Morgan <billjunk@mrgn.org>
# Date 1406356577 25200
# Node ID abd8ceef0dd8f5b44448be2d40579f880991a2f2
# Parent  4f7a421e77c60683c1d82592919bfad39dd83e4c
Added flatten function

diff -r 4f7a421e77c6 -r abd8ceef0dd8 code/mike00.lm
--- a/code/mike00.lm	Fri Jul 25 23:19:29 2014 -0700
+++ b/code/mike00.lm	Fri Jul 25 23:36:17 2014 -0700
@@ -55,6 +55,14 @@
 		}
 		reverse: new
 	}
+
+	flatten <- :lst {
+		fold: lst [] with: :acc el {
+			fold: el acc with: :iacc iel {
+				iel | iacc
+			}
+		}
+	}
 	
 	makeTree:size <- :lst :size {
 		ret <- 0
@@ -191,6 +199,7 @@
 		print: (fold: lst 0 with: :acc el { acc + el })
 		print: (filter: lst :el { el > 4 })
 		print: (tree: tree update: 8 with: :el { el + 29 })
+		print: (flatten: [lst lst lst])
 	}
 	
-}
\ No newline at end of file
+}