9 lines
228 B
Text
9 lines
228 B
Text
to rot13 :c
|
|
make "a difference ascii lowercase :c ascii "a
|
|
if or :a < 0 :a > 25 [output :c]
|
|
make "delta ifelse :a < 13 [13] [-13]
|
|
output char sum :delta ascii :c
|
|
end
|
|
|
|
print map "rot13 "|abjurer NOWHERE|
|
|
nowhere ABJURER
|