ex1.erl

-module(ex1).
-export([server/1,pal_check/1,pal_check_answer/1]).


server(Pid) -> 
	receive 		
		{check, String} -> 
			io:format("got: " ++ String), 
			Pid ! { result, pal_check_answer(String)}, 
			server(Pid);
		_ -> 
			io:format("stopped")

	end.


pal_check_answer(String) -> 
	A = pal_check(String), 
	case A of
		true ->  String ++ " is palindrome";
		false -> String ++ " is not palindrome"
	end.

pal_check(String) -> String == lists:reverse(String).