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:
Lassi Kortela 2020-08-07 16:37:00 +03:00
parent b248110155
commit 9c26c7926a
1 changed files with 8 additions and 1 deletions

View File

@ -1,6 +1,13 @@
(import (scheme base) (scheme char) (scheme file)
(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)
(let loop ((xs '()))