changeset 260:56409de95f55

Untested implementation of filter for arrays
author Michael Pavone <pavone@retrodev.com>
date Sun, 01 Jun 2014 22:39:25 -0700
parents 32964a4e7a33
children 074f885596ed
files modules/array.tp
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/modules/array.tp	Thu May 29 18:51:15 2014 -0700
+++ b/modules/array.tp	Sun Jun 01 22:39:25 2014 -0700
@@ -103,6 +103,16 @@
 		new
 	}
 
+	filter <- :fun {
+		new <- #[]
+		foreach: self :idx el {
+			if: (fun: el) {
+				new append: el
+			}
+		}
+		new
+	}
+
 	find:withDefault <- :pred :default{
 		idx <- 0
 		l <- length