Playfair cipher: Difference between revisions
m
→{{header|Raku}}: removed obsolete 'anon'
No edit summary |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: removed obsolete 'anon') |
||
Line 2,284:
=={{header|Raku}}==
(formerly Perl 6)
<lang perl6># Instantiate a specific encoder/decoder.
Line 2,328 ⟶ 2,327:
return
my @list = canon($red).comb(/(.) (.?) <?{ $1 ne $0 }>/);
~@list.map: { .chars == 1 ?? %ENC{$_~'X'} !! %ENC{$_} }
},
my @list = canon($black).comb(/../);
~@list.map: { %DEC{$_} }
| |||