diff options
Diffstat (limited to 'comparison/Inpla/src/msort-260000-reuse.in')
| -rw-r--r-- | comparison/Inpla/src/msort-260000-reuse.in | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/comparison/Inpla/src/msort-260000-reuse.in b/comparison/Inpla/src/msort-260000-reuse.in index 7201ac7..14aa4a3 100644 --- a/comparison/Inpla/src/msort-260000-reuse.in +++ b/comparison/Inpla/src/msort-260000-reuse.in @@ -4,7 +4,7 @@ msort(ret) >< x:xs => (*L)msort_tail(ret, x)~xs; msort_tail(ret, int n) >< [] => ret~[n]; msort_tail(ret, int n) >< x:xs => - split(left,right) ~ (*R)(n:x:xs), + split(left,right) ~ n:(*R)(x:xs), msort(a)~left, msort(b)~right, (*L)merge(ret,b)~a; merge(ret, snd) >< [] => ret~snd; @@ -15,7 +15,6 @@ mergeCC(ret, int y, ys) >< (int x):xs | x <= y => ret~(x:cnt), (*L)mergeCC(cnt, y, ys) ~ xs | _ => ret~(y:cnt), (*L)mergeCC(cnt, x, xs) ~ ys; - split(right,left) >< [] => right~[], left~[]; split(right,left) >< x:xs => right~(*R)(x:cntl), left~cntr, (*L)split(cntr,cntl)~xs; |