% 트 한 트 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].