157 lines
2.0 KiB
Plaintext
157 lines
2.0 KiB
Plaintext
|
(define-library
|
||
|
|
(srfi 1)
|
||
|
|
(import (scheme base)
|
||
|
|
(scheme cxr)
|
||
|
|
(srfi 8))
|
||
|
|
(export
|
||
|
|
;cons
|
||
|
|
;list
|
||
|
|
xcons
|
||
|
|
cons*
|
||
|
|
;make-list
|
||
|
|
list-tabulate
|
||
|
|
;list-copy
|
||
|
|
circular-list
|
||
|
|
iota
|
||
|
|
;pair?
|
||
|
|
;null?
|
||
|
|
proper-list?
|
||
|
|
circular-list?
|
||
|
|
dotted-list?
|
||
|
|
not-pair?
|
||
|
|
null-list?
|
||
|
|
list=
|
||
|
|
;car
|
||
|
|
;cdr
|
||
|
|
;cdar
|
||
|
|
;cddr
|
||
|
|
;caar
|
||
|
|
;caadr
|
||
|
|
;cadar
|
||
|
|
;caddr
|
||
|
|
;cdaar
|
||
|
|
;cdadr
|
||
|
|
;cddar
|
||
|
|
;cddr
|
||
|
|
;caaaar
|
||
|
|
;caaadr
|
||
|
|
;caadar
|
||
|
|
;caaddr
|
||
|
|
;cadaar
|
||
|
|
;cadadr
|
||
|
|
;caddar
|
||
|
|
;cadddr
|
||
|
|
;cdaaar
|
||
|
|
;cdaadr
|
||
|
|
;cdadar
|
||
|
|
;cdaddr
|
||
|
|
;cddaar
|
||
|
|
;cddadr
|
||
|
|
;cdddar
|
||
|
|
;cddddr
|
||
|
|
;list-ref
|
||
|
|
first
|
||
|
|
second
|
||
|
|
third
|
||
|
|
fourth
|
||
|
|
fifth
|
||
|
|
sixth
|
||
|
|
seventh
|
||
|
|
eighth
|
||
|
|
ninth
|
||
|
|
tenth
|
||
|
|
car+cdr
|
||
|
|
take
|
||
|
|
drop
|
||
|
|
take-right
|
||
|
|
drop-right
|
||
|
|
take!
|
||
|
|
drop-right!
|
||
|
|
split-at
|
||
|
|
split-at!
|
||
|
|
last
|
||
|
|
last-pair
|
||
|
|
;length
|
||
|
|
length+
|
||
|
|
;append
|
||
|
|
concatenate
|
||
|
|
;reverse
|
||
|
|
append!
|
||
|
|
concatenate!
|
||
|
|
reverse!
|
||
|
|
append-reverse
|
||
|
|
append-reverse!
|
||
|
|
zip
|
||
|
|
unzip1
|
||
|
|
unzip2
|
||
|
|
unzip3
|
||
|
|
unzip4
|
||
|
|
unzip5
|
||
|
|
count
|
||
|
|
;map
|
||
|
|
;for-each
|
||
|
|
fold
|
||
|
|
unfold
|
||
|
|
pair-fold
|
||
|
|
reduce
|
||
|
|
fold-right
|
||
|
|
unfold-right
|
||
|
|
pair-fold-right
|
||
|
|
reduce-right
|
||
|
|
append-map
|
||
|
|
append-map!
|
||
|
|
map!
|
||
|
|
pair-for-each
|
||
|
|
filter-map
|
||
|
|
map-in-order
|
||
|
|
filter
|
||
|
|
partition
|
||
|
|
remove
|
||
|
|
filter!
|
||
|
|
partition!
|
||
|
|
remove!
|
||
|
|
;member
|
||
|
|
;memq
|
||
|
|
;memv
|
||
|
|
find
|
||
|
|
find-tail
|
||
|
|
any
|
||
|
|
every
|
||
|
|
list-index
|
||
|
|
take-while
|
||
|
|
drop-while
|
||
|
|
take-while!
|
||
|
|
span
|
||
|
|
break
|
||
|
|
span!
|
||
|
|
break!
|
||
|
|
delete
|
||
|
|
delete-duplicates
|
||
|
|
delete!
|
||
|
|
delete-duplicates!
|
||
|
|
;assoc
|
||
|
|
;assq
|
||
|
|
;assv
|
||
|
|
alist-cons
|
||
|
|
alist-copy
|
||
|
|
alist-delete
|
||
|
|
alist-delete!
|
||
|
|
lset<=
|
||
|
|
lset=
|
||
|
|
lset-adjoin
|
||
|
|
lset-union
|
||
|
|
lset-union!
|
||
|
|
lset-intersection
|
||
|
|
lset-intersection!
|
||
|
|
lset-difference
|
||
|
|
lset-difference!
|
||
|
|
lset-xor
|
||
|
|
lset-xor!
|
||
|
|
lset-diff+intersection
|
||
|
|
lset-diff+intersection!
|
||
|
|
;set-car!
|
||
|
|
;set-cdr!
|
||
|
|
)
|
||
|
|
(begin
|
||
|
|
(include "1.scm")))
|