Result = init(List),

-module(remlast).
-export([start/0]).

start() ->

List = ['Apple', 'Banana', 'Carrot'],

Result = init(List),

io:format("~w~n", [Result]).

init(List) -> init(List, []).

init([], _) -> [];
init([_], NewList) -> lists:reverse(NewList);
init([H|T], NewList) -> init(T, [H|NewList]).

Result = take(length(List) - 1, List),

-module(remlast).
-export([start/0]).

start() ->

List = ['Apple', 'Banana', 'Carrot'],

Result = take(length(List) - 1, List),

io:format("~w~n", [Result]).

take(N, List) -> take(N, List, [], 0).

take(N, _, _, _) when N < 0 -> throw(badarg);
take(0, List, _, _) -> List;
take(_, [], NewList, _) -> lists:reverse(NewList);
take(N, _, NewList, N) -> lists:reverse(NewList);
take(N, [H|T], NewList, Acc) when Acc < N -> take(N, T, [H|NewList], Acc + 1).

Result = lists:reverse(tl(lists:reverse(List))),

-module(remlast).
-export([start/0]).

start() ->

List = ['Apple', 'Banana', 'Carrot'],

Result = lists:reverse(tl(lists:reverse(List))),

io:format("~w~n", [Result]).