UGhghrhrh

amuletml · Mar 28, 2020 · b3755ce · b3755ce
1 parent 804994b
commit b3755ce
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/lib/data/set.ml b/lib/data/set.ml
@@ -24,6 +24,9 @@ let singleton x = S (T.singleton x)
 (** Construct a 'set' from the elements of a 'list' *)
 let from_list (xs : list _) = S (T.from_foldable xs)
 
+(** Construct a 'list' from the elements of a 'set', in ascending order *)
+let to_list (S xs) = T.inorder_fold (::) [] xs
+
 (** Insert an element into a 'set'. *)
 let insert x (S tree) = S (T.insert x tree)
 

diff --git a/lib/prelude.ml b/lib/prelude.ml
@@ -32,3 +32,4 @@ let print = Io.print
 let flip f x y = f y x
 let x |> f = f x
 let f # g = fun x -> f (g x)
+let map f x = f <$> x