list_utils.erl

-module(list_utils).
-export([split_list/2]).

split_list(List, Splits) ->
  case Splits > 1 of
    true -> Each = round(length(List) / Splits),
            list_range([], List, Each);
    false -> List
  end.

list_range([], List, Each) -> 
  Len = length(List),
  case Len > Each of
    true  -> {SubList, Rest} = lists:split(Each, List),
             list_range([SubList], Rest, Each);
    false -> [List]
  end;
list_range(Final, [], _Each) -> 
  Final;
list_range(Final, List, Each) ->
  Len = length(List),
  case Len > Each of
    true  -> {SubList, Rest} = lists:split(Each, List),
             list_range([SubList|Final], Rest, Each);
    false -> [List|Final]
  end.