Žiga Magajna zmagajna

zmagajna / palin.erl

Last active November 27, 2019 14:11

	-module(palin).

	-export([server/1]).

	% palindrome problem
	%
	% palindrome("Madam I\'m Adam.") = true
	palindrome(Xs) -> palin(nocaps(nopunct(Xs))).

	nopunct([]) -> [];