RosettaCodeData/Task/Palindrome-detection/Retro/palindrome-detection.retro
2019-09-12 10:33:56 -07:00

3 lines
114 B
Text

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