From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 lang/prolog/1.8.7/src/quicksort | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 lang/prolog/1.8.7/src/quicksort

(limited to 'lang/prolog/1.8.7/src/quicksort')

diff --git a/lang/prolog/1.8.7/src/quicksort b/lang/prolog/1.8.7/src/quicksort
new file mode 100644
index 0000000..79276c0
--- /dev/null
+++ b/lang/prolog/1.8.7/src/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