Current section

Files

Jump to
gleam_stdlib gen src gleam@float.erl
Raw

gen/src/gleam@float.erl

-module(gleam@float).
-compile(no_auto_import).
-export([parse/1, to_string/1, clamp/3, compare/2, min/2, max/2, ceiling/1, floor/1, round/1, truncate/1, absolute_value/1, power/2, square_root/1, negate/1, sum/1, product/1]).
-spec parse(binary()) -> {ok, float()} | {error, nil}.
parse(A) ->
gleam_stdlib:parse_float(A).
-spec to_string(float()) -> binary().
to_string(F) ->
gleam@string_builder:to_string(gleam@string_builder:from_float(F)).
-spec clamp(float(), float(), float()) -> float().
clamp(N, Min_bound, Max_bound) ->
max(min(N, Max_bound), Min_bound).
-spec compare(float(), float()) -> gleam@order:order().
compare(A, B) ->
case A =:= B of
true ->
eq;
false ->
case A < B of
true ->
lt;
false ->
gt
end
end.
-spec min(float(), float()) -> float().
min(A, B) ->
case A < B of
true ->
A;
false ->
B
end.
-spec max(float(), float()) -> float().
max(A, B) ->
case A > B of
true ->
A;
false ->
B
end.
-spec ceiling(float()) -> float().
ceiling(A) ->
math:ceil(A).
-spec floor(float()) -> float().
floor(A) ->
math:floor(A).
-spec round(float()) -> integer().
round(A) ->
erlang:round(A).
-spec truncate(float()) -> integer().
truncate(A) ->
erlang:trunc(A).
-spec absolute_value(float()) -> float().
absolute_value(A) ->
erlang:abs(A).
-spec power(float(), float()) -> float().
power(A, B) ->
math:pow(A, B).
-spec square_root(float()) -> {ok, float()} | {error, nil}.
square_root(Number) ->
case Number < 0.0 of
true ->
{error, nil};
false ->
{ok, math:pow(Number, 0.5)}
end.
-spec negate(float()) -> float().
negate(X) ->
-1.0 * X.
-spec sum(list(float())) -> float().
sum(Numbers) ->
do_sum(Numbers, 0.0).
-spec do_sum(list(float()), float()) -> float().
do_sum(Numbers, Initial) ->
case Numbers of
[] ->
Initial;
[X | Rest] ->
do_sum(Rest, X + Initial)
end.
-spec product(list(float())) -> float().
product(Numbers) ->
case Numbers of
[] ->
0.0;
_ ->
do_product(Numbers, 1.0)
end.
-spec do_product(list(float()), float()) -> float().
do_product(Numbers, Initial) ->
case Numbers of
[] ->
Initial;
[X | Rest] ->
do_product(Rest, X * Initial)
end.