Revision as of 17:11, 31 May 2021 (view source) rosettacode>Domo Sokrat m (→‎{{header\|Nim}}: Add subheader) ← Older edit		Revision as of 12:40, 14 June 2021 (view source) Shuisman (talk \| contribs) m (→‎{{header\|Mathematica}}) Newer edit →
Line 1,613: =={{header\|Mathematica}}/{{header\|Wolfram Language}}== <lang Mathematica>ClearAll[ichaoalphabet, iMoveToFront, ChaoCipher] ~~ClearAll[ichaoalphabet, iMoveToFront, ChaoCipher]~~ ichaoalphabet = CharacterRange["A", "Z"]; iMoveToFront[l_List, sel_] := Module[{p}, Line 1,662 ⟶ 1,661: </lang> {{out}} <pre>OAHQHCNYNXTSZJRRHJBYHQKSOUJY</pre>▼ ~~<pre>~~ ▲OAHQHCNYNXTSZJRRHJBYHQKSOUJY ~~</pre>~~ =={{header\|Nim}}==

Chaocipher (view source)