mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
56 lines
1.6 KiB
Scheme
56 lines
1.6 KiB
Scheme
;;;; Cyclone Scheme
|
|
;;;; https://github.com/justinethier/cyclone
|
|
;;;;
|
|
;;;; Copyright (c) 2014-2016, Justin Ethier
|
|
;;;; All rights reserved.
|
|
;;;;
|
|
;;;; This module is an interface to the list library.
|
|
;;;;
|
|
(define-library (srfi 1)
|
|
(import (scheme base)
|
|
(scheme cxr))
|
|
(export
|
|
xcons ;tree-copy
|
|
make-list list-tabulate cons* list-copy
|
|
proper-list? circular-list? dotted-list? not-pair? null-list? list=
|
|
circular-list length+
|
|
iota
|
|
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
|
|
zip unzip1 unzip2 unzip3 unzip4 unzip5
|
|
count
|
|
append! append-reverse append-reverse! concatenate concatenate!
|
|
unfold fold pair-fold reduce
|
|
unfold-right fold-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!
|
|
find find-tail any every list-index
|
|
take-while drop-while take-while!
|
|
span break span! break!
|
|
delete delete!
|
|
alist-cons alist-copy
|
|
delete-duplicates delete-duplicates!
|
|
alist-delete alist-delete!
|
|
reverse!
|
|
lset<= lset= lset-adjoin
|
|
lset-union lset-intersection lset-difference lset-xor lset-diff+intersection
|
|
lset-union! lset-intersection! lset-difference! lset-xor! lset-diff+intersection!
|
|
)
|
|
(inline
|
|
tenth
|
|
ninth
|
|
eighth
|
|
seventh
|
|
sixth
|
|
fifth
|
|
not-pair?
|
|
)
|
|
(include "1.scm")
|
|
(begin)
|
|
)
|