From 68986fe0410584c6934c835bb0ee784655f5f8c5 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Tue, 11 Jan 2022 22:01:23 -0800 Subject: Move scheme compiler into a separate directory. --- sort.csc | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 sort.csc (limited to 'sort.csc') diff --git a/sort.csc b/sort.csc deleted file mode 100644 index 62b1c9d..0000000 --- a/sort.csc +++ /dev/null @@ -1,24 +0,0 @@ -(define-library (csc sort) - (export sort) - (import (scheme base) - (only (csc list) - revappend - split-at)) - (begin - - - (define (sort cmp xs) - (let ((len (length xs))) - (if (<= len 1) - xs - (let-values (((half-a half-b) (split-at (truncate-quotient len 2) xs))) - (let ((sorted-half-a (sort cmp half-a)) - (sorted-half-b (sort cmp half-b))) - (let loop ((a sorted-half-a) - (b sorted-half-b) - (acc '())) - (cond ((null? a) (revappend acc b)) - ((null? b) (revappend acc a)) - ((cmp (car b) (car a)) - (loop a (cdr b) (cons (car b) acc))) - (else (loop (cdr a) b (cons (car a) acc)))))))))))) -- cgit v1.3.1