lazy-take

Vocabulary

lists.lazy

Definition

IN: lists.lazy

TUPLE: lazy-take n cons ;

Methods

USING: accessors lists lists.lazy ;

M: lazy-take car cons>> car ;


USING: accessors kernel lists lists.lazy math ;

M: lazy-take cdr [ n>> 1 - ] [ cons>> cdr ltake ] bi ;


USING: accessors kernel lists lists.lazy math ;

M: lazy-take nil? dup n>> zero? [ drop t ] [ cons>> nil? ] if ;