Data Encryption Standard: Difference between revisions
m
→{{header|Perl 6}}
m (→{{header|Perl 6}}: overlooked the fact that it is a core method name ..) |
|||
Line 2,437:
sub ƒ (List \R is copy, Seq \Kₙ is copy --> Seq) {
my @er =
my @sr = flat map { # Sₙ(Bₙ) loop, process @er six bits at a time
((S.[$_][([~] @er[$_*6,$_*6+5]).parse-base(2)*16+([~]
|