| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 17:37:52 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=5efeed7e34e7e6a395ca7681fe4eb1a15646c7259912ec85020556d0d659f6d9a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22Y8qYft8dqfKeUKjTQvA5Bz3-6tM7Yi-2%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d020bb197fb155-BLR
AoC 2024, day 25 (Perl) - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use warnings;
- no warnings 'portable'; # oct being used on binary nubmer > 32-bits
- use feature qw(say);
- $/ = '';
- use constant KEY => 0;
- use constant LOCK => 1;
- my @items;
- foreach my $item (map {join('', map {y/.#/01/; $_} split /\n/)} <>) {
- push( $items[ substr($item, 0, 1) ]->@*, oct("0b$item") );
- }
- my $part1 = 0;
- foreach my $lock ($items[LOCK]->@*) {
- $part1 += grep {($_ & $lock) == 0} $items[KEY]->@*;
- }
- say "Part 1: $part1";
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 7 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ W
JavaScript | 12 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 9
JavaScript | 20 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ V
JavaScript | 23 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 29 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ X
JavaScript | 31 sec ago | 0.24 KB
-
⭐⭐Exchange Exploit⭐⭐ Y
JavaScript | 35 sec ago | 0.24 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 39 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
