home
/
code
/
hope.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Clarify map lifting and application.
[hope.git]
/
src
/
hope_kv_list.erl
diff --git
a/src/hope_kv_list.erl
b/src/hope_kv_list.erl
index
12dbcd2
..
468c8d8
100644
(file)
--- a/
src/hope_kv_list.erl
+++ b/
src/hope_kv_list.erl
@@
-51,17
+51,17
@@
update(T, K, F) ->
% TODO: Eliminate the 2nd lookup.
set(T, K, V2).
% TODO: Eliminate the 2nd lookup.
set(T, K, V2).
-iter(T,
Map
1) ->
-
Map2 = lift_map_into_list(Map
1),
- lists:foreach(
Map
2, T).
+iter(T,
F
1) ->
+
F2 = lift_map(F
1),
+ lists:foreach(
F
2, T).
-map(T,
Map
1) ->
-
Map2 = lift_map_into_list(Map1)
,
- lists:map(
Map
2, T).
+map(T,
F
1) ->
+
F2 = fun ({K, _}=X) -> {K, apply_map(F1, X)} end
,
+ lists:map(
F
2, T).
-filter(T,
Map
1) ->
-
Map2 = lift_map_into_list(Map
1),
- lists:filter(
Map
2, T).
+filter(T,
F
1) ->
+
F2 = lift_map(F
1),
+ lists:filter(
F
2, T).
fold(T, F1, Accumulator) ->
F2 = fun ({K, V}, Acc) -> F1(K, V, Acc) end,
fold(T, F1, Accumulator) ->
F2 = fun ({K, V}, Acc) -> F1(K, V, Acc) end,
@@
-79,5
+79,8
@@
of_kv_list(List) ->
%% Helpers
%% ============================================================================
%% Helpers
%% ============================================================================
-lift_map_into_list(Map) ->
- fun ({K, V}) -> {K, Map(K, V)} end.
+lift_map(F) ->
+ fun (X) -> apply_map(F, X) end.
+
+apply_map(F, {K, V}) ->
+ F(K, V).
This page took
0.038003 seconds
and
4
git commands to generate.