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

done with adding/inserting into GapMap

Browse Source
This commit is contained in:
Humza Shahid
2025-02-12 12:25:35 +00:00
parent 206df031b3
commit 55d20a2b82
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/gap_map.sml
View File

@@ -485,11 +485,11 @@ struct
let let
val rfirst = Vector.sub (hd, 0) val rfirst = Vector.sub (hd, 0)
in in
if Fn.g (new, rfirst) then if Fn.g (new, rfirst) then
insRight (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals) insRight (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals)
else if Fn.l (new, rfirst) then else if Fn.l (new, rfirst) then
insLeft (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals) insLeft (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals)
else else
map map
end end
| [] => insLeft (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals) | [] => insLeft (newKey, newVal, leftKeys, leftVals, rightKeys, rightVals)