Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add additional SRFI 132 functions

Browse source
This commit is contained in:
Justin Ethier 2020-09-03 19:02:41 -04:00
parent 82d7c56def
commit cf078d9d6c
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
srfi/132.sld
View file

@ -10,12 +10,17 @@
)) ))
; (import (scheme base)) ; (import (scheme base))
(import (scheme cxr)) (import (scheme cxr)
(srfi 27))
(export list-sorted? vector-sorted? list-merge vector-merge list-sort vector-sort (export list-sorted? vector-sorted? list-merge vector-merge list-sort vector-sort
list-stable-sort vector-stable-sort list-merge! vector-merge! list-sort! vector-sort! list-stable-sort vector-stable-sort list-merge! vector-merge! list-sort! vector-sort!
list-stable-sort! vector-stable-sort! list-stable-sort! vector-stable-sort!
list-delete-neighbor-dups vector-delete-neighbor-dups list-delete-neighbor-dups vector-delete-neighbor-dups
list-delete-neighbor-dups! vector-delete-neighbor-dups!) list-delete-neighbor-dups! vector-delete-neighbor-dups!
vector-find-median! vector-find-median
vector-select! vector-select
vector-separate!
)
(include "sorting/delndups.scm") (include "sorting/delndups.scm")
(include "sorting/lmsort.scm") (include "sorting/lmsort.scm")
(include "sorting/sortp.scm") (include "sorting/sortp.scm")
@ -25,5 +30,6 @@
(include "sorting/vmsort.scm") (include "sorting/vmsort.scm")
(include "sorting/vqsort2.scm") (include "sorting/vqsort2.scm")
(include "sorting/vqsort3.scm") (include "sorting/vqsort3.scm")
(include "sorting/select.scm")
(include "sorting/sort.scm") ; must be last (include "sorting/sort.scm") ; must be last
) )

4
srfi/sorting/select.scm
View file

@ -264,3 +264,7 @@
(else (else
(copy-bigger! <? pivot dst at src (+ start 1) end)))) (copy-bigger! <? pivot dst at src (+ start 1) end))))
(define (assert val)
(if (not val)
(error 'assert val)))