mirror of
https://github.com/Kindelia/Kind2.git
synced 2024-09-11 07:15:45 +03:00
Merge branch 'master' of github.com:kind-lang/kind
This commit is contained in:
commit
1f8b3d8530
12
base/BBT/max.kind
Normal file
12
base/BBT/max.kind
Normal file
@ -0,0 +1,12 @@
|
||||
BBT.max<K: Type, V: Type>(map: BBT<K, V>): Maybe<Pair<K, V>>
|
||||
case map {
|
||||
tip:
|
||||
none
|
||||
bin:
|
||||
case map.right {
|
||||
tip:
|
||||
some({map.key, map.val})
|
||||
bin:
|
||||
BBT.max!!(map.right)
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue
Block a user