Changeset 25443 in project


Ignore:
Timestamp:
10/27/11 13:22:37 (9 years ago)
Author:
juergen
Message:

skiplists version 0.2

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/eggref/4/skiplists

    r25405 r25443  
    5151        skip-remove-all!
    5252        ----------------
    53         (skip-remove-all! skp item)
    54         remove all skipnodes with item from skiplist, if found
     53        (skip-remove-all! skp . items)
     54        remove nodes (all per found item) with items from skiplist
    5555        (domain (%skiplist? skp))
    5656        (effect (count (%skip-count skp) count >=))
     
    5858        skip-remove!
    5959        ------------
    60         (skip-remove! skp item)
    61         remove skipnode with item from skiplist, if found
    62         (domain (%skiplist? skp))
    63         (effect (count (%skip-count skp) (- count 1) <=))
     60        (skip-remove! skp . items)
     61        remove nodes (one per found item) with items from skiplist
     62        (domain (%skiplist? skp))
     63        (effect (count (%skip-count skp) (- count (length items)) <=))
    6464
    6565        skip-insert!
    6666        ------------
    67         (skip-insert! skp item)
    68         insert a new node with item in order
    69         (domain (%skiplist? skp))
    70         (effect (count (%skip-count skp) (+ count 1) (if (skip-dups? skp) = >=)))
     67        (skip-insert! skp . items)
     68        insert new nodes with items into skiplist
     69        (domain (%skiplist? skp))
     70        (effect (count (%skip-count skp) (+ count (length items)) (if (skip-dups? skp) = >=)))
    7171
    7272        skip-found?
     
    117117        (domain (%skiplist? skp) (procedure? proc))
    118118
    119         skip-map
    120         --------
    121         (skip-map skp proc . cmps)
    122         map skiplist with proc using new comparison operators if necessary
    123         (domain (%skiplist? skp) (procedure? proc) ((list-of? procedure?) cmps) new numeric comparison procedures)
    124         (range (%skiplist? result) (<= (%skip-count result) (%skip-count skp)))
    125 
    126119        skip-restructure
    127120        ----------------
     
    193186== Last update
    194187
    195 Oct 21, 2011
     188Oct 27, 2011
    196189
    197190== Author
     
    226219== Version History
    227220
     221; 0.2 : skip-map removed, skip-insert!, skip-remove! and skip-remove-all! now accept multiple item arguments
    228222; 0.1 : initial import
Note: See TracChangeset for help on using the changeset viewer.