Add code

2019-02-23 20:59:04 +01:00 · 2019-02-23 20:59:04 +01:00 · 3ecd76609c
commit 3ecd76609c
parent 9d2e745be6
7 changed files with 574 additions and 0 deletions
--- a/SelectionSort.rkt
+++ b/SelectionSort.rkt
@ -0,0 +1,13 @@
+#lang racket
+
+(define (selection-sort lst) (
+    cond
+    [(empty? lst) empty]
+    [else (cons
+        (apply min lst)
+        (selection-sort (remove (apply min lst) lst))
+    )
+    ]
+))
+
+(selection-sort (list 4 7 4 6 1 5 2 9 7))