RosettaCodeData/Task/Palindrome-detection/Retro/palindrome-detection.retro
2023-07-01 13:44:08 -04:00

3 lines
114 B
Text

:palindrome? (s-f) dup s:hash [ s:reverse s:hash ] dip eq? ;
'ingirumimusnocteetconsumimurigni palindrome? n:put