4.10 Pairs and Lists (original) (raw)

4.10 Pairs and Lists🔗

+Pairs and Lists in The Racket Guide introduces pairs and lists.

A pair combines exactly two values. The first value is accessed with the car procedure, and the second value is accessed with the cdr procedure. Pairs are not mutable (but see Mutable Pairs and Lists).

A list is recursively defined: it is either the constantnull, or it is a pair whose second value is a list.

A list can be used as a single-valued sequence (seeSequences). The elements of the list serve as elements of the sequence. See also in-list.

Cyclic data structures can be created using only immutable pairs viaread or make-reader-graph. If starting with a pair and using some number of cdrs returns to the starting pair, then the pair is not a list.

See Reading Pairs and Lists for information on reading pairs and lists and Printing Pairs and Lists for information on printing pairs and lists.

4.10.1 Pair Constructors and Selectors🔗

Returns #t if v is a pair, #f otherwise.

Examples:

> (pair? 1)
#f
> (pair? (cons 1 2))
#t
> (pair? (list 1 2))
#t
> (pair? '(1 2))
#t
> (pair? '())
#f

Returns #t if v is the empty list, #fotherwise.

Examples:

> (null? 1)
#f
> (null? '(1 2))
#f
> (null? '())
#t
> (null? (cdr (list 1)))
#t

Returns a newly allocated pair whose first element is a and second element is d. When d is a list, the allocated pair is also a list.

Examples:

> (cons 1 2)
'(1 . 2)
> (cons 1 '())
'(1)

Returns the first element of the pair p.

Examples:

> (car '(1 2))
1
> (car '(2 . 3))
2

Returns the second element of the pair p.

Examples:

> (cdr '(1 2))
'(2)
> (cdr '(2 . 3))
3

The empty list.

Examples:

> null
'()
> '()
'()
> (eq? '() null)
#t

Returns #t if v is a list: either the empty list, or a pair whose second element is a list. This procedure effectively takes constant time due to internal caching (so that any necessary traversals of pairs can in principle count as an extra cost of allocating the pairs).

Examples:

> (list? '(1 2))
#t
> (list? (cons 1 (cons 2 '())))
#t
> (list? (cons 1 2))
#f

Returns a newly allocated list containing the vs as its elements.

Examples:

> (list 1 2 3 4)
'(1 2 3 4)
> (list (list 1 2) (list 3 4))
'((1 2) (3 4))

Like list, but the last argument is used as the tail of the result, instead of the final element. The result is a list only if the last argument is a list.

Examples:

> (list* 1 2 3)
'(1 2 . 3)
> (list* 1 2 (list 3 4))
'(1 2 3 4)

Creates a list of n elements by applying proc to the integers from 0 to (sub1 n) in order. Iflst is the resulting list, then (list-ref lst i) is the value produced by (proc i).

Examples:

> (build-list 10 values)
'(0 1 2 3 4 5 6 7 8 9)
> (build-list 5 (lambda (x) (* x x)))
'(0 1 4 9 16)
4.10.2 List Operations🔗

Returns the number of elements in lst. This function takes time proportional to that length.

Examples:

> (length (list 1 2 3 4))
4
> (length '())
0

Returns the element of lst at position pos, where the list’s first element is position 0. If the list haspos or fewer elements, then the exn:fail:contract exception is raised.

The lst argument need not actually be a list; lst must merely start with a chain of at least (add1 pos) pairs.

This function takes time proportional to pos.

Examples:

> (list-ref (list 'a 'b 'c) 0)
'a
> (list-ref (list 'a 'b 'c) 1)
'b
> (list-ref (list 'a 'b 'c) 2)
'c
> (list-ref (cons 1 2) 0)
1
> (list-ref (cons 1 2) 1)
list-ref: index reaches a non-pair
index: 1
in: '(1 . 2)

Returns the list after the first pos elements of lst. If the list has fewer than pos elements, then theexn:fail:contract exception is raised.

The lst argument need not actually be a list; lstmust merely start with a chain of at least pos pairs.

This function takes time proportional to pos.

Examples:

> (list-tail (list 1 2 3 4 5) 2)
'(3 4 5)
> (list-tail (cons 1 2) 1)
2
> (list-tail (cons 1 2) 2)
list-tail: index reaches a non-pair
index: 2
in: '(1 . 2)
> (list-tail 'not-a-pair 0)
'not-a-pair

When given all list arguments, the result is a list that contains all of the elements of the given lists in order. The last argument is used directly in the tail of the result.

The last argument need not be a list, in which case the result is an “improper list.”

This function takes time proportional to the length of all arguments (added together) except the last argument.

Examples:

> (append (list 1 2) (list 3 4))
'(1 2 3 4)
> (append (list 1 2) (list 3 4) (list 5 6) (list 7 8))
'(1 2 3 4 5 6 7 8)
(reverse lst) → list?
lst : list?

Returns a list that has the same elements as lst, but in reverse order.

This function takes time proportional to the length of lst.

Example:

> (reverse (list 1 2 3 4))
'(4 3 2 1)
4.10.3 List Iteration🔗

Applies proc to the elements of the lsts from the first elements to the last. The proc argument must accept the same number of arguments as the number of supplied lsts, and all lsts must have the same number of elements. The result is a list containing each result of proc in order.

Examples:

> (map (lambda (number) (+ 1 number)) '(1 2 3 4))
'(2 3 4 5)
> (map (lambda (number1 number2) (+ number1 number2)) '(1 2 3 4) '(10 100 1000 10000))
'(11 102 1003 10004)

Similar to map in the sense that proc is applied to each element of lst, but

The andmap function is actually closer tofoldl than map, since andmap doesn’t produce a list. Still, (andmap f (list x y z)) is equivalent to (and (f x) (f y) (f z)) in the same way that(map f (list x y z)) is equivalent to(list (f x) (f y) (f z)).

If the lsts are empty, then #t is returned.

Examples:

> (andmap positive? '(1 2 3))
#t
> (andmap positive? '(1 2 a))
positive?: contract violation
expected: real?
given: 'a
> (andmap positive? '(1 -2 a))
#f
> (andmap + '(1 2 3) '(4 5 6))
9

Similar to map in the sense that proc is applied to each element of lst, but

To continue the andmap note above,(ormap f (list x y z)) is equivalent to(or (f x) (f y) (f z)).

If the lsts are empty, then #f is returned.

Examples:

> (ormap eq? '(a b c) '(a b c))
#t
> (ormap positive? '(1 2 a))
#t
> (ormap + '(1 2 3) '(4 5 6))
5

Similar to map, but proc is called only for its effect, and its result (which can be any number of values) is ignored.

Example:

Like map, foldl applies a procedure to the elements of one or more lists. Whereas map combines the return values into a list, foldl combines the return values in an arbitrary way that is determined by proc.

If foldl is called with n lists, then proc must take n+1 arguments. The extra argument is the combined return values so far. The proc is initially invoked with the first item of each list, and the final argument is init. In subsequent invocations of proc, the last argument is the return value from the previous invocation of proc. The inputlsts are traversed from left to right, and the result of the whole foldl application is the result of the last application of proc. If the lsts are empty, the result isinit.

Unlike foldr, foldl processes the lsts in constant space (plus the space for each call to proc).

Examples:

> (foldl cons '() '(1 2 3 4))
'(4 3 2 1)
> (foldl + 0 '(1 2 3 4))
10
> (foldl (lambda (a b result) (* result (- a b))) 1 '(1 2 3) '(4 5 6))
-27

Like foldl, but the lists are traversed from right to left. Unlike foldl, foldr processes the lsts in space proportional to the length of lsts (plus the space for each call to proc).

Examples:

> (foldr cons '() '(1 2 3 4))
'(1 2 3 4)
> (foldr (lambda (v l) (cons (add1 v) l)) '() '(1 2 3 4))
'(2 3 4 5)
4.10.4 List Filtering🔗

Returns a list with the elements of lst for which predproduces a true value. The pred procedure is applied to each element from first to last.

Example:

Returns a list that is like lst, omitting the first element oflst that is equal to v using the comparison procedureproc (which must accept two arguments), with v as the first argument and an element in lst as the second argument. If no element in lst is equal to v (according to proc),lst is returned unchanged.

Examples:

> (remove 2 (list 1 2 3 2 4))
'(1 3 2 4)
> (remove '(2) (list '(1) '(2) '(3)))
'((1) (3))
> (remove "2" (list "1" "2" "3"))
'("1" "3")
> (remove #\c (list #\a #\b #\c))
'(#\a #\b)
> (remove "B" (list "a" "A" "b" "B") string-ci=?)
'("a" "A" "B")
> (remove 5 (list 1 2 3 2 4))
'(1 2 3 2 4)

Changed in version 8.2.0.2 of package base: Guaranteed that the output is eq? to lstif no removal occurs.

Returns (remove v lst eq?).

Examples:

> (remq 2 (list 1 2 3 4 5))
'(1 3 4 5)
> (remq '(2) (list '(1) '(2) '(3)))
'((1) (2) (3))
> (remq "2" (list "1" "2" "3"))
'("1" "3")
> (remq #\c (list #\a #\b #\c))
'(#\a #\b)

Returns (remove v lst eqv?).

Examples:

> (remv 2 (list 1 2 3 4 5))
'(1 3 4 5)
> (remv '(2) (list '(1) '(2) '(3)))
'((1) (2) (3))
> (remv "2" (list "1" "2" "3"))
'("1" "3")
> (remv #\c (list #\a #\b #\c))
'(#\a #\b)

Examples:

> (remw 2 (list 1 2 3 4 5))
'(1 3 4 5)
> (remw '(2) (list '(1) '(2) '(3)))
'((1) (3))
> (remw "2" (list "1" "2" "3"))
'("1" "3")
> (remw #\c (list #\a #\b #\c))
'(#\a #\b)
> (define b1 (box 5))
> (define b2 (box 5))
> (remw b2 (list 0 b1 1 b2 2))
'(0 #&5 1 2)

Added in version 8.5.0.3 of package base.

Like remove, but removes from lst every instance of every element of v-lst.

Example:

> (remove* (list 1 2) (list 1 2 3 2 4 5 2))
'(3 4 5)

Changed in version 8.2.0.2 of package base: Guaranteed that the output is eq? to lstif no removal occurs.

(remq* v-lst lst) → list?
v-lst : list?
lst : list?

Returns (remove* v-lst lst eq?).

Example:

> (remq* (list 1 2) (list 1 2 3 2 4 5 2))
'(3 4 5)
(remv* v-lst lst) → list?
v-lst : list?
lst : list?

Returns (remove* v-lst lst eqv?).

Example:

> (remv* (list 1 2) (list 1 2 3 2 4 5 2))
'(3 4 5)
(remw* v-lst lst) → list?
v-lst : list?
lst : list?

Examples:

> (remw* (list 1 2) (list 1 2 3 2 4 5 2))
'(3 4 5)
> (define b1 (box 5))
> (define b2 (box 5))
> (remw* (list b2) (list 0 b1 1 b2 2 b2 3))
'(0 #&5 1 2 3)

Added in version 8.5.0.3 of package base.

Returns a list sorted according to the less-than? procedure, which takes two elements of lst and returns a true value if the first is less (i.e., should be sorted earlier) than the second.

The sort is stable; if two elements of lst are “equal” (i.e., less-than? does not return a true value when given the pair in either order), then the elements preserve their relative order fromlst in the output list. To preserve this guarantee, usesort with a strict comparison functions (e.g., < orstring<?; not <= or string<=?).

Because of the peculiar fact that the IEEE-754 number system specifies that +nan.0 is neither greater nor less than nor equal to any other number, sorting lists containing this value may produce a surprising result.

The #:key argument extract-key is used to extract a key value for comparison from each list element, where #fis replaced by (lambda (x) x) That is, the full comparison procedure is essentially

(lambda (x y)
(less-than? (extract-key x) (extract-key y)))

By default, extract-key is applied to two list elements for every comparison, but if cache-keys? is true, then theextract-key function is used exactly once for each list item. Supply a true value for cache-keys? when extract-keyis an expensive operation; for example, iffile-or-directory-modify-seconds is used to extract a timestamp for every file in a list, then cache-keys? should be#t to minimize file-system calls, but if extract-keyis car, then cache-keys? should be #f. As another example, providing extract-key as(lambda (x) (random)) and #t for cache-keys?effectively shuffles the list.

Examples:

> (sort '(1 3 4 2) <)
'(1 2 3 4)
> (sort '("aardvark" "dingo" "cow" "bear") string<?)
'("aardvark" "bear" "cow" "dingo")
> (sort '(("aardvark") ("dingo") ("cow") ("bear")) #:key car string<?)
'(("aardvark") ("bear") ("cow") ("dingo"))
4.10.5 List Searching🔗

Locates the first element of lst that is equal tov according to is-equal?. If such an element exists, the tail of lststarting with that element is returned. Otherwise, the result is#f.

The lst argument need not actually be a list; lstmust merely start with a chain of pairs until a matching element is found. If no matching element is found, then lst must be a list (and not a cyclic list). The result can be a non-list in the case that an element is found and the returned tail of lst is a non-list.

Examples:

> (member 2 (list 1 2 3 4))
'(2 3 4)
> (member 9 (list 1 2 3 4))
#f
> (member #'x (list #'x #'y) free-identifier=?)
'(#<syntax:eval:575:0 x> #<syntax:eval:575:0 y>)
> (member #'a (list #'x #'y) free-identifier=?)
#f
> (member 'b '(a b . etc))
'(b . etc)
> (member 'c '(a b . etc))
member: not a proper list
in: '(a b . etc)

Examples:

> (memw 2 (list 1 2 3 4))
'(2 3 4)
> (memw 9 (list 1 2 3 4))
#f
> (define b1 (box 5))
> (define b2 (box 5))
> (memw b2 (list 0 b1 1 b2 2))
'(#&5 2)

Added in version 8.5.0.3 of package base.

Like member, but finds an element using eqv?.

Examples:

> (memv 2 (list 1 2 3 4))
'(2 3 4)
> (memv 9 (list 1 2 3 4))
#f

Like member, but finds an element using eq?.

Examples:

> (memq 2 (list 1 2 3 4))
'(2 3 4)
> (memq 9 (list 1 2 3 4))
#f

Like member, but finds an element using the predicateproc; an element is found when proc applied to the element returns a true value.

Example:

> (memf (lambda (arg) (> arg 9)) '(7 8 9 10 11))
'(10 11)

Like memf, but returns the element or #f instead of a tail of lst or #f.

Notably, if #f is an element of lst, then the result of #f is ambiguous: it may indicate that no element satisfies proc, or may indicate that the element #f satisfies proc.

Example:

> (findf (lambda (arg) (> arg 9)) '(7 8 9 10 11))
10

Locates the first element of lst whose car is equal tov according to is-equal?. If such an element exists, the pair (i.e., an element of lst) is returned. Otherwise, the result is #f.

The lst argument need not actually be a list of pairs;lst must merely start with a chain of pairs contains pairs until a matching element is found. If no matching element is found, then lst must be a list of pairs (and not a cyclic list).

Examples:

> (assoc 3 (list (list 1 2) (list 3 4) (list 5 6)))
'(3 4)
> (assoc 9 (list (list 1 2) (list 3 4) (list 5 6)))
#f
> (assoc 3.5 (list (list 1 2) (list 3 4) (list 5 6)) (lambda (a b) (< (abs (- a b)) 1)))
'(3 4)

Examples:

> (assw 3 (list (list 1 2) (list 3 4) (list 5 6)))
'(3 4)
> (define b1 (box 0))
> (define b2 (box 0))
> (assw b2 (list (cons b1 1) (cons b2 2)))
'(#&0 . 2)

Added in version 8.5.0.3 of package base.

Like assoc, but finds an element using eqv?.

Example:

> (assv 3 (list (list 1 2) (list 3 4) (list 5 6)))
'(3 4)

Like assoc, but finds an element using eq?.

Example:

> (assq 'c (list (list 'a 'b) (list 'c 'd) (list 'e 'f)))
'(c d)

Like assoc, but finds an element using the predicateproc; an element is found when proc applied to thecar of an lst element returns a true value.

Example:

> (assf (lambda (arg) (> arg 2)) (list (list 1 2) (list 3 4) (list 5 6)))
'(3 4)
4.10.6 Pair Accessor Shorthands🔗

Returns (car (car v)).

Returns (car (cdr v)).

Returns (cdr (car v)).

Example:

> (cdar '((7 6 5 4 3 2 1) 8 9))
'(6 5 4 3 2 1)

Returns (cdr (cdr v)).

Returns (car (car (car v))).

Example:

> (caaar '(((6 5 4 3 2 1) 7) 8 9))
6

Returns (car (car (cdr v))).

Example:

> (caadr '(9 (7 6 5 4 3 2 1) 8))
7

Returns (car (cdr (car v))).

Example:

> (cadar '((7 6 5 4 3 2 1) 8 9))
6

Returns (car (cdr (cdr v))).

Returns (cdr (car (car v))).

Example:

> (cdaar '(((6 5 4 3 2 1) 7) 8 9))
'(5 4 3 2 1)

Returns (cdr (car (cdr v))).

Example:

> (cdadr '(9 (7 6 5 4 3 2 1) 8))
'(6 5 4 3 2 1)

Returns (cdr (cdr (car v))).

Example:

> (cddar '((7 6 5 4 3 2 1) 8 9))
'(5 4 3 2 1)

Returns (cdr (cdr (cdr v))).

Returns (car (car (car (car v)))).

Example:

> (caaaar '((((5 4 3 2 1) 6) 7) 8 9))
5

Returns (car (car (car (cdr v)))).

Example:

> (caaadr '(9 ((6 5 4 3 2 1) 7) 8))
6

Returns (car (car (cdr (car v)))).

Example:

> (caadar '((7 (5 4 3 2 1) 6) 8 9))
5

Returns (car (car (cdr (cdr v)))).

Example:

> (caaddr '(9 8 (6 5 4 3 2 1) 7))
6

Returns (car (cdr (car (car v)))).

Example:

> (cadaar '(((6 5 4 3 2 1) 7) 8 9))
5

Returns (car (cdr (car (cdr v)))).

Example:

> (cadadr '(9 (7 6 5 4 3 2 1) 8))
6

Returns (car (cdr (cdr (car v)))).

Example:

> (caddar '((7 6 5 4 3 2 1) 8 9))
5

Returns (car (cdr (cdr (cdr v)))).

Returns (cdr (car (car (car v)))).

Example:

> (cdaaar '((((5 4 3 2 1) 6) 7) 8 9))
'(4 3 2 1)

Returns (cdr (car (car (cdr v)))).

Example:

> (cdaadr '(9 ((6 5 4 3 2 1) 7) 8))
'(5 4 3 2 1)

Returns (cdr (car (cdr (car v)))).

Example:

> (cdadar '((7 (5 4 3 2 1) 6) 8 9))
'(4 3 2 1)

Returns (cdr (car (cdr (cdr v)))).

Example:

> (cdaddr '(9 8 (6 5 4 3 2 1) 7))
'(5 4 3 2 1)

Returns (cdr (cdr (car (car v)))).

Example:

> (cddaar '(((6 5 4 3 2 1) 7) 8 9))
'(4 3 2 1)

Returns (cdr (cdr (car (cdr v)))).

Example:

> (cddadr '(9 (7 6 5 4 3 2 1) 8))
'(5 4 3 2 1)

Returns (cdr (cdr (cdr (car v)))).

Example:

> (cdddar '((7 6 5 4 3 2 1) 8 9))
'(4 3 2 1)

Returns (cdr (cdr (cdr (cdr v)))).

4.10.7 Additional List Functions and Synonyms🔗

The bindings documented in this section are provided by the racket/list and racket libraries, but not racket/base.

The empty list.

Examples:

The same as (pair? v).

Example:

The same as (null? v).

Examples:

> (empty? '(1 2))
#f
> (empty? '())
#t

The same as (car lst), but only for lists (that are not empty).

Example:

> (first '(1 2 3 4 5 6 7 8 9 10))
1
(rest lst) → list?
lst : list?

The same as (cdr lst), but only for lists (that are not empty).

Example:

> (rest '(1 2 3 4 5 6 7 8 9 10))
'(2 3 4 5 6 7 8 9 10)

Returns the second element of the list.

Example:

> (second '(1 2 3 4 5 6 7 8 9 10))
2

Returns the third element of the list.

Example:

> (third '(1 2 3 4 5 6 7 8 9 10))
3

Returns the fourth element of the list.

Example:

> (fourth '(1 2 3 4 5 6 7 8 9 10))
4

Returns the fifth element of the list.

Example:

> (fifth '(1 2 3 4 5 6 7 8 9 10))
5

Returns the sixth element of the list.

Example:

> (sixth '(1 2 3 4 5 6 7 8 9 10))
6

Returns the seventh element of the list.

Example:

> (seventh '(1 2 3 4 5 6 7 8 9 10))
7

Returns the eighth element of the list.

Example:

> (eighth '(1 2 3 4 5 6 7 8 9 10))
8

Returns the ninth element of the list.

Example:

> (ninth '(1 2 3 4 5 6 7 8 9 10))
9

Returns the tenth element of the list.

Example:

> (tenth '(1 2 3 4 5 6 7 8 9 10))
10

Returns the last element of the list.

This function takes time proportional to the length of lst.

Example:

> (last '(1 2 3 4 5 6 7 8 9 10))
10
(last-pair p) → pair?
p : pair?

Returns the last pair of a (possibly improper) list.

This function takes time proportional to the “length” of p.

Example:

> (last-pair '(1 2 3 4))
'(4)

Returns a newly constructed list of length k, holdingv in all positions.

Example:

> (make-list 7 'foo)
'(foo foo foo foo foo foo foo)

Returns a list that is the same as lst except at the specified index. The element at the specified index is (updater (list-ref lst pos)).

This function takes time proportional to pos.

Added in version 6.3 of package base.

Returns a list that is the same as lst except at the specified index. The element at the specified index is value.

This function takes time proportional to pos.

Example:

> (list-set '(zero one two) 2 "two")
'(zero one "two")

Added in version 6.3 of package base.

Like member, but returns the index of the first element found instead of the tail of the list.

Example:

> (index-of '(1 2 3 4) 3)
2

Added in version 6.7.0.3 of package base.

Like index-of but with the predicate-searching behavior ofmemf.

Example:

Added in version 6.7.0.3 of package base.

Like index-of, but returns the a list of all the indexes where the element occurs in the list instead of just the first one.

Example:

> (indexes-of '(1 2 1 2 1) 2)
'(1 3)

Added in version 6.7.0.3 of package base.

Like indexes-of but with the predicate-searching behavior ofindex-where.

Example:

Added in version 6.7.0.3 of package base.

Returns a fresh list whose elements are the first pos elements of lst. If lst has fewer than pos elements, the exn:fail:contract exception is raised.

The lst argument need not actually be a list; lstmust merely start with a chain of at least pos pairs.

This function takes time proportional to pos.

Examples:

> (take '(1 2 3 4 5) 2)
'(1 2)
> (take 'non-list 0)
'()

Just like list-tail.

Returns the same result as

(values (take lst pos) (drop lst pos))

except that it can be faster, but it will still take time proportional to pos.

Returns a fresh list whose elements are taken successively fromlst as long as they satisfy pred. The returned list includes up to, but not including, the first element in lst for which pred returns #f.

The lst argument need not actually be a list; the chain of pairs in lst will be traversed until a non-pair is encountered.

Examples:

Drops elements from the front of lst as long as they satisfypred.

Examples:

> (dropf '(2 4 5 8) even?)
'(5 8)
> (dropf '(2 4 6 8) odd?)
'(2 4 6 8)

Returns the same result as

(values (takef lst pred) (dropf lst pred))

except that it can be faster.

Returns the list’s pos-length tail. If lsthas fewer than pos elements, then theexn:fail:contract exception is raised.

The lst argument need not actually be a list; lstmust merely end with a chain of at least pos pairs.

This function takes time proportional to the length of lst.

Examples:

> (take-right '(1 2 3 4 5) 2)
'(4 5)
> (take-right 'non-list 0)
'non-list

Returns a fresh list whose elements are the prefix of lst, dropping its pos-length tail. If lst has fewer thanpos elements, then the exn:fail:contract exception is raised.

The lst argument need not actually be a list; lst must merely end with a chain of at least pos pairs.

This function takes time proportional to the length of lst.

Examples:

> (drop-right '(1 2 3 4 5) 2)
'(1 2 3)
> (drop-right 'non-list 0)
'()

Returns the same result as

(values (drop-right lst pos) (take-right lst pos))

except that it can be faster, but it will still take time proportional to the length of lst.

Examples:

> (split-at-right '(1 2 3 4 5 . 6) 4)
> (split-at-right '(1 2 3 4 5 6) 4)

Like takef, dropf, and splitf-at, but combined with the from-right functionality of take-right,drop-right, and split-at-right.

True if l is a prefix of r.

Example:

> (list-prefix? '(1 2) '(1 2 3 4 5))
#t

Added in version 6.3 of package base.

Returns the longest common prefix of l and r.

Example:

> (take-common-prefix '(a b c d) '(a b x y z))
'(a b)

Added in version 6.3 of package base.

Returns the tails of l and r with the common prefix removed.

Example:

> (drop-common-prefix '(a b c d) '(a b x y z))

Added in version 6.3 of package base.

Returns the longest common prefix together with the tails ofl and r with the common prefix removed.

Example:

> (split-common-prefix '(a b c d) '(a b x y z))

Added in version 6.3 of package base.

(add-between lst v [#:before-first before-first #:before-last before-last #:after-last after-last #:splice? splice?]) → list?
lst : list?
v : any/c
before-first : list? = '()
before-last : any/c = v
after-last : list? = '()
splice? : any/c = #f

Returns a list with the same elements as lst, but withv between each pair of elements in lst; the last pair of elements will have before-last between them, instead ofv (but before-last defaults to v).

If splice? is true, then v and before-lastshould be lists, and the list elements are spliced into the result. In addition, when splice? is true, before-first andafter-last are inserted before the first element and after the last element respectively.

Examples:

> (add-between '(x y z) 'and)
'(x and y and z)
> (add-between '(x) 'and)
'(x)
> (add-between '("a" "b" "c" "d") "," #:before-last "and")
'("a" "," "b" "," "c" "and" "d")
> (add-between '(x y z) '(-) #:before-last '(- -) #:before-first '(begin) #:after-last '(end LF) #:splice? #t)
'(begin x - y - - z end LF)
(append* lst ... lsts) → list?
lst : list?
lsts : (listof list?)
(append* lst ... lsts) → any/c
lst : list?
lsts : list?

Like append, but the last argument is used as a list of arguments for append, so (append* lst ... lsts) is the same as (apply append lst ... lsts). In other words, the relationship between append and append* is similar to the one between list and list*.

Examples:

> (append* '(a) '(b) '((c) (d)))
'(a b c d)
> (cdr (append* (map (lambda (x) (list ", " x)) '("Alpha" "Beta" "Gamma"))))
'("Alpha" ", " "Beta" ", " "Gamma")

Flattens an arbitrary S-expression structure of pairs into a list. More precisely, v is treated as a binary tree where pairs are interior nodes, and the resulting list contains all of the non-null leaves of the tree in the same order as an inorder traversal.

Examples:

> (flatten '((a) b (c (d) . e) ()))
'(a b c d e)
> (flatten 'a)
'(a)

Returns the first duplicate item in lst. More precisely, it returns the first x such that there was a previousy where (same? (extract-key x) (extract-key y)).

If no duplicate is found, then failure-result determines the result:

The same? argument should be an equivalence predicate such asequal? or eqv?. The procedures equal?, eqv?, eq?, and equal-always? automatically use a dictionary for speed.

Examples:

> (check-duplicates '(1 2 3 4))
#f
> (check-duplicates '(1 2 3 2 1))
2
> (check-duplicates '((a 1) (b 2) (a 3)) #:key car)
'(a 3)
4
> (check-duplicates '(1 2 3 4) #:default "no duplicates")
"no duplicates"

Added in version 6.3 of package base.
Changed in version 6.11.0.2: Added the #:default optional argument.

Returns a list that has all items in lst, but without duplicate items, where same? determines whether two elements of the list are equivalent. The resulting list is in the same order aslst, and for any item that occurs multiple times, the first one is kept.

The #:key argument extract-key is used to extract a key value from each list element, so two items are considered equal if(same? (extract-key x) (extract-key y)) is true.

Like check-duplicates, if the same? argument is one ofequal?, eqv?, eq?, and equal-always?, the operation can be specialized to improve performance.

Examples:

> (remove-duplicates '(a b b a))
'(a b)
> (remove-duplicates '(1 2 1.0 0))
'(1 2 1.0 0)
> (remove-duplicates '(1 2 1.0 0) =)
'(1 2 0)

Like (map proc lst ...), except that, if procreturns #false, that element is omitted from the resulting list. In other words, filter-map is equivalent to(filter (lambda (x) x) (map proc lst ...)), but more efficient, because filter-map avoids building the intermediate list.

Example:

Returns (length (filter-map proc lst ...)), but without building the intermediate list.

Example:

Similar to filter, except that two values are returned: the items for which pred returns a true value, and the items for which pred returns #f.

The result is the same as

(values (filter pred lst) (filter (negate pred) lst))

but pred is applied to each item in lst only once.

Example:

Similar to in-range, but returns lists.

The resulting list holds numbers starting at start and whose successive elements are computed by adding step to their predecessor until end (excluded) is reached. If no starting point is provided, 0 is used. If no step argument is provided, 1 is used.

Like in-range, a range application can provide better performance when it appears directly in a for clause.

Examples:

> (range 10)
'(0 1 2 3 4 5 6 7 8 9)
> (range 10 20)
'(10 11 12 13 14 15 16 17 18 19)
> (range 20 40 2)
'(20 22 24 26 28 30 32 34 36 38)
> (range 20 10 -1)
'(20 19 18 17 16 15 14 13 12 11)
> (range 10 15 1.5)
'(10 11.5 13.0 14.5)

Changed in version 6.7.0.4 of package base: Adjusted to cooperate with for in the same way that in-range does.

The resulting list holds numbers starting at start and whose successive elements are computed by adding step to their predecessor until end (included) is reached. If no step argument is provided, 1 is used.

Like in-inclusive-range, an inclusive-range application can provide better performance when it appears directly in a for clause.

Examples:

> (inclusive-range 10 20)
'(10 11 12 13 14 15 16 17 18 19 20)
> (inclusive-range 20 40 2)
'(20 22 24 26 28 30 32 34 36 38 40)
> (inclusive-range 20 10 -1)
'(20 19 18 17 16 15 14 13 12 11 10)
> (inclusive-range 10 15 1.5)
'(10 11.5 13.0 14.5)

Added in version 8.0.0.13 of package base.

Returns (append* (map proc lst ...)).

Example:

Like filter, but the meaning of the pred predicate is reversed: the result is a list of all items for which predreturns #f.

Example:

> (filter-not even? '(1 2 3 4 5 6))
'(1 3 5)
(shuffle lst) → list?
lst : list?

Returns a list with all elements from lst, randomly shuffled.

Examples:

> (shuffle '(1 2 3 4 5 6))
'(2 3 1 5 4 6)
> (shuffle '(1 2 3 4 5 6))
'(5 6 3 2 1 4)
> (shuffle '(1 2 3 4 5 6))
'(3 1 2 6 4 5)

Return a list of all combinations of elements in the input list (a.k.a. the powerset of lst). If size is given, limit results to combinations of size elements.

Examples:

> (combinations '(1 2 3))
'(() (1) (2) (1 2) (3) (1 3) (2 3) (1 2 3))
> (combinations '(1 2 3) 2)
'((1 2) (1 3) (2 3))

Returns a sequence of all combinations of elements in the input list, or all combinations of length size if size is given. Builds combinations one-by-one instead of all at once.

Examples:

(permutations lst) → list?
lst : list?

Returns a list of all permutations of the input list. Note that this function works without inspecting the elements, and therefore it ignores repeated elements (which will result in repeated permutations). Raises an error if the input list contains more than 256 elements.

Examples:

> (permutations '(1 2 3))
'((1 2 3) (2 1 3) (1 3 2) (3 1 2) (2 3 1) (3 2 1))
> (permutations '(x x))
'((x x) (x x))

Returns a sequence of all permutations of the input list. It is equivalent to (in-list (permutations l)) but much faster since it builds the permutations one-by-one on each iteration. Raises an error if the input list contains more than 256 elements.

Returns the first element in the list lst that minimizes the result of proc. Signals an error on an empty list. See also min.

Examples:

> (argmin car '((3 pears) (1 banana) (2 apples)))
'(1 banana)
> (argmin car '((1 banana) (1 orange)))
'(1 banana)

Returns the first element in the list lst that maximizes the result of proc. Signals an error on an empty list. See also max.

Examples:

> (argmax car '((3 pears) (1 banana) (2 apples)))
'(3 pears)
> (argmax car '((3 pears) (3 oranges)))
'(3 pears)

Groups the given list into equivalence classes, with equivalence being determined by same?. Within each equivalence class, group-bypreserves the ordering of the original list. Equivalence classes themselves are in order of first appearance in the input.

Example:

> (group-by (lambda (x) (modulo x 3)) '(1 2 1 2 54 2 5 43 7 2 643 1 2 0))
'((1 1 43 7 643 1) (2 2 2 5 2 2) (54 0))

Added in version 6.3 of package base.

Computes the n-ary cartesian product of the given lists.

Examples:

> (cartesian-product '(1 2 3) '(a b c))
'((1 a) (1 b) (1 c) (2 a) (2 b) (2 c) (3 a) (3 b) (3 c))
> (cartesian-product '(4 5 6) '(d e f) '(#t #f))
'((4 d #t) (4 d #f) (4 e #t) (4 e #f) (4 f #t) (4 f #f) (5 d #t) (5 d #f) (5 e #t) (5 e #f) (5 f #t) (5 f #f) (6 d #t) (6 d #f) (6 e #t) (6 e #f) (6 f #t) (6 f #f))

Added in version 6.3 of package base.

Returns a list that is like lst, omitting the first element of lstfor which pred produces a true value.

Added in version 6.3 of package base.

Like remf, but removes all the elements for which predproduces a true value.

Added in version 6.3 of package base.

4.10.8 Immutable Cyclic Data🔗

Returns a value like v, with placeholders created bymake-placeholder replaced with the values that they contain, and with hash placeholders created by make-hash-placeholderwith an immutable hash table. No part of v is mutated; instead, parts of v are copied as necessary to construct the resulting graph, where at most one copy is created for any given value.

Since the copied values can be immutable, and since the copy is also immutable, make-reader-graph can create cycles involving only immutable pairs, vectors, boxes, and hash tables.

Only the following kinds of values are copied and traversed to detect placeholders:

Due to these restrictions, make-reader-graph creates exactly the same sort of cyclic values as read.

Example:

Returns #t if v is a placeholder created bymake-placeholder, #f otherwise.

Returns a placeholder for use with placeholder-set!and make-reader-graph. The v argument supplies the initial value for the placeholder.

Changes the value of ph to v.

Returns the value of ph.

Returns #t if v is a hash placeholder created by make-hash-placeholder, #f otherwise.

Added in version 8.5.0.3 of package base.