mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
362 B
362 B
scratch/main> 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
scratch/main> add
naiomi =
susan: Nat -> Nat -> ()
susan a b = ()
pam: Map Nat Nat
pam = Tip
mapWithKey susan pam