RosettaCodeData/Task/Test-a-function/Factor/test-a-function-1.factor

USING: kernel sequences ;
IN: palindrome

: palindrome? ( string -- ? ) dup reverse = ;