RosettaCodeData/Task/Palindrome-detection/Factor/palindrome-detection.factor

3 lines
69 B
Factor
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
USING: kernel sequences ;
: palindrome? ( str -- ? ) dup reverse = ;