memoized-cons

Vocabulary

lists.lazy

Definition

IN: lists.lazy

TUPLE: memoized-cons original car cdr nil? ;

Methods

USING: accessors kernel lists lists.lazy ;

M: memoized-cons car
    dup car>> +not-memoized+ eq?
    [ dup original>> car [ >>car drop ] keep ] [ car>> ] if ;


USING: accessors kernel lists lists.lazy ;

M: memoized-cons cdr
    dup cdr>> +not-memoized+ eq?
    [ dup original>> cdr [ >>cdr drop ] keep ] [ cdr>> ] if ;


USING: accessors kernel lists lists.lazy ;

M: memoized-cons nil?
    dup nil?>> +not-memoized+ eq?
    [ dup original>> nil? [ >>nil? drop ] keep ] [ nil?>> ] if ;