aboutsummaryrefslogtreecommitdiff
path: root/sample/qsort.in
diff options
context:
space:
mode:
Diffstat (limited to 'sample/qsort.in')
-rw-r--r--sample/qsort.in19
1 files changed, 0 insertions, 19 deletions
diff --git a/sample/qsort.in b/sample/qsort.in
deleted file mode 100644
index 523d7d8..0000000
--- a/sample/qsort.in
+++ /dev/null
@@ -1,19 +0,0 @@
-// Quick sort
-
-// Rules
-qsort(ret) >< [] => ret~[];
-qsort(ret) >< (int x):xs =>
- Append(ret, x:right)~left, part(smaller, larger, x)~xs,
- qsort(left)~smaller, qsort(right)~larger;
-
-// Note: `Append' is implemented as the following built-in agent:
-// Append(ret, b)~a --> ret ~ (a++b)
-
-part(smaller, larger, int x) >< [] => smaller~[], larger~[];
-part(smaller, larger, int x) >< (int y):ys
-| y<x => smaller~(y:cnt), part(cnt, larger, x)~ys
-| _ => larger~(y:cnt), part(smaller, cnt, x)~ys;
-
-// Nets
-qsort(ret)~[3,6,1,9,2];
-ret; \ No newline at end of file