From 724cc003460ec67eda269911da85c9f9e40aa6cf Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Fri, 30 Sep 2016 16:57:23 +0200
Subject: Add extracted sources from floppy disk images

Some files have no textual representation (yet) and were added as raw
dataspaces.
---
 prolog/quicksort | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 prolog/quicksort

(limited to 'prolog/quicksort')

diff --git a/prolog/quicksort b/prolog/quicksort
new file mode 100644
index 0000000..79276c0
--- /dev/null
+++ b/prolog/quicksort
@@ -0,0 +1,14 @@
+(* quicksort algorithm nach Clocksin-Mellish *) 
+ 
+(* Example :  quicksort ([1,3,2,4], [1,2,3,4], [])  *) 
+ 
+quicksort ([H|T], S, X) :- 
+          split (H, T, A, B), 
+          quicksort (A, S, [H|Y]), 
+          quicksort (B, Y, X). 
+quicksort ([], X, X). 
+ 
+split (H, [A|X], [A|Y], Z) :- A <= H, split (H, X, Y, Z). 
+split (H, [A|X], Y, [A|Z]) :- split (H, X, Y, Z). 
+split (_, [], [], []). 
+
-- 
cgit v1.2.3