Rot-13: Difference between revisions

Content added Content deleted
m (→‎min: simplify)
Line 241: Line 241:
{{works with|*}}
{{works with|*}}
<syntaxhighlight lang="apl">
<syntaxhighlight lang="apl">
⍝ 2023-02-18
⍝ 2023-03-03


key←'AaBbCcDdEeFfGgHhIiJjKkLlMmzZyYxXwWvVuUtTsSrRqQpPoOnN'
k←'AaBbCcDdEeFfGgHhIiJjKkLlMmzZyYxXwWvVuUtTsSrRqQpPoOnN'
rot13←{53>key⍳⍵:key[53-key⍳⍵]⋄⍵}¨
rot←{⍵∊k:[53-k⍳⍵]⋄⍵}¨
</syntaxhighlight>
</syntaxhighlight>


{{Out}}
{{Out}}
<pre>
<pre>
rot13 'Usenet rulez !'
rot 'Usenet rulez !'
Hfrarg ehyrm !
Hfrarg ehyrm !
rot13 'Hfrarg ehyrm !'
rot 'Hfrarg ehyrm !'
Usenet rulez !
Usenet rulez !
</pre>
</pre>

''comments : cyril.nocton@gmail.com''


=={{header|AppleScript}}==
=={{header|AppleScript}}==