lazy-filter

Vocabulary

lists.lazy

Definition

IN: lists.lazy

TUPLE: lazy-filter cons quot ;

Methods

USING: accessors kernel lists lists.lazy lists.lazy.private ;

M: lazy-filter car
    dup car-filtered? [ cons>> ] [ skip ] if car ;


USING: accessors kernel lists lists.lazy lists.lazy.private ;

M: lazy-filter cdr
    dup car-filtered?
    [ [ cons>> cdr ] [ quot>> ] bi lfilter ] [ skip cdr ] if ;


USING: accessors combinators kernel lists lists.lazy
lists.lazy.private ;

M: lazy-filter nil?
    {
        { [ dup cons>> nil? ] [ drop t ] }
        { [ dup car-filtered? ] [ drop f ] }
        [ skip nil? ]
    } cond ;