path: root/factor/examples/strings/strings.factor

USING: kernel sequences ;
IN: examples.strings

: palindrome ( s -- bool )
    dup reverse equal? ;