home
/
code
/
hope.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add dictionary method: pop.
[hope.git]
/
src
/
hope_kv_list.erl
diff --git
a/src/hope_kv_list.erl
b/src/hope_kv_list.erl
index
3ca9d07
..
ebc4176
100644
(file)
--- a/
src/hope_kv_list.erl
+++ b/
src/hope_kv_list.erl
@@
-14,6
+14,7
@@
, get/2
, set/3
, update/3
, get/2
, set/3
, update/3
+ , pop/2
, iter/2
, map/2
, filter/2
, iter/2
, map/2
, filter/2
@@
-51,6
+52,12
@@
update(T, K, F) ->
% TODO: Eliminate the 2nd lookup.
set(T, K, V2).
% TODO: Eliminate the 2nd lookup.
set(T, K, V2).
+pop(T1, K) ->
+ case lists:keytake(K, 1, T1)
+ of {value, {K, V}, T2} -> {{some, V}, T2}
+ ; false -> {none , T1}
+ end.
+
iter(T, F1) ->
F2 = lift_map(F1),
lists:foreach(F2, T).
iter(T, F1) ->
F2 = lift_map(F1),
lists:foreach(F2, T).
This page took
0.025405 seconds
and
4
git commands to generate.