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