% 리 들는 리를 sort 리 (?) .
% io 부 .
-module(jolly).
-compile(export_all).
jolly([H|T]) ->
jollyResult([H|T], lists:usort(jollySub(H, T, []))).
jollyResult(Ori, Res) ->
case (length(Ori)-1 =:= length(Res) andalso lists:sum(Res) =:= trunc((hd(Res)+lists:last(Res))*length(Res)/2)) of
true ->
io:format("Jolly~n");
false ->
io:format("Not Jolly~n")
end.
% 뒤 빼 리 더..
jollySub(H, [], Res) ->
Res;
jollySub(H, [HH|T], Res) ->
jollySub(HH, T, Res++[abs(H-HH)]).
메를 받는 를 면, 를 메 리를 면 .
jollyInt() ->
receive
H -> jolly(H)
end.
> Pid = spawn(jolly:jollyInt/0).
> Pid ! [4,1,3,2].
