Bifid cipher: Difference between revisions
m
→{{header|Perl}}: additional polishing
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: consolidate two lists into a single array) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: additional polishing) |
||
Line 187:
for my($k,$v) (%P) { $I{$v} = $k }
for my ($n,$char) (indexed split '', ($text =~ s/\s//gr)) {
for my($
}
for my($i,$j) (
$encrypted
}
| |||