Pattern matching in Erlang

-module(main).
-export([main/0]).

promote({car, sedan}) -> "This car is sedan";
promote({car, hatchback}) -> "This car is hatchback";
promote({car, suv}) -> "This car is suv";
promote({car, _}) -> "This car does not belong to any category".

main() ->
    io:format("While determining the value of a function~n", []),
    io:format("~p~n", [promote({car, suv})]),
    io:format("~p~n", [promote({car, sedan})]),
    io:format("~p~n", [promote({car, hatchback})]),
    io:format("~p~n", [promote({car, sports})]).

-module(main).
-export([main/0]).

determine_car(Arg) when is_tuple(Arg) ->
    case Arg of
        {car, sedan} -> "This car is sedan";
        {car, hatchback} -> "This car is hatchback";
        {car, suv} -> "This car is suv";
        {car, _} -> "This car does not belong to any category";
        _ -> "This is not a car"
    end.
    
main() ->
    io:format("In a case-of block~n", []),
    io:format("~p~n", [determine_car({car, sedan})]),
    io:format("~p~n", [determine_car({car, sports})]),
    io:format("~p~n", [determine_car({bike})]).

-module(main).
-export([main/0]).

is_multipleOf3(Number) ->
    Type = try Number rem 3 of
        0 when is_number(Number) -> true;
        1 when is_number(Number) -> false;
        2 when is_number(Number) -> false
    catch
        _ErrType:_Err -> "Its not a number"
    end,
    io:format("Is ~p multiple of 3? ~p~n", [Number, Type]).

main() ->
    io:format("In the form of a try expression~n", []),
    is_multipleOf3(6),
    is_multipleOf3(8),
    is_multipleOf3(b).

-module(main).
-export([main/0]).
-compile([export_all]).

postman_service() ->
    receive
        {send, {From, To, _Content} = Email} ->
            io:format("~n~s Sending Email to ~s : ~s~n~n", [From, To, _Content]),
            self() ! {rcv, Email},
            postman_service();
        {rcv, {To, From, Content} = _Email} ->
            io:format("~s got an Email: ~n~s ~nRegards, ~n~s~n", [From, Content, To]),
            postman_service();
        stop ->
            io:format("~nClosing the Postman connection ~n")
    end.

main() ->
    io:format("When capturing the incoming messages to a process in a receive block~n", []),
    ProcessID = spawn(?MODULE, postman_service, []),
    ProcessID ! {send, {"Jerry", "Tom", "Hello, i hope you are doing good."}},
    timer:sleep(100),
    ProcessID ! stop.

-module(main).
-export([main/0]).

headOfList(List) ->
    [Head | _] = List,
    io:format("Head of the list is: ~p~n", [Head]).

main() ->
io:format("When using the = operator ~n", []),
headOfList([100, 200, 300]).