Result = tl(List),

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

start() ->

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

Result = tl(List),

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

[_|Result] = List,

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

start() ->

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

[_|Result] = List,

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

N = 1, {Left, Right} = lists:split(N - 1, List), Result = Left ++ tl(Right),

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

start() ->

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

N = 1, {Left, Right} = lists:split(N - 1, List), Result = Left ++ tl(Right),

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

Result = drop(1, List),

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

start() ->

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

Result = drop(1, List),

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

drop(N, List) -> drop(N, List, 0).

drop(N, _, _) when N < 0 -> throw(badarg);
drop(0, List, _) -> List;
drop(_, [], _) -> [];
drop(N, List, N) -> List;
drop(N, [_|T], Acc) -> drop(N, T, Acc + 1).