RosettaCodeData/Task/Palindrome-detection/Factor/palindrome-detection.factor
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

2 lines
69 B
Factor

USING: kernel sequences ;
: palindrome? ( str -- ? ) dup reverse = ;