From a976e31f3956412bbcb7dcf82ad84899c32d1369 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 25 Apr 2012 15:58:18 -0700 Subject: [PATCH] sequences.extras: adding map-sift and map-harvest. --- extra/sequences/extras/extras.factor | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 6755e94254..26cd3dad2c 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -133,3 +133,9 @@ IN: sequences.extras : map-filter ( ... seq quot: ( ... elt -- ... newelt ) quot: ( ... newelt -- ... ? ) -- ... subseq ) pick map-filter-as ; inline + +: map-sift ( ... seq quot: ( ... elt -- ... newelt ) -- ... newseq ) + [ ] map-filter ; inline + +: map-harvest ( ... seq quot: ( ... elt -- ... newelt ) -- ... newseq ) + [ empty? not ] map-filter ; inline