7 lines
168 B
Text
7 lines
168 B
Text
(de rot13-Ch (C)
|
|
(cond
|
|
((>= "M" (uppc C) "A")
|
|
(char (+ (char C) 13)) )
|
|
((>= "Z" (uppc C) "N")
|
|
(char (- (char C) 13)) )
|
|
(T C) ) )
|