From cf7831f278423bab72f5d9433771e5a16ce44cac Mon Sep 17 00:00:00 2001 From: Brett Snyder Date: Wed, 2 Oct 2019 10:49:43 -0500 Subject: add pair:map_first and pair:map_second --- gen/src/gleam@pair.erl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'gen/src') diff --git a/gen/src/gleam@pair.erl b/gen/src/gleam@pair.erl index 887adb9..3361dc7 100644 --- a/gen/src/gleam@pair.erl +++ b/gen/src/gleam@pair.erl @@ -1,7 +1,7 @@ -module(gleam@pair). -compile(no_auto_import). --export([first/1, second/1, swap/1]). +-export([first/1, second/1, swap/1, map_first/2, map_second/2]). first(Tup) -> {A, _} = Tup, @@ -14,3 +14,11 @@ second(Tup) -> swap(Tup) -> {A, B} = Tup, {B, A}. + +map_first(Tup, F) -> + {A, B} = Tup, + {F(A), B}. + +map_second(Tup, F) -> + {A, B} = Tup, + {A, F(B)}. -- cgit v1.2.3