tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Palindrome-detection/Maxima/palindrome-detection.maxima
+++ b/Task/Palindrome-detection/Maxima/palindrome-detection.maxima
@ -0,0 +1,3 @@
+palindromep(s) := block([t], t: sremove(" ", sdowncase(s)), sequal(t, sreverse(t)))$
+
+palindromep("Sator arepo tenet opera rotas");  /* true */