16 lines
250 B
Text
16 lines
250 B
Text
rot-13:
|
|
)
|
|
for ch in chars swap:
|
|
ord ch
|
|
if <= 65 dup:
|
|
if >= 90 dup:
|
|
+ 13 - swap 65
|
|
+ 65 % swap 26
|
|
if <= 97 dup:
|
|
if >= 122 dup:
|
|
+ 13 - swap 97
|
|
+ 97 % swap 26
|
|
chr
|
|
concat(
|
|
|
|
!print rot-13 "Snape kills Frodo with Rosebud."
|