Current section
Files
Jump to
Current section
Files
src/blah@other.erl
-module(blah@other).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([currency/0, latitude/0, longitude/0, semver/0, mongo_object_id/0, uuid/0, language_code/0]).
-spec currency() -> {binary(), binary(), binary()}.
currency() ->
blah@en@other:currency().
-spec latitude() -> float().
latitude() ->
_assert_subject = gleam@int:power(
10,
gleam@int:to_float(blah@utils:get_random_int(3, 6))
),
{ok, Nonce} = case _assert_subject of
{ok, _} -> _assert_subject;
_assert_fail ->
erlang:error(#{gleam_error => let_assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _assert_fail,
module => <<"blah/other"/utf8>>,
function => <<"latitude"/utf8>>,
line => 14})
end,
case Nonce of
+0.0 -> +0.0;
-0.0 -> -0.0;
Gleam@denominator -> gleam@float:ceiling(
(((rand:uniform() * 180.0) - 90.0) * Nonce)
)
/ Gleam@denominator
end.
-spec longitude() -> float().
longitude() ->
_assert_subject = gleam@int:power(
10,
gleam@int:to_float(blah@utils:get_random_int(3, 6))
),
{ok, Nonce} = case _assert_subject of
{ok, _} -> _assert_subject;
_assert_fail ->
erlang:error(#{gleam_error => let_assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _assert_fail,
module => <<"blah/other"/utf8>>,
function => <<"longitude"/utf8>>,
line => 19})
end,
case Nonce of
+0.0 -> +0.0;
-0.0 -> -0.0;
Gleam@denominator -> gleam@float:ceiling(
((rand:uniform() * 360.0) - 180.0) * Nonce
)
/ Gleam@denominator
end.
-spec semver() -> binary().
semver() ->
_pipe = gleam@list:repeat(<<""/utf8>>, blah@utils:get_random_int(2, 4)),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(32) end),
_pipe@2 = gleam@list:map(_pipe@1, fun gleam@int:to_string/1),
gleam@string:join(_pipe@2, <<"."/utf8>>).
-spec mongo_object_id() -> binary().
mongo_object_id() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 24),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(16) end),
_pipe@4 = gleam@list:map(_pipe@1, fun(Digit) -> _pipe@2 = Digit,
_pipe@3 = gleam@int:to_base16(_pipe@2),
gleam@string:lowercase(_pipe@3) end),
gleam@string:join(_pipe@4, <<""/utf8>>).
-spec uuid() -> binary().
uuid() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 32),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(16) end),
_pipe@4 = gleam@list:map(_pipe@1, fun(Digit) -> _pipe@2 = Digit,
_pipe@3 = gleam@int:to_base16(_pipe@2),
gleam@string:lowercase(_pipe@3) end),
gleam@list:fold(
_pipe@4,
<<""/utf8>>,
fun(Uuid, Char) ->
Uuid@1 = gleam@string:append(Uuid, Char),
case gleam@string:length(Uuid@1) of
8 ->
gleam@string:append(Uuid@1, <<"-"/utf8>>);
13 ->
gleam@string:append(Uuid@1, <<"-"/utf8>>);
18 ->
gleam@string:append(Uuid@1, <<"-"/utf8>>);
23 ->
gleam@string:append(Uuid@1, <<"-"/utf8>>);
_ ->
Uuid@1
end
end
).
-spec language_code() -> binary().
language_code() ->
blah@utils:get_random_item(
[<<"aa"/utf8>>,
<<"ab"/utf8>>,
<<"ae"/utf8>>,
<<"af"/utf8>>,
<<"ak"/utf8>>,
<<"am"/utf8>>,
<<"an"/utf8>>,
<<"ar"/utf8>>,
<<"as"/utf8>>,
<<"av"/utf8>>,
<<"ay"/utf8>>,
<<"az"/utf8>>,
<<"ba"/utf8>>,
<<"be"/utf8>>,
<<"bg"/utf8>>,
<<"bh"/utf8>>,
<<"bi"/utf8>>,
<<"bm"/utf8>>,
<<"bn"/utf8>>,
<<"bo"/utf8>>,
<<"br"/utf8>>,
<<"bs"/utf8>>,
<<"ca"/utf8>>,
<<"ce"/utf8>>,
<<"ch"/utf8>>,
<<"co"/utf8>>,
<<"cr"/utf8>>,
<<"cs"/utf8>>,
<<"cu"/utf8>>,
<<"cv"/utf8>>,
<<"cy"/utf8>>,
<<"da"/utf8>>,
<<"de"/utf8>>,
<<"dv"/utf8>>,
<<"dz"/utf8>>,
<<"ee"/utf8>>,
<<"el"/utf8>>,
<<"en"/utf8>>,
<<"eo"/utf8>>,
<<"es"/utf8>>,
<<"et"/utf8>>,
<<"eu"/utf8>>,
<<"fa"/utf8>>,
<<"ff"/utf8>>,
<<"fi"/utf8>>,
<<"fj"/utf8>>,
<<"fo"/utf8>>,
<<"fr"/utf8>>,
<<"fy"/utf8>>,
<<"ga"/utf8>>,
<<"gd"/utf8>>,
<<"gl"/utf8>>,
<<"gn"/utf8>>,
<<"gu"/utf8>>,
<<"gv"/utf8>>,
<<"ha"/utf8>>,
<<"he"/utf8>>,
<<"hi"/utf8>>,
<<"ho"/utf8>>,
<<"hr"/utf8>>,
<<"ht"/utf8>>,
<<"hu"/utf8>>,
<<"hy"/utf8>>,
<<"hz"/utf8>>,
<<"ia"/utf8>>,
<<"id"/utf8>>,
<<"ie"/utf8>>,
<<"ig"/utf8>>,
<<"ii"/utf8>>,
<<"ik"/utf8>>,
<<"io"/utf8>>,
<<"is"/utf8>>,
<<"it"/utf8>>,
<<"iu"/utf8>>,
<<"ja"/utf8>>,
<<"jv"/utf8>>,
<<"ka"/utf8>>,
<<"kg"/utf8>>,
<<"ki"/utf8>>,
<<"kj"/utf8>>,
<<"kk"/utf8>>,
<<"kl"/utf8>>,
<<"km"/utf8>>,
<<"kn"/utf8>>,
<<"ko"/utf8>>,
<<"kr"/utf8>>,
<<"ks"/utf8>>,
<<"ku"/utf8>>,
<<"kv"/utf8>>,
<<"kw"/utf8>>,
<<"ky"/utf8>>,
<<"la"/utf8>>,
<<"lb"/utf8>>,
<<"lg"/utf8>>,
<<"li"/utf8>>,
<<"ln"/utf8>>,
<<"lo"/utf8>>,
<<"lt"/utf8>>,
<<"lu"/utf8>>,
<<"lv"/utf8>>,
<<"mg"/utf8>>,
<<"mh"/utf8>>,
<<"mi"/utf8>>,
<<"mk"/utf8>>,
<<"ml"/utf8>>,
<<"mn"/utf8>>,
<<"mr"/utf8>>,
<<"ms"/utf8>>,
<<"mt"/utf8>>,
<<"my"/utf8>>,
<<"na"/utf8>>,
<<"nb"/utf8>>,
<<"nd"/utf8>>,
<<"ne"/utf8>>,
<<"ng"/utf8>>,
<<"nl"/utf8>>,
<<"nn"/utf8>>,
<<"no"/utf8>>,
<<"nr"/utf8>>,
<<"nv"/utf8>>,
<<"ny"/utf8>>,
<<"oc"/utf8>>,
<<"oj"/utf8>>,
<<"om"/utf8>>,
<<"or"/utf8>>,
<<"os"/utf8>>,
<<"pa"/utf8>>,
<<"pi"/utf8>>,
<<"pl"/utf8>>,
<<"ps"/utf8>>,
<<"pt"/utf8>>,
<<"qu"/utf8>>,
<<"rm"/utf8>>,
<<"rn"/utf8>>,
<<"ro"/utf8>>,
<<"ru"/utf8>>,
<<"rw"/utf8>>,
<<"sa"/utf8>>,
<<"sc"/utf8>>,
<<"sd"/utf8>>,
<<"se"/utf8>>,
<<"sg"/utf8>>,
<<"si"/utf8>>,
<<"sk"/utf8>>,
<<"sl"/utf8>>,
<<"sm"/utf8>>,
<<"sn"/utf8>>,
<<"so"/utf8>>,
<<"sq"/utf8>>,
<<"sr"/utf8>>,
<<"ss"/utf8>>,
<<"st"/utf8>>,
<<"su"/utf8>>,
<<"sv"/utf8>>,
<<"sw"/utf8>>,
<<"ta"/utf8>>,
<<"te"/utf8>>,
<<"tg"/utf8>>,
<<"th"/utf8>>,
<<"ti"/utf8>>,
<<"tk"/utf8>>,
<<"tl"/utf8>>,
<<"tn"/utf8>>,
<<"to"/utf8>>,
<<"tr"/utf8>>,
<<"ts"/utf8>>,
<<"tt"/utf8>>,
<<"tw"/utf8>>,
<<"ty"/utf8>>,
<<"ug"/utf8>>,
<<"uk"/utf8>>,
<<"ur"/utf8>>,
<<"uz"/utf8>>,
<<"ve"/utf8>>,
<<"vi"/utf8>>,
<<"vo"/utf8>>,
<<"wa"/utf8>>,
<<"wo"/utf8>>,
<<"xh"/utf8>>,
<<"yi"/utf8>>,
<<"yo"/utf8>>,
<<"za"/utf8>>,
<<"zh"/utf8>>,
<<"zu"/utf8>>]
).