Sha256: 924e8ea06d62384c032793ab9ef68858ef810834df888463f91a6f1f23fd74e2
Contents?: true
Size: 935 Bytes
Versions: 310
Compression:
Stored size: 935 Bytes
Contents
-module(example).
-export([number/1, areacode/1, pretty_print/1, test_version/0]).
-define(ZEROS, "0000000000").
number(String) ->
Digits = digits(String),
case length(Digits) of
10 -> Digits;
11 -> strip_one(Digits);
_ -> ?ZEROS
end.
% Strips a leading '1' off the front of a string.
strip_one([49|T]) -> T;
strip_one([_P|_T]) -> ?ZEROS.
parts(Number) ->
PhoneNumber = number(Number),
AreaCode = string:sub_string(PhoneNumber, 1, 3),
Exchange = string:sub_string(PhoneNumber, 4, 6),
Subscriber = string:sub_string(PhoneNumber, 7, 10),
{AreaCode, Exchange, Subscriber}.
digits(String) ->
re:replace(String, "\\D", "", [global, {return, list}]).
areacode(String) ->
{AreaCode, _, _} = parts(String),
AreaCode.
pretty_print(String) ->
{AreaCode, Exchange, Subscriber} = parts(String),
lists:flatten(io_lib:format("\(~s\) ~s-~s", [AreaCode, Exchange, Subscriber])).
test_version() ->
1.
Version data entries
310 entries across 310 versions & 1 rubygems