idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-25 04:33:45 +03:00
Code Issues Projects Releases Wiki Activity

[ new ] popping value from a SortedSet

Browse Source
This commit is contained in:
Justus Matthiesen 2023-02-06 17:17:46 +00:00 committed by G. Allais
parent 692e389bb8
commit 263643defd
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Libraries/Data/SortedSet.idr
View File

@ -86,3 +86,9 @@ toSortedMap (SetWrapper m) = m
export
min : SortedSet k -> Maybe k
min (SetWrapper m) = fst <$> min m
export
pop : SortedSet k -> Maybe (k, SortedSet k)
pop (SetWrapper m) = do
((k, ()), m) <- pop m
pure (k, SetWrapper m)