Anonymous user
Caesar cipher: Difference between revisions
Added zkl
(Add Nimrod) |
(Added zkl) |
||
Line 3,066:
SDFN PB ERA ZLWK ILYH GRCHQ OLTXRU MXJV.
</pre>
=={{header|zkl}}==
<lang zkl>var [const] letters=
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
fcn caesarCodec(str,n,encode=True){
if(not encode) n=26-n;
m:=n+26; sz:=26-n;
ltrs:=String(letters[n,sz],letters[0,n],letters[m,sz],letters[26,n]);
str.apply('wrap(c){ try{ ltrs[letters.index(c)] } catch{ c } });
}</lang>
<lang zkl>text:="The five boxing wizards jump quickly";
N:=3;
code:=caesarCodec(text,N);
println("text = ",text);
println("encoded(%d) = %s".fmt(N,code));
println("decoded = ",caesarCodec(code,N,False));</lang>
{{out}}
<pre>
text = The five boxing wizards jump quickly
encoded(3) = Wkh ilyh eralqj zlcdugv mxps txlfnob
decoded = The five boxing wizards jump quickly
</pre>
{{omit from|GUISS}}
| |||