KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2026-01-05 00:45:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add more Prolog samples

Browse Source 
Closes #233
This commit is contained in:
Joshua Peek
2012-08-20 10:48:36 -05:00
parent b8711f8ccf
commit d2de997fcc
6 changed files with 838 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
samples/Prolog/quicksort.pl Normal file
View File

@@ -0,0 +1,13 @@
partition([], _, [], []).
partition([X|Xs], Pivot, Smalls, Bigs) :-
( X @< Pivot ->
Smalls = [X|Rest],
partition(Xs, Pivot, Rest, Bigs)
; Bigs = [X|Rest],
partition(Xs, Pivot, Smalls, Rest)
).
quicksort([]) --> [].
quicksort([X|Xs]) -->
{ partition(Xs, X, Smaller, Bigger) },
quicksort(Smaller), [X], quicksort(Bigger).