{{{ % 리스트에서 인접한 값의 차가 들어있는 리스트를 sort 해서 리스트 원소의 합과 가우스 합(?)을 비교. % 리스트 원소수도 체크해야 하는데 이 코드에는 빠져있다. %io 부분 추가해야 함. -module(jolly). -compile(export_all). jolly([H|T]) -> jollyResult(lists:usort(jollySub(H, T, []))). jollyResult(Res) -> case (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)]). }}} ---- LittleAOI, JollyJumpers