Revision as of 08:02, 5 February 2021 (view source) Tikkanz (talk \| contribs) (→‎{{header\|J}}: tacit version of dedouble) ← Older edit		Revision as of 03:17, 6 February 2021 (view source) Tikkanz (talk \| contribs) (→‎{{header\|J}}: simplify dedouble) Newer edit →
Line 751: restrict=: ] -. -.~ ~~getidx=: 1 >:@+:@i.~ =/"1@(_2 ]\ ]) NB. index of digraph with repeated letter~~ splitDigraph=: ,`({. [, 'X' ,])@.((= }{.)~ ~~getidx NB~~*. ~~split~~2 ~~first~~\| ~~digraphs with repeated letter~~#@]) dedouble=: ~~dtb@:(>:@# {~~splitDigraph/&.\|. ~~splitDigraph)^:_~~ NB. progressively split digraphs ~~until until no~~in ~~change~~string choose 'Q'

Playfair cipher (view source)