10 lines
228 B
Text
10 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
|