From 9477dbe667f250ecd23f8fc0d56b942191526421 Mon Sep 17 00:00:00 2001
From: Franciszek Malinka <franciszek.malinka@gmail.com>
Date: Thu, 25 Feb 2021 14:42:55 +0100
Subject: Stare semestry, niepoukladane

---
 Semestr 2/racket/solution.rkt | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 Semestr 2/racket/solution.rkt

(limited to 'Semestr 2/racket/solution.rkt')

diff --git a/Semestr 2/racket/solution.rkt b/Semestr 2/racket/solution.rkt
new file mode 100644
index 0000000..3643668
--- /dev/null
+++ b/Semestr 2/racket/solution.rkt	
@@ -0,0 +1,14 @@
+#lang racket
+
+(provide heapsort) (require "leftist.rkt")
+
+(define (heapsort xs)
+  (define (create-heap xs res)
+    (if (null? xs)
+        res
+        (create-heap (cdr xs) (heap-insert (cons (car xs) (car xs)) res))))
+  (define (heap-to-list h)
+    (if (heap-empty? h)
+        null
+        (cons (elem-val (heap-min h)) (heap-to-list (heap-pop h)))))
+  (heap-to-list (create-heap xs empty-heap)))
\ No newline at end of file
-- 
cgit v1.2.3