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

amend formatting

Browse Source
This commit is contained in:
humzashahid
2024-02-15 19:49:01 +00:00
parent 424acf5603
commit f9d3c4a080
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
rope.sml
View File

@@ -86,16 +86,16 @@ structure Rope :> ROPE = struct
fun ins_n1 rope = fun ins_n1 rope =
case rope of case rope of
L2 (s1, s2) => L2 (s1, s2) =>
N2(N0 s1, String.size s1, N0 s2) N2(N0 s1, String.size s1, N0 s2)
| N3(t1, t2, t3) => | N3(t1, t2, t3) =>
let let
val left = N2(t1, size t1, t2) val left = N2(t1, size t1, t2)
in in
N2(left, size left, N1 t3) N2(left, size left, N1 t3)
end end
| t => | t =>
N1 t N1 t
fun ins_n2_left (left, right) = fun ins_n2_left (left, right) =
case (left, right) of case (left, right) of