Outdated egg!
This is an egg for CHICKEN 4, the unsupported old release. You're almost certainly looking for the CHICKEN 5 version of this egg, if it exists.
If it does not exist, there may be equivalent functionality provided by another egg; have a look at the egg index. Otherwise, please consider porting this egg to the current version of CHICKEN.
vlist
Implementation of vlists, a functional list-like data structure.
Usage
(require-extension vlist)
Documentation
The vlist library provides an implementations of vlists, a functional list-like data structure described by Phil Bagwell in "Fast Functional Lists, Hash-Lists, Dequeues and Variable-Length Arrays", EPFL Technical Report, 2002.
The idea is to store vlist elements in increasingly large contiguous blocks (implemented as vectors here). These blocks are linked to one another using a pointer to the next block (called `block-base' here) and an offset within that block (`block-offset' here). The size of these blocks form a geometric series with ratio `block-growth-factor'.
In the best case (e.g., using a vlist returned by `list->vlist'), elements from the first half of an N-element vlist are accessed in O(1) (assuming `block-growth-factor' is 2), and `vlist-length' takes only O(ln(N)). Furthermore, the data structure improves data locality since vlist elements are adjacent, which plays well with caches.
List procedures
[procedure] vlist? x -> booleanReturns #t if x is a vlist, #f otherwise.
[procedure] vlist-cons item vlist -> vlistCreates a new vlist with item as its head and vlist as its tail.
[procedure] vlist-head vlist -> valueReturns the head of vlist.
[procedure] vlist-tail vlist -> vlistReturn the tail of vlist.
[procedure] vlist-null? vlist -> booleanReturns true if vlist is empty, false otherwise.
[procedure] list->vlist lstReturns a new vlist whose contents correspond to lst.
[procedure] vlist-fold proc init vlistFold over vlist, calling proc for each element.
[procedure] vlist-fold-right proc init vlistFold over vlist, calling proc for each element, starting from the last element.
[procedure] vlist-reverse vlistReturns a new vlist whose content are those of vlist in reverse order.
[procedure] vlist-map proc vlistMaps proc over the elements of vlist and return a new vlist.
[procedure] vlist->list vlist -> listReturn a new list containing the elements of vlist.
[procedure] vlist-ref vlist index -> valueReturns the element at index index in vlist.
[procedure] vlist-drop vlist count -> vlistReturns a new vlist that does not contain the count first elements of vlist.
[procedure] vlist-take vlist count -> vlistReturns a new vlist that contains only the count first elements of vlist.
[procedure] vlist-filter pred vlist -> vlistReturns a new vlist containing all the elements from vlist that satisfy pred.
[procedure] vlist-delete x vlist [equal?] -> vlistReturns a new vlist corresponding to vlist without the elements equal? to x.
[procedure] vlist-length vlist -> numberReturns the length of vlist.
[procedure] vlist-unfold p f g seed [tail-gen] -> vlistvlist constructor. Analogous to SRFI-1 `unfold'.
[procedure] vlist-unfold-right p f g seed [tail] -> vlistvlist constructor. Analogous to SRFI-1 `unfold-right'.
[procedure] vlist-append vlists1 .. vlistn -> vlistAppends the given vlists.
[procedure] vlist-for-each proc vlist -> unspecifiedCalls proc on each element of vlist.
Hash list procedures
Hash vlists are analogous to association lists.
[procedure] vhash? obj -> booleanReturns true if obj is a hash vlist, false otherwise.
[procedure] vhash-cons key value vhash [hash] -> vhash[procedure] vhash-consq key value vhash [hash] -> vhash
[procedure] vhash-consv key value vhash [hash] -> vhash
Return a new hash list based on vhash where key is associated with value. Use hash to compute key's hash.
[procedure] vhash-fold* proc init key vhash -> valueFolds over all the values associated with key in vhash, with each call to proc having the form (proc value result), where result is the result of the previous call to proc and init the value of result for the first call to proc.
[procedure] vhash-foldq* proc init key vhash -> valueSame as vhash-fold*, but using eq?-hash and eq?.
[procedure] vhash-foldv* proc init key vhash -> valueSame as vhash-fold*, but using eqv?-hash and eqv?.
[procedure] vhash-assoc key vhash [equal?] [hash] -> (key . value)Returns the first key/value pair from vhash whose key is equal to key according to the equal? equality predicate.
[procedure] vhash-assq key vhash -> (key . value)Returns the first key/value pair from vhash whose key is eq? to key.
[procedure] vhash-assv key vhash -> (key . value)Returns the first key/value pair from vhash whose key is eqv? to key.
[procedure] vhash-delete key vhash [equal?] [hash] -> vhash[procedure] vhash-delq key vhash [equal?] [hash] -> vhash
[procedure] vhash-delv key vhash [equal?] [hash] -> vhash
Removes all associations from vhash with key, comparing keys with equal?.
[procedure] vhash-fold proc init vhashFolds over the key/pair elements of vhash from left to right, with each call to proc having the form (proc key value result), where result is the result of the previous call to proc and init the value of result for the first call to proc.
[procedure] vhash-fold-right proc init vhashFolds over the key/pair elements of vhash from right to left, with each call to proc having the form (proc key value result), where result is the result of the previous call to proc and init the value of result for the first call to proc.
[procedure] alist->vhash alist [hash] -> vhashReturns the vhash corresponding to alist, an association list.
Examples
About this egg
Author
Version history
- 1.0
- Initial release
License
The vlist library was written by Ludovic Courtès and adapted for Chicken Scheme by Ivan Raikov. Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. Chicken Scheme modifications Copyright 2012 Ivan Raikov. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. A full copy of the Lesser GPL license can be found at <http://www.gnu.org/licenses/>.