Mii

[…] placed in environments that incentivize scheming.

If this turns out to be another case of “research” where they told the model exactly what to do beforehand and then go all surprised Pikachu when it does, I’m gonna be shocked …

… because it’s been a while since they’ve tried that.

Yay, day 3 with Regexp magic.

open(FH, '<', $ARGV[0]) or die $!;
my $sum = 0;
my $sum2 = 0;

my $enabled = 1;

while (<FH>) {
    while ($_ =~ /(?:mul\((\d{1,3}),(\d{1,3})\)|(do)\(\)|(don\'t)\(\))/g) {
        $enabled = 1 if $3;
        $enabled = 0 if $4;
        $sum += $1 * $2 if $1 && $2;
        $sum2 += $1 * $2 if $enabled && $1 && $2;
    }
}

close(FH);

print "Part 1: $sum\n";
print "Part 2: $sum2\n";

That conversation reads like from a variation of Mafia/Werewolf where you have to figure out who in your circle of rationalists is secretly e/acc and wants to build the torment nexus.

1 day old and over 1000 kudos. Holy shit.

No beta we die like Brian Thompson.

use strict;
use List::Util qw( min max );

open(FH, '<', $ARGV[0]) or die $!;
my @lines;
while (<FH>) {
	my @report = split /\s/, $_;
	push @lines, \@report;
}

close FH;

sub in_range {
	my $diff = max($_[0], $_[1]) - min($_[0], $_[1]);
	return $diff >= 1 && $diff <= 3;
}

sub is_safe {
	my $prev = @$_[0];
	my $dir = 0;

	for (my $i = 1; $i < scalar @$_; ++$i) {
		my $el = @$_[$i];
		if ($el > $prev) {
			return 0 unless $dir >= 0;
			$dir = 1;
		} elsif ($el < $prev) {
			return 0 unless $dir <= 0;
			$dir = -1;
		}

		return 0 unless in_range $prev, $el;
		$prev = $el;
	}

	return 1;
}

sub part1 {
	my $safe_reports = 0;

	foreach (@_) {
		$safe_reports++ if is_safe @$_;
	}

	return $safe_reports;
}

print 'Part 1: ', part1(@lines), "\n";

My part 2 solution didn’t work with the real input but worked with all the test cases I threw at it, so I couldn’t figure out what was wrong with it and I’m too lazy to debug any more right now.

Advent of Code is one of these things I wanna do every year and then I end up in fucking end-of-the-year crunch time every December and work for 10-12 hours and really don’t wanna code after work anymore.

But hey, here’s a quick solution for day 1. Let’s see how far I make it.

use strict;
use List::Util qw( min max );

open(FH, '<', $ARGV[0]) or die $!;

my @left;
my @right;

while (<FH>) {
	my @nums = split /\s+/, $_;
	push(@left, $nums[0]);
	push(@right, $nums[1]);
}

@left = sort { $b <=> $a } @left;
@right = sort { $b <=> $a } @right;

my $dist = 0;
my $sim = 0;
my $i = 0;

foreach my $lnum (@left) {
	$sim += $lnum * grep { $_ == $lnum } @right;

	my $rnum = $right[$i++];
	$dist += max($lnum, $rnum) - min($lnum, $rnum);
}

print 'Part 1: ', $dist, "\n";
print 'Part 2: ', $sim, "\n";

close(FH);

Promptfondlers too lazy to even fondle prompts anymore. I’m sure this is the prime target demographic for Elon’s brain chips.

I’d say lol but I’m like 72% sure this is straight out of the video game industry’s playbook and very much intentional to create hype because everyone has forgotten this shit even exists.

Also, I’m still waiting for just one use case for video-generating autoplag that is, even in theory, not either morally reprehensible or outright criminal.

So there’s apparently a memecoin site with the not-at-all suspicious name pump.fun and Coffeezilla made a video about it on his second channel.

Also: Epilepsy warning for that site. It’s full of flashing colors and moving elements like late 90s Geocities.

I have no idea what the fuck is even going on there, but apparently people threaten to kill themselves or their animals if you don’t invest in their shitcoin there, or run actual cockfights where they murder the chickens live on stream if the line doesn’t go up.

This is fucked even without the hallucinating Clippy in the backend.

If your desktop is idle for more than 30-60 seconds (no “meaningful” mouse & keyboard movement), you get a red flag

People getting flogged flagged for being lazy for a few seconds reminds me of something …