fromList :: Ord k => [(k, v)] -> Tree k v
fromList = Ana.anamorphism Alg.fromSortedList . sortBy (comparing fst)
fromList :: Ord k => [(k, v)] -> Tree k v
fromList = Ana.anamorphism Alg.fromSortedList . sortBy (comparing fst)
fromList = Ana.anamorphism Alg.fromSortedList . sortBy (comparing fst)