Current section
Files
Jump to
Current section
Files
src/blah@internet.erl
-module(blah@internet).
-compile(no_auto_import).
-export([username/0, email/0, password/0, passphrase/0, domain_name/0, url/0, ip_v4/0, ip_v6/0, mac/0, long_hex_color/0, short_hex_color/0, hex_color/0, mongo_object_id/0, semver/0, language_code/0, status_code/0, status_code_in_class/1, currency_symbol/0, currency_code/0, roman_numeral/2]).
-export_type([http_status_class/0]).
-type http_status_class() :: informational |
successful |
redirection |
client_error |
server_error.
-spec username() -> binary().
username() ->
Adjective = blah@en@word:adjective(),
Last_name = blah@name:last_name(),
Nonce = gleam@int:random(4, 2048),
case Nonce rem 4 of
0 ->
_pipe = [Adjective, Last_name],
blah@utils:join(_pipe, <<""/utf8>>);
1 ->
_pipe@2 = [Adjective,
begin
_pipe@1 = Last_name,
gleam@string:lowercase(_pipe@1)
end],
blah@utils:join(_pipe@2, <<"."/utf8>>);
2 ->
_pipe@4 = [Adjective,
begin
_pipe@3 = Last_name,
gleam@string:lowercase(_pipe@3)
end],
blah@utils:join(_pipe@4, <<"-"/utf8>>);
3 ->
_pipe@6 = [Adjective,
begin
_pipe@5 = Last_name,
gleam@string:lowercase(_pipe@5)
end],
blah@utils:join(_pipe@6, <<"_"/utf8>>)
end.
-spec email() -> binary().
email() ->
{ok, Email_domain@1} = case blah@utils:get_random_item(
[<<"aol.com"/utf8>>,
<<"gmail.com"/utf8>>,
<<"hotmail.com"/utf8>>,
<<"live.com"/utf8>>,
<<"mail.ru"/utf8>>,
<<"msn.com"/utf8>>,
<<"outlook.com"/utf8>>,
<<"proton.me"/utf8>>,
<<"protonmail.com"/utf8>>,
<<"yahoo.com"/utf8>>,
<<"ymail.com"/utf8>>]
) of
{ok, Email_domain} -> {ok, Email_domain};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"blah/internet"/utf8>>,
function => <<"email"/utf8>>,
line => 122})
end,
_pipe = [username(), Email_domain@1],
blah@utils:join(_pipe, <<"@"/utf8>>).
-spec password() -> binary().
password() ->
Length = gleam@int:random(8, 32),
blah@en@string:alphanumeric(Length).
-spec passphrase() -> binary().
passphrase() ->
_pipe@1 = [blah@en@word:adjective(),
begin
_pipe = blah@name:first_name(),
gleam@string:lowercase(_pipe)
end,
blah@en@word:verb(),
blah@en@word:adverb()],
blah@utils:join(_pipe@1, <<" "/utf8>>).
-spec domain_name() -> binary().
domain_name() ->
Adjective = blah@en@word:adjective(),
Noun = blah@en@word:noun(),
Nonce = gleam@int:random(4, 2048),
Hostname = case Nonce rem 3 of
0 ->
_pipe = [Adjective, Noun],
blah@utils:join(_pipe, <<"."/utf8>>);
1 ->
_pipe@1 = [Adjective, Noun],
blah@utils:join(_pipe@1, <<"-"/utf8>>);
2 ->
_pipe@2 = [Adjective, Noun],
blah@utils:join(_pipe@2, <<"_"/utf8>>)
end,
{ok, Suffix@1} = case blah@utils:get_random_item(
[<<"co"/utf8>>,
<<"com"/utf8>>,
<<"edu"/utf8>>,
<<"gov"/utf8>>,
<<"int"/utf8>>,
<<"io"/utf8>>,
<<"mil"/utf8>>,
<<"net"/utf8>>,
<<"org"/utf8>>]
) of
{ok, Suffix} -> {ok, Suffix};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"blah/internet"/utf8>>,
function => <<"domain_name"/utf8>>,
line => 163})
end,
_pipe@3 = [Hostname, Suffix@1],
blah@utils:join(_pipe@3, <<"."/utf8>>).
-spec url() -> binary().
url() ->
{ok, Protocol@1} = case blah@utils:get_random_item(
[<<"http"/utf8>>, <<"https"/utf8>>]
) of
{ok, Protocol} -> {ok, Protocol};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"blah/internet"/utf8>>,
function => <<"url"/utf8>>,
line => 170})
end,
_pipe = [Protocol@1, <<"://"/utf8>>, domain_name()],
blah@utils:join(_pipe, <<""/utf8>>).
-spec ip_v4() -> binary().
ip_v4() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 4),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 256) end),
_pipe@2 = gleam@list:map(_pipe@1, fun gleam@int:to_string/1),
blah@utils:join(_pipe@2, <<"."/utf8>>).
-spec ip_v6() -> binary().
ip_v6() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 8),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 65536) end),
_pipe@4 = gleam@list:map(
_pipe@1,
fun(Field) ->
_pipe@2 = Field,
_pipe@3 = gleam@int:to_base16(_pipe@2),
gleam@string:lowercase(_pipe@3)
end
),
blah@utils:join(_pipe@4, <<":"/utf8>>).
-spec mac() -> binary().
mac() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 6),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 256) end),
_pipe@4 = gleam@list:map(
_pipe@1,
fun(Field) ->
_pipe@2 = Field,
_pipe@3 = gleam@int:to_base16(_pipe@2),
gleam@string:lowercase(_pipe@3)
end
),
blah@utils:join(_pipe@4, <<":"/utf8>>).
-spec long_hex_color() -> binary().
long_hex_color() ->
_pipe@5 = [<<"#"/utf8>> |
begin
_pipe = gleam@list:repeat(<<""/utf8>>, 3),
_pipe@1 = gleam@list:map(
_pipe,
fun(_) -> gleam@int:random(0, 256) end
),
gleam@list:map(
_pipe@1,
fun(Field) ->
_pipe@2 = Field,
_pipe@3 = gleam@int:to_base16(_pipe@2),
_pipe@4 = gleam@string:lowercase(_pipe@3),
gleam@string:pad_left(_pipe@4, 2, <<"0"/utf8>>)
end
)
end],
blah@utils:join(_pipe@5, <<""/utf8>>).
-spec short_hex_color() -> binary().
short_hex_color() ->
_pipe@4 = [<<"#"/utf8>> |
begin
_pipe = gleam@list:repeat(<<""/utf8>>, 3),
_pipe@1 = gleam@list:map(
_pipe,
fun(_) -> gleam@int:random(0, 15) end
),
gleam@list:map(
_pipe@1,
fun(Field) ->
_pipe@2 = Field,
_pipe@3 = gleam@int:to_base16(_pipe@2),
gleam@string:lowercase(_pipe@3)
end
)
end],
blah@utils:join(_pipe@4, <<""/utf8>>).
-spec hex_color() -> binary().
hex_color() ->
Nonce = gleam@int:random(4, 2048),
case Nonce rem 2 of
0 ->
long_hex_color();
1 ->
short_hex_color()
end.
-spec mongo_object_id() -> binary().
mongo_object_id() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 24),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 15) 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
),
blah@utils:join(_pipe@4, <<""/utf8>>).
-spec semver() -> binary().
semver() ->
_pipe = gleam@list:repeat(<<""/utf8>>, gleam@int:random(2, 4)),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 32) end),
_pipe@2 = gleam@list:map(_pipe@1, fun gleam@int:to_string/1),
blah@utils:join(_pipe@2, <<"."/utf8>>).
-spec language_code() -> binary().
language_code() ->
{ok, Code@1} = case begin
_pipe = [<<"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>>],
blah@utils:get_random_item(_pipe)
end of
{ok, Code} -> {ok, Code};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"blah/internet"/utf8>>,
function => <<"language_code"/utf8>>,
line => 262})
end,
Code@1.
-spec status_code() -> integer().
status_code() ->
{ok, {_@2, Codes@1}} = case begin
_pipe = [{<<"informational"/utf8>>, [100, 101, 102, 103]},
{<<"successful"/utf8>>,
[200, 201, 202, 203, 204, 205, 206, 207, 208, 226]},
{<<"redirection"/utf8>>,
[300, 301, 302, 303, 304, 305, 306, 307, 308]},
{<<"client_error"/utf8>>,
[400,
401,
402,
403,
404,
405,
406,
407,
408,
409,
410,
411,
412,
413,
414,
415,
416,
417,
418,
421,
422,
423,
424,
425,
426,
428,
429,
431,
451]},
{<<"server_error"/utf8>>,
[500, 501, 502, 503, 504, 505, 506, 507, 508, 510, 511]}],
blah@utils:get_random_item(_pipe)
end of
{ok, {_@1, Codes}} -> {ok, {_@1, Codes}};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"blah/internet"/utf8>>,
function => <<"status_code"/utf8>>,
line => 269})
end,
{ok, Code@1} = case begin
_pipe@1 = Codes@1,
blah@utils:get_random_item(_pipe@1)
end of
{ok, Code} -> {ok, Code};
_try@1 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@1,
module => <<"blah/internet"/utf8>>,
function => <<"status_code"/utf8>>,
line => 273})
end,
Code@1.
-spec status_code_in_class(http_status_class()) -> integer().
status_code_in_class(Class) ->
Class_string = case Class of
informational ->
<<"informational"/utf8>>;
successful ->
<<"successful"/utf8>>;
redirection ->
<<"redirection"/utf8>>;
client_error ->
<<"client_error"/utf8>>;
server_error ->
<<"server_error"/utf8>>
end,
[{_@1, Codes}] = begin
_pipe = [{<<"informational"/utf8>>, [100, 101, 102, 103]},
{<<"successful"/utf8>>,
[200, 201, 202, 203, 204, 205, 206, 207, 208, 226]},
{<<"redirection"/utf8>>,
[300, 301, 302, 303, 304, 305, 306, 307, 308]},
{<<"client_error"/utf8>>,
[400,
401,
402,
403,
404,
405,
406,
407,
408,
409,
410,
411,
412,
413,
414,
415,
416,
417,
418,
421,
422,
423,
424,
425,
426,
428,
429,
431,
451]},
{<<"server_error"/utf8>>,
[500, 501, 502, 503, 504, 505, 506, 507, 508, 510, 511]}],
gleam@list:filter(
_pipe,
fun(Kv) -> gleam@pair:first(Kv) =:= Class_string end
)
end,
{ok, Code@1} = case begin
_pipe@1 = Codes,
blah@utils:get_random_item(_pipe@1)
end of
{ok, Code} -> {ok, Code};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"blah/internet"/utf8>>,
function => <<"status_code_in_class"/utf8>>,
line => 293})
end,
Code@1.
-spec currency_symbol() -> binary().
currency_symbol() ->
{ok, Symbol@1} = case begin
_pipe = [<<"$"/utf8>>,
<<"£"/utf8>>,
<<"¥"/utf8>>,
<<"ƒ"/utf8>>,
<<"р"/utf8>>,
<<"֏"/utf8>>,
<<"৳"/utf8>>,
<<"฿"/utf8>>,
<<"₡"/utf8>>,
<<"₦"/utf8>>,
<<"₩"/utf8>>,
<<"₪"/utf8>>,
<<"₫"/utf8>>,
<<"€"/utf8>>,
<<"₭"/utf8>>,
<<"₮"/utf8>>,
<<"₱"/utf8>>,
<<"₲"/utf8>>,
<<"₴"/utf8>>,
<<"₵"/utf8>>,
<<"₸"/utf8>>,
<<"₹"/utf8>>,
<<"₺"/utf8>>,
<<"₼"/utf8>>,
<<"₽"/utf8>>,
<<"₾"/utf8>>],
blah@utils:get_random_item(_pipe)
end of
{ok, Symbol} -> {ok, Symbol};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"blah/internet"/utf8>>,
function => <<"currency_symbol"/utf8>>,
line => 301})
end,
Symbol@1.
-spec currency_code() -> binary().
currency_code() ->
{ok, Code@1} = case begin
_pipe = [<<"aed"/utf8>>,
<<"afn"/utf8>>,
<<"all"/utf8>>,
<<"amd"/utf8>>,
<<"ang"/utf8>>,
<<"aoa"/utf8>>,
<<"ars"/utf8>>,
<<"aud"/utf8>>,
<<"awg"/utf8>>,
<<"azn"/utf8>>,
<<"bam"/utf8>>,
<<"bbd"/utf8>>,
<<"bdt"/utf8>>,
<<"bgn"/utf8>>,
<<"bhd"/utf8>>,
<<"bif"/utf8>>,
<<"bmd"/utf8>>,
<<"bnd"/utf8>>,
<<"bob"/utf8>>,
<<"brl"/utf8>>,
<<"bsd"/utf8>>,
<<"btn"/utf8>>,
<<"bwp"/utf8>>,
<<"byn"/utf8>>,
<<"bzd"/utf8>>,
<<"cad"/utf8>>,
<<"cdf"/utf8>>,
<<"chf"/utf8>>,
<<"clp"/utf8>>,
<<"cny"/utf8>>,
<<"cop"/utf8>>,
<<"crc"/utf8>>,
<<"cup"/utf8>>,
<<"cve"/utf8>>,
<<"czk"/utf8>>,
<<"djf"/utf8>>,
<<"dkk"/utf8>>,
<<"dop"/utf8>>,
<<"dzd"/utf8>>,
<<"egp"/utf8>>,
<<"ern"/utf8>>,
<<"etb"/utf8>>,
<<"eur"/utf8>>,
<<"fjd"/utf8>>,
<<"fkp"/utf8>>,
<<"gbp"/utf8>>,
<<"gel"/utf8>>,
<<"ghs"/utf8>>,
<<"gip"/utf8>>,
<<"gmd"/utf8>>,
<<"gnf"/utf8>>,
<<"gtq"/utf8>>,
<<"gyd"/utf8>>,
<<"hkd"/utf8>>,
<<"hnl"/utf8>>,
<<"hrk"/utf8>>,
<<"htg"/utf8>>,
<<"huf"/utf8>>,
<<"idr"/utf8>>,
<<"ils"/utf8>>,
<<"inr"/utf8>>,
<<"iqd"/utf8>>,
<<"irr"/utf8>>,
<<"isk"/utf8>>,
<<"jmd"/utf8>>,
<<"jod"/utf8>>,
<<"jpy"/utf8>>,
<<"kes"/utf8>>,
<<"kgs"/utf8>>,
<<"khr"/utf8>>,
<<"kmf"/utf8>>,
<<"kpw"/utf8>>,
<<"krw"/utf8>>,
<<"kwd"/utf8>>,
<<"kyd"/utf8>>,
<<"kzt"/utf8>>,
<<"lak"/utf8>>,
<<"lbp"/utf8>>,
<<"lkr"/utf8>>,
<<"lrd"/utf8>>,
<<"lsl"/utf8>>,
<<"lyd"/utf8>>,
<<"lek"/utf8>>,
<<"lev"/utf8>>,
<<"mad"/utf8>>,
<<"mdl"/utf8>>,
<<"mga"/utf8>>,
<<"mkd"/utf8>>,
<<"mmk"/utf8>>,
<<"mnt"/utf8>>,
<<"mop"/utf8>>,
<<"mru"/utf8>>,
<<"mur"/utf8>>,
<<"mvr"/utf8>>,
<<"mwk"/utf8>>,
<<"mxn"/utf8>>,
<<"myr"/utf8>>,
<<"mzn"/utf8>>,
<<"nad"/utf8>>,
<<"ngn"/utf8>>,
<<"nio"/utf8>>,
<<"nok"/utf8>>,
<<"npr"/utf8>>,
<<"nzd"/utf8>>,
<<"nkf"/utf8>>,
<<"omr"/utf8>>,
<<"pab"/utf8>>,
<<"pen"/utf8>>,
<<"pgk"/utf8>>,
<<"php"/utf8>>,
<<"pkr"/utf8>>,
<<"pln"/utf8>>,
<<"pyg"/utf8>>,
<<"qar"/utf8>>,
<<"ron"/utf8>>,
<<"rsd"/utf8>>,
<<"rub"/utf8>>,
<<"rwf"/utf8>>,
<<"sar"/utf8>>,
<<"sbd"/utf8>>,
<<"scr"/utf8>>,
<<"sdg"/utf8>>,
<<"sek"/utf8>>,
<<"sgd"/utf8>>,
<<"shp"/utf8>>,
<<"sle"/utf8>>,
<<"sos"/utf8>>,
<<"srd"/utf8>>,
<<"ssp"/utf8>>,
<<"stn"/utf8>>,
<<"syp"/utf8>>,
<<"szl"/utf8>>,
<<"thb"/utf8>>,
<<"tjs"/utf8>>,
<<"tmt"/utf8>>,
<<"tnd"/utf8>>,
<<"top"/utf8>>,
<<"try"/utf8>>,
<<"ttd"/utf8>>,
<<"twd"/utf8>>,
<<"tzs"/utf8>>,
<<"uah"/utf8>>,
<<"ugx"/utf8>>,
<<"usd"/utf8>>,
<<"uyu"/utf8>>,
<<"uzs"/utf8>>,
<<"ved"/utf8>>,
<<"ves"/utf8>>,
<<"vnd"/utf8>>,
<<"vuv"/utf8>>,
<<"wst"/utf8>>,
<<"xaf"/utf8>>,
<<"xcd"/utf8>>,
<<"xof"/utf8>>,
<<"xpf"/utf8>>,
<<"yer"/utf8>>,
<<"zar"/utf8>>,
<<"zmw"/utf8>>],
blah@utils:get_random_item(_pipe)
end of
{ok, Code} -> {ok, Code};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"blah/internet"/utf8>>,
function => <<"currency_code"/utf8>>,
line => 308})
end,
Code@1.
-spec roman_numeral(integer(), integer()) -> binary().
roman_numeral(Min, Max) ->
_pipe = gleam@int:random(Min, Max),
_pipe@1 = gleam@list:repeat(<<"I"/utf8>>, _pipe),
_pipe@2 = blah@utils:join(_pipe@1, <<""/utf8>>),
_pipe@3 = gleam@string:replace(_pipe@2, <<"IIIII"/utf8>>, <<"V"/utf8>>),
_pipe@4 = gleam@string:replace(_pipe@3, <<"VV"/utf8>>, <<"X"/utf8>>),
_pipe@5 = gleam@string:replace(_pipe@4, <<"XXXXX"/utf8>>, <<"L"/utf8>>),
_pipe@6 = gleam@string:replace(_pipe@5, <<"LL"/utf8>>, <<"C"/utf8>>),
_pipe@7 = gleam@string:replace(_pipe@6, <<"CCCCC"/utf8>>, <<"D"/utf8>>),
_pipe@8 = gleam@string:replace(_pipe@7, <<"DD"/utf8>>, <<"M"/utf8>>),
_pipe@9 = gleam@string:replace(_pipe@8, <<"MCCCC"/utf8>>, <<"CM"/utf8>>),
_pipe@10 = gleam@string:replace(_pipe@9, <<"CCCC"/utf8>>, <<"CD"/utf8>>),
_pipe@11 = gleam@string:replace(_pipe@10, <<"LXXXX"/utf8>>, <<"XC"/utf8>>),
_pipe@12 = gleam@string:replace(_pipe@11, <<"XXXX"/utf8>>, <<"XL"/utf8>>),
_pipe@13 = gleam@string:replace(_pipe@12, <<"VIIII"/utf8>>, <<"IX"/utf8>>),
gleam@string:replace(_pipe@13, <<"IIII"/utf8>>, <<"IV"/utf8>>).