Playfair cipher: Difference between revisions

→‎{{header|J}}: simplify dedouble
(→‎{{header|J}}: tacit version of dedouble)
(→‎{{header|J}}: simplify dedouble)
Line 751:
 
restrict=: ] -. -.~
 
getidx=: 1 >:@+:@i.~ =/"1@(_2 ]\ ]) NB. index of digraph with repeated letter
splitDigraph=: ,`({. [, 'X' ,])@.((= }{.)~ getidx NB*. split2 first| digraphs with repeated letter#@])
dedouble=: dtb@:(>:@# {splitDigraph/&.|. splitDigraph)^:_ NB. progressively split digraphs until until noin changestring
 
choose 'Q'
892

edits