Erlangで1000以内の素数を生成する

priem_list.erl

#!/usr/bin/env escript

main(_) ->
    Res = prime_list(1000).
    %% io:format("~p~n", [length(Res)]).

prime_list(Num)->
    prime_list(Num, 3, [2]).

prime_list(Num, PP, PS) when PP >= Num ->
    lists:reverse(PS);
prime_list(Num, PP, PS) when PP < Num ->
    IsPrime = lists:any(fun(X) -> PP rem X =:= 0 end, PS),
    case IsPrime of
        true   -> prime_list(Num, PP+2, PS);
        false    -> prime_list(Num, PP+2, [PP|PS])
    end.