2 lines
166 B
APL
2 lines
166 B
APL
r1 ← { ⎕UCS {+/⍵,13×(⍵≥65)∧(⍵<78),(-(⍵≥78)∧(⍵≤90)),(⍵≥97)∧(⍵<110),(-(⍵≥110)∧(⍵≤122))} ⎕UCS ⍵ }
|
||
rot13 ← { r1 ¨ ⍵ }
|