Artifact 259e42597d9d8848fb2928364c73a065ae4e1686

File rosetta_code/rot-13.rx part of check-in [35f34c4339] - add more examples from rosetta code (nearing the end) by crc on 2011-04-10 17:36:12. [annotate]

{{
  : rotate  ( cb-c ) tuck - 13 + 26 mod + ;
  : rotate? (  c-c )
    dup 'a 'z within [ 'a rotate ] ifTrue
    dup 'A 'Z within [ 'A rotate ] ifTrue ;
---reveal---
  : rot13   (  s-s ) dup [ repeat @+ 0; rotate? over 1- ! again ] do drop ;
}}

"abcdef123GHIJKL" rot13 dup puts cr rot13 puts
"abjurer NOWHERE" rot13 puts