This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

; sort1.scm - simple basic example with sort

(require-library "functio.ss")

(define (less? x y)
 (stringstring x) (symbol->string y)))

(mergesort '(e d c b a) less?)
(quicksort '(e a c b d) less?) 


(mergesort '(5 4 3 2 1) (lambda (x y) (< x y)))
(quicksort '(4 2 3 5 1) (lambda (x y) (< x y)))