Playfair cipher: Difference between revisions
→{{header|J}}: tacit version of dedouble
(→{{header|J}}: handle strings with multiple doubles) |
(→{{header|J}}: tacit version of dedouble) |
||
Line 751:
restrict=: ] -. -.~
getidx=: 1 >:@+:@i.~ =/"1@(_2 ]\ ]) NB. index of digraph with repeated letter
splitDigraph=: ({. , 'X' , }.)~ getidx NB. split first digraphs with repeated letter
dedouble=: dtb@:(>:@# {. splitDigraph)^:_ NB. split digraphs until until no change
choose 'Q'
|