diff --git a/example/is-palindrome.forth b/example/is-palindrome.forth index f1d96b3..4baf280 100644 --- a/example/is-palindrome.forth +++ b/example/is-palindrome.forth @@ -2,14 +2,17 @@ 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. +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. +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) dup s:hash [ s:reverse s:hash ] dip eq? ; 'ingirumimusnocteetconsumimurigni s:palindrome? -```` \ No newline at end of file +````