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

a bit of formatting (code does same thing, but is expressed in a way that is a little clearer after the formatter has been run)

Browse Source
This commit is contained in:
Humza Shahid
2025-08-09 14:13:23 +01:00
parent a5b988d136
commit 55fe9b7605
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
fcore/layer-tree.sml
View File

@@ -17,13 +17,19 @@ struct
LEAF => NODE {key = newKey, value = newValue, left = LEAF, right = LEAF} LEAF => NODE {key = newKey, value = newValue, left = LEAF, right = LEAF}
| NODE {key, value, left, right} => | NODE {key, value, left, right} =>
if newKey < key then if newKey < key then
let val left = insert (newKey, newValue, left) NODE
in NODE {key = key, value = value, left = left, right = right} { key = key
end , value = value
, left = insert (newKey, newValue, left)
, right = right
}
else if newKey > key then else if newKey > key then
let val right = insert (newKey, newValue, right) NODE
in NODE {key = key, value = value, left = left, right = right} { key = key
end , value = value
, left = left
, right = insert (newKey, newValue, right)
}
else else
NODE {key = key, value = newValue, left = left, right = right} NODE {key = key, value = newValue, left = left, right = right}