adventofcode/23/2b.pl

17 lines
254 B
Perl
Raw Normal View History

2017-12-24 18:10:58 +00:00
($a,$b,$c) = (1,79,79);
2017-12-23 20:09:19 +00:00
goto L5 if $a;
goto L9 if 1;
2017-12-23 20:11:01 +00:00
L5: $b *= 100;
2017-12-23 20:09:19 +00:00
$b -= -100000;
2017-12-24 18:10:58 +00:00
while() {
warn $b;
($f,$d) = (1,2);
do {
$e = 2;
$f = 0 if not $b % $d;
} while ++$d - $b;
$h++ unless $f;
die $h if $b == 124900;
$b += 17;
}