Mercurial > repos > tabletprog
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