erlang 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).