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