Palindrome detection: Difference between revisions
Content added Content deleted
(PascalABC.NET) |
Langurmonkey (talk | contribs) |
||
Line 3,259: | Line 3,259: | ||
=={{header|langur}}== |
=={{header|langur}}== |
||
<syntaxhighlight lang="langur"> |
<syntaxhighlight lang="langur"> |
||
val ispal = fn s:len(s) > 0 and s == reverse(s) |
|||
val |
val tests = { |
||
"": false, |
"": false, |
||
"z": true, |
"z": true, |
||
Line 3,278: | Line 3,279: | ||
} |
} |
||
for |
for word in sort(keys(tests)) { |
||
val |
val foundpal = ispal(word) |
||
writeln |
writeln word, ": ", foundpal, if(foundpal == tests[word]: ""; " (FAILED TEST)") |
||
} |
|||
</syntaxhighlight> |
|||
{{out}} |
{{out}} |