mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-19 14:29:27 +03:00
340 B
340 B
.> builtins.merge
unique type Map k v = Tip | Bin Nat k v (Map k v) (Map k v)
mapWithKey : (k ->{e} a ->{e} b) -> Map k a ->{e} Map k b
mapWithKey f m = Tip
.> add
naiomi =
susan: Nat -> Nat -> ()
susan a b = ()
pam: Map Nat Nat
pam = Tip
mapWithKey susan pam