Calculate percentiles in the Erlang shell

percentiles.erl

f(Percentiles).
Percentiles = fun(Numbers) ->
    Percentile = fun(List, Size, Perc) ->
        Element = round(Perc * Size),
        lists:nth(Element, List)
    end,
    Len = length(Numbers),
    Sorted = lists:sort(Numbers),
    [{trunc(Perc*100), Percentile(Sorted, Len, Perc)} ||
        Perc <- [0.50, 0.75, 0.90, 0.95, 0.99, 0.999]]
end.
%% Percentiles([3, 7, 2, 6.25, ...]).