6 lines
151 B
Forth
6 lines
151 B
Forth
~~~
|
|
:MAP (-s) 'nopqrstuvwxyzabcdefghijklm ;
|
|
:encode (c-c) $a - MAP + fetch ;
|
|
:rot13 (s-s) s:to-lower [ dup c:letter? [ encode ] if ] s:map ;
|
|
~~~
|
|
|