humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

amend bug resulting from previous refactoring (don't know origin of bug but I pressed undo in my editor and did the refactoring again, and this time all tests passed)

Browse Source
This commit is contained in:
Humza Shahid
2024-05-25 15:05:40 +01:00
parent e9339908ef
commit 01496aa06f
4 changed files with 259799 additions and 259788 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
gap_buffer.sml
View File

@@ -74,7 +74,7 @@ struct
| [] => consLeft (curIdx, newString, left, right))
| [] => consLeft (curIdx, newString, left, right)
fun insLeftLeaf (prevIdx, idx, newString, curIdx, right, hd, tail) =
fun insLeft (prevIdx, idx, newString, curIdx, hd, tail, right) =
(* The requested index is either:
* - At the start of the left string
* - In the middle of the left string
@@ -129,7 +129,7 @@ struct
}
end
fun insRightLeaf (nextIdx, idx, newString, curIdx, left, hd, tail) =
fun insRight (nextIdx, idx, newString, curIdx, left, hd, tail) =
if idx = nextIdx then
(* At end of next string. *)
{ idx = curIdx
@@ -168,6 +168,7 @@ struct
}
end
fun ins (idx, newString, curIdx, left, right) : t =
if curIdx = idx then
preferInsertLeft (curIdx, newString, left, right)
@@ -186,8 +187,7 @@ struct
* so move leftward one string. *)
ins (idx, newString, prevIdx, tail, joinStartOfRight (hd, right))
else
(* Call function to insert at the current node in the zipper. *)
insLeftLeaf (prevIdx, idx, newString, curIdx, right, hd, tail)
insLeft (prevIdx, idx, newString, curIdx, hd, tail, right)
end
else
(* Need to insert to the right. *)
@@ -200,7 +200,7 @@ struct
if idx > nextIdx then
ins (idx, newString, nextIdx, joinEndOfLeft (hd, left), tail)
else
insRightLeaf (nextIdx, idx, newString, curIdx, right, hd, tail)
insRight (nextIdx, idx, newString, curIdx, left, hd, tail)
end
fun insert (idx, newString, buffer: t) =