3 lines
144 B
Text
3 lines
144 B
Text
palindromep(s) := block([t], t: sremove(" ", sdowncase(s)), sequal(t, sreverse(t)))$
|
|
|
|
palindromep("Sator arepo tenet opera rotas"); /* true */
|