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