Skip to content

Instantly share code, notes, and snippets.

@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([]) -> [];