rosetta|is-palindrome

A palindrome is a phrase which reads the same backward and forward.

Write a function or program that checks whether a given sequence of characters (or, if you prefer, bytes) is a palindrome.

In Retro this is fairly easy. We can use s:hash to identify a unique string. So make a copy, take he hash, reverse the copy, get its hash, and compare them.

~~~:s:palindrome? (s-f)   [ s:hash ]   [ s:reverse s:hash ] bi eq? ;   'ingirumimusnocteetconsumimurigni s:palindrome? ~~~