rot-letter ( ch -- ch )

Vocabulary

rot13

Inputs

ch

an object

Outputs

ch

an object

Definition

USING: ascii combinators kernel ;

IN: rot13

: rot-letter ( ch -- ch )
    {
        { [ dup letter? ] [ 97 rotate ] }
        { [ dup LETTER? ] [ 65 rotate ] }
        [ ]
    } cond ;