retroforth/example/is-palindrome.retro

# 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?
~~~