Avoid dependency on SRFI 132
Put an insertion sort into generate.scm to avoid depending on libraries outside the R7RS-small standard.
This commit is contained in:
parent
b248110155
commit
9c26c7926a
|
@ -1,6 +1,13 @@
|
||||||
(import (scheme base) (scheme char) (scheme file)
|
(import (scheme base) (scheme char) (scheme file)
|
||||||
(scheme read) (scheme write))
|
(scheme read) (scheme write))
|
||||||
(import (srfi 132))
|
|
||||||
|
(define (list-sort < xs)
|
||||||
|
(define (insert x xs)
|
||||||
|
(if (null? xs) (list x)
|
||||||
|
(if (< x (car xs)) (cons x xs)
|
||||||
|
(cons (car xs) (insert x (cdr xs))))))
|
||||||
|
(let loop ((xs xs))
|
||||||
|
(if (null? xs) '() (insert (car xs) (loop (cdr xs))))))
|
||||||
|
|
||||||
(define (read-all)
|
(define (read-all)
|
||||||
(let loop ((xs '()))
|
(let loop ((xs '()))
|
||||||
|
|
Loading…
Reference in New Issue