adventofcode/14/hash.pm
Yanick Champoux 1f0c8ef911 day14
2017-12-14 13:58:00 -05:00

35 lines
749 B
Perl

use 5.20.0;
use List::AllUtils qw/ reduce part /;
use experimental qw/ signatures /;
use base 'Exporter';
our @EXPORT = qw/ knot_hash /;
sub knot_hash ( $string ) {
my @commands = map { ord } split '', $string;
push @commands, 17, 31, 73, 47, 23;
my $skip = 0;
my $i = 0;
my @array = 0..255;
for ( 1..64 ) {
for my $c ( @commands ) {
@array[0..$c-1] = @array[ reverse 0..$c-1];
push @array, shift @array for 1..$c + $skip++;
$i += $c + $skip-1;
}
}
unshift @array, pop @array for 1..($i%@array);
my $j;
my @grouped = map {
reduce { $a ^ $b } @$_
} part { $j++ / 16 } @array;
return join '', map { sprintf "%02x", $_ } @grouped;
}