Author: | kobi |
---|---|
Mode: | factor |
Date: | Sat, 23 Oct 2010 08:18:32 |
USING: accessors kernel slots.syntax math ; IN: max-list QUALIFIED-WITH: binary-tree bst TUPLE: maxlist < limited-list min ; : <maxlist> ( limit -- minlist ) maxlist new swap >>limit ; M: maxlist belongs? ( node maxlist -- ? ) min>> dup [ bst:> ] [ 2drop t ] if ; M: maxlist update ( maxlist -- ) dup btree>> bst:min >>min drop ;
Author: | kobi |
---|---|
Mode: | factor |
Date: | Sat, 23 Oct 2010 11:51:19 |
M: maxlist remove-border ( maxlist -- ) min>> remove ;