AdventOfCode2017/day10.pl at master · CompuMetalGeek/AdventOfCode2017 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
use strict;
use Term::ANSIColor;
use Win32::Console::ANSI;
use Time::HiRes qw/time/;

my $time = time;
my $filename = "${0}_input";
open(my $fh, $filename);

my @list = (0..255);
my $skip = 0;
my $current = 0;
my $input = <$fh>;
chomp $input;
my @input = split ",", $input;


for my $length (@input){
	my @toReverse;
	for (my $i = 0; $i < $length; $i++) {
		push @toReverse, $list[($i+$current)% scalar @list];
	}

	@toReverse = reverse @toReverse;

	for (my $i = 0; $i < $length; $i++) {
		$list[($i+$current)% scalar @list]=$toReverse[$i];
	}
	$current+=$length+$skip;
	$current %= scalar @list;
	$skip++;
}

print "The product of the first two numbers is ", colored( $list[0]*$list[1], "black on_red" ), ". ( ", sprintf ("%.3f",time - $time) ," s )\n";

$time = time;
@input=();
push @input, ord($_) foreach (split "", $input);
push @input, (17,31,73,47,23);

my @list = (0..255);
my $skip = 0;
my $current = 0;

for (my $round = 0; $round < 64; $round++) {
	for my $length (@input){
		my @toReverse;
		for (my $i = 0; $i < $length; $i++) {
			push @toReverse, $list[($i+$current)% scalar @list];
		}

		@toReverse = reverse @toReverse;

		for (my $i = 0; $i < $length; $i++) {
			$list[($i+$current)% scalar @list]=$toReverse[$i];
		}
		$current+=$length+$skip;
		$current %= scalar @list;
		$skip++;
	}
}

my @denseList;
for (my $densePart = 0; $densePart < 16; $densePart++) {
	my $value = $list[$densePart*16];
	foreach my $x (@list[$densePart*16+1..$densePart*16+15]) {
		$value ^= $x;
	}
	push @denseList, $value;
}

my $hex ="";
$hex .= sprintf("%.2x",$_) foreach (@denseList);
print "The knot hash is ", colored( $hex, "black on_red" ), ". ( ", sprintf ("%.3f",time - $time) ," s )\n";