From b10fccefe9a6435328ff9d554995fb5710f74f26 Mon Sep 17 00:00:00 2001 From: Shinya Sato Date: Sat, 17 Sep 2022 22:25:32 +0900 Subject: v0.10.0 --- comparison/Inpla/src/qsort-260000-reuse.in | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'comparison/Inpla/src/qsort-260000-reuse.in') diff --git a/comparison/Inpla/src/qsort-260000-reuse.in b/comparison/Inpla/src/qsort-260000-reuse.in index b44e958..33cd7dc 100644 --- a/comparison/Inpla/src/qsort-260000-reuse.in +++ b/comparison/Inpla/src/qsort-260000-reuse.in @@ -5,6 +5,7 @@ qsort(ret) >< (int x):xs => (*L)qsort(cntl)~left, qsort(cntr)~right, Append(ret, x:cntl)~cntr; + // Note: `Append' is implemented as built-in. @@ -12,6 +13,10 @@ part(int x, a, b) >< [] => a~(*L)[], b~(*R)[]; part(int x, a, b) >< (int y):ys | y b~(*R)(y:cnt), (*L)part(x, a, cnt)~ys | _ => a~(*R)(y:cnt), (*L)part(x, cnt, b)~ys; +//| y (*L)part(x, a, cnt)~ys, b~(*R)(y:cnt) // quite BAD! +//| _ => (*L)part(x, cnt, b)~ys, a~(*R)(y:cnt); // quite BAD! + + // creates a random list -- cgit v1.2.3