diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@float.erl | 11 | ||||
| -rw-r--r-- | gen/src/gleam@int.erl | 11 | ||||
| -rw-r--r-- | gen/test/gleam@float_test.erl | 11 | ||||
| -rw-r--r-- | gen/test/gleam@int_test.erl | 10 |
4 files changed, 39 insertions, 4 deletions
diff --git a/gen/src/gleam@float.erl b/gen/src/gleam@float.erl index 6aab56b..625ba56 100644 --- a/gen/src/gleam@float.erl +++ b/gen/src/gleam@float.erl @@ -1,7 +1,7 @@ -module(gleam@float). -compile(no_auto_import). --export([parse/1, to_string/1, compare/2, ceiling/1, floor/1, round/1, truncate/1]). +-export([parse/1, to_string/1, compare/2, min/2, ceiling/1, floor/1, round/1, truncate/1]). parse(A) -> gleam_stdlib:parse_float(A). @@ -24,6 +24,15 @@ compare(A, B) -> end end. +min(A, B) -> + case A < B of + true -> + A; + + false -> + B + end. + ceiling(A) -> math:ceil(A). diff --git a/gen/src/gleam@int.erl b/gen/src/gleam@int.erl index ea97785..de9ce8b 100644 --- a/gen/src/gleam@int.erl +++ b/gen/src/gleam@int.erl @@ -1,7 +1,7 @@ -module(gleam@int). -compile(no_auto_import). --export([parse/1, to_string/1, to_base_string/2, compare/2]). +-export([parse/1, to_string/1, to_base_string/2, compare/2, min/2]). parse(A) -> gleam_stdlib:parse_int(A). @@ -26,3 +26,12 @@ compare(A, B) -> gt end end. + +min(A, B) -> + case A < B of + true -> + A; + + false -> + B + end. diff --git a/gen/test/gleam@float_test.erl b/gen/test/gleam@float_test.erl index 0f7e55b..d60997e 100644 --- a/gen/test/gleam@float_test.erl +++ b/gen/test/gleam@float_test.erl @@ -1,7 +1,7 @@ -module(gleam@float_test). -compile(no_auto_import). --export([parse_test/0, to_string_test/0, compare_test/0, ceiling_test/0, floor_test/0, round_test/0, truncate_test/0]). +-export([parse_test/0, to_string_test/0, compare_test/0, ceiling_test/0, floor_test/0, round_test/0, truncate_test/0, min_test/0]). parse_test() -> gleam@expect:equal(gleam@float:parse(<<"1.23">>), {ok, 1.23}), @@ -48,3 +48,12 @@ truncate_test() -> gleam@expect:equal(gleam@float:truncate(8.5), 8), gleam@expect:equal(gleam@float:truncate(-8.1), -8), gleam@expect:equal(gleam@float:truncate(-7.5), -7). + +min_test() -> + gleam@expect:equal(gleam@float:min(0.0, 0.0), 0.0), + gleam@expect:equal(gleam@float:min(0.3, 1.5), 0.3), + gleam@expect:equal(gleam@float:min(1.0, 0.0), 0.0), + gleam@expect:equal(gleam@float:min(-1.7, 2.5), -1.7), + gleam@expect:equal(gleam@float:min(-2.2, -2.2), -2.2), + gleam@expect:equal(gleam@float:min(-1.0, -1.0), -1.0), + gleam@expect:equal(gleam@float:min(-1.1, -1.0), -1.1). diff --git a/gen/test/gleam@int_test.erl b/gen/test/gleam@int_test.erl index 7cee67a..ce8936c 100644 --- a/gen/test/gleam@int_test.erl +++ b/gen/test/gleam@int_test.erl @@ -1,7 +1,7 @@ -module(gleam@int_test). -compile(no_auto_import). --export([to_string/0, parse/0, to_base_string/0, compare_test/0]). +-export([to_string/0, parse/0, to_base_string/0, compare_test/0, min_test/0]). to_string() -> gleam@expect:equal(gleam@int:to_string(123), <<"123">>), @@ -27,3 +27,11 @@ compare_test() -> gleam@expect:equal(gleam@int:compare(-2, -1), lt), gleam@expect:equal(gleam@int:compare(2, 1), gt), gleam@expect:equal(gleam@int:compare(-1, -2), gt). + +min_test() -> + gleam@expect:equal(gleam@int:min(0, 0), 0), + gleam@expect:equal(gleam@int:min(0, 1), 0), + gleam@expect:equal(gleam@int:min(1, 0), 0), + gleam@expect:equal(gleam@int:min(-1, 2), -1), + gleam@expect:equal(gleam@int:min(2, -2), -2), + gleam@expect:equal(gleam@int:min(-1, -1), -1). |