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

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

start() ->

List = [apple, orange, grapes, bananas],

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

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

N = 1, Result = rotate(N, List),

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

start() ->

List = [apple, orange, grapes, bananas],

N = 1, Result = rotate(N, List),

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

rotate(N, List) -> drop(N, List) ++ take(N, List).

drop(N, List) -> {_, Right} = lists:split(N, List), Right.

take(N, List) -> {Left, _} = lists:split(N, List), Left.