aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/gleam/map.gleam6
-rw-r--r--src/gleam/set.gleam37
2 files changed, 40 insertions, 3 deletions
diff --git a/src/gleam/map.gleam b/src/gleam/map.gleam
index e59a042..488a315 100644
--- a/src/gleam/map.gleam
+++ b/src/gleam/map.gleam
@@ -179,8 +179,8 @@ external fn erl_filter(
/// > |> filter(fn(key, value) { True })
/// from_list([tuple("a", 0), tuple("b", 1)])
///
-pub fn filter(in map: Map(k, v), for predicate: fn(k, v) -> Bool) -> Map(k, v) {
- erl_filter(predicate, map)
+pub fn filter(in map: Map(k, v), for property: fn(k, v) -> Bool) -> Map(k, v) {
+ erl_filter(property, map)
}
external fn erl_take(List(k), Map(k, v)) -> Map(k, v) =
@@ -199,7 +199,7 @@ external fn erl_take(List(k), Map(k, v)) -> Map(k, v) =
/// > |> take(["a", "b", "c"])
/// from_list([tuple("a", 0), tuple("b", 1)])
///
-pub fn take(from map: Map(k, v), drop desired_keys: List(k)) -> Map(k, v) {
+pub fn take(from map: Map(k, v), keeping desired_keys: List(k)) -> Map(k, v) {
erl_take(desired_keys, map)
}
diff --git a/src/gleam/set.gleam b/src/gleam/set.gleam
index d958919..ea0d5c6 100644
--- a/src/gleam/set.gleam
+++ b/src/gleam/set.gleam
@@ -132,3 +132,40 @@ pub fn fold(
) -> acc {
map.fold(over: set.map, from: initial, with: fn(k, _, a) { reducer(k, a) })
}
+
+/// Create a new set from an existing set, minus any members that a given
+/// function returns False for.
+///
+/// This function runs in loglinear time.
+///
+/// ## Examples
+///
+/// > import gleam/int
+/// > from_list([1, 4, 6, 3, 675, 44, 67])
+/// > |> filter(for: int.is_even)
+/// > |> to_list
+/// [4, 6, 44]
+///
+pub fn filter(
+ in set: Set(member),
+ for property: fn(member) -> Bool,
+) -> Set(member) {
+ Set(map.filter(in: set.map, for: fn(m, _) { property(m) }))
+}
+
+/// Create a new map from a given map, only including any members which are in
+/// a given list.
+///
+/// This function runs in loglinear time.
+///
+/// ## Examples
+///
+/// > from_list([1, 2, 3]) |> take([1, 3, 5]) |> to_list
+/// [1, 3]
+///
+pub fn take(
+ from set: Set(member),
+ keeping desired: List(member),
+) -> Set(member) {
+ Set(map.take(from: set.map, keeping: desired))
+}