diff options
Diffstat (limited to 'gen/src/gleam@pair.erl')
| -rw-r--r-- | gen/src/gleam@pair.erl | 10 |
1 files changed, 9 insertions, 1 deletions
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)}. |