1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
import std/any
import std/result
import std/list
pub external type MapDict(key, value);
pub enum NotFound =
| NotFound
pub external fn size(MapDict(k, v)) -> Int
= "maps" "size"
pub external fn to_list(MapDict(key, value)) -> List({key, value})
= "maps" "to_list"
pub external fn from_list(List({key, value})) -> MapDict(key, value)
= "maps" "from_list"
external fn is_key(key, MapDict(key, v)) -> Bool
= "maps" "is_key"
pub fn has_key(map, key) {
is_key(key, map)
}
pub external fn new() -> MapDict(key, value)
= "maps" "new"
pub external fn fetch(MapDict(key, value), key) -> Result(value, NotFound)
= "gleam__stdlib" "map_fetch";
external fn erl_put(key, value, MapDict(key, value)) -> MapDict(key, value)
= "maps" "put";
pub fn put(map, key, value) {
erl_put(key, value, map)
}
external fn erl_map_values(fn(key, value) -> value, MapDict(key, value))
-> MapDict(key, value)
= "maps" "map";
pub fn map_values(map, fun) {
erl_map_values(fun, map)
}
pub external fn keys(MapDict(keys, v)) -> List(keys)
= "maps" "keys"
pub external fn values(MapDict(k, values)) -> List(values)
= "maps" "values"
external fn erl_filter(fn(key, value) -> Bool, MapDict(key, value))
-> MapDict(key, value)
= "maps" "filter";
pub fn filter(map, fun) {
erl_filter(fun, map)
}
external fn erl_take(List(k), MapDict(k, v)) -> MapDict(k, v) = "maps" "with"
pub fn take(map, keys) {
erl_take(keys, map)
}
pub external fn merge(MapDict(k, v), MapDict(k, v)) -> MapDict(k, v) = "maps" "merge"
external fn erl_delete(k, MapDict(k, v)) -> MapDict(k, v) = "maps" "remove"
pub fn delete(map, key) {
erl_delete(key, map)
}
pub fn drop(map, keys) {
list:fold(keys, map, fn(key, acc) {
delete(acc, key)
})
}
pub external type NotFound;
pub fn update(dict, key, f) {
case fetch(dict, key) {
| Ok(value) -> put(dict, key, f(Ok(value)))
| Error(_) -> put(dict, key, f(Error(NotFound)))
}
}
fn do_fold(list, acc, f) {
case list {
| [] -> acc
| [{k, v} | tail] -> do_fold(tail, f(k, v, acc), f)
}
}
pub fn fold(dict, acc, f) {
let kvs = to_list(dict)
do_fold(kvs, acc, f)
}
|
