From 9c26c7926ae17504222377d713c7d3a4ea611215 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Fri, 7 Aug 2020 16:37:00 +0300 Subject: [PATCH] Avoid dependency on SRFI 132 Put an insertion sort into generate.scm to avoid depending on libraries outside the R7RS-small standard. --- generate.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/generate.scm b/generate.scm index 1b8022e..83f7afd 100644 --- a/generate.scm +++ b/generate.scm @@ -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 '()))