diff options
| author | Brett Snyder <bsnyder@digitalocean.com> | 2019-10-02 10:49:43 -0500 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-10-03 11:38:43 +0100 |
| commit | cf7831f278423bab72f5d9433771e5a16ce44cac (patch) | |
| tree | 1dbbb96cd4f040c85a343dc7244365dcf87f1c30 /gen/src/gleam@pair.erl | |
| parent | 7677e9e96d38dffcf230891b7c74991aa7f16df5 (diff) | |
| download | gleam_stdlib-cf7831f278423bab72f5d9433771e5a16ce44cac.tar.gz gleam_stdlib-cf7831f278423bab72f5d9433771e5a16ce44cac.zip | |
add pair:map_first and pair:map_second
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)}. |