Create accountLogin

Recent searches

No recent searches

Search options

Not available on socel.net.
socel.net is one of the many independent Mastodon servers you can use to participate in the fediverse.
Socel is a place for animation professionals, freelancers, independents, students, and fans to connect and grow together. Everyone in related fields are also welcome.

Administered by:

Server stats:

315
active users

socel.net: AboutProfiles directoryPrivacy policy

Mastodon: AboutGet the appKeyboard shortcutsView source codev4.3.7

#pgs

0 posts0 participants0 posts today
aBe<p>Pack and go</p><p><a href="https://genart.social/tags/CreativeCoding" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#<span>CreativeCoding</span></a> <a href="https://genart.social/tags/OPENRNDR" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#<span>OPENRNDR</span></a> <a href="https://genart.social/tags/PGS" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#<span>PGS</span></a><br><a href="https://genart.social/tags/Kotlin" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#<span>Kotlin</span></a> <a href="https://genart.social/tags/generative" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#<span>generative</span></a></p>
Oriel Jutty :hhHHHAAAH:<p>AoC day 5 in Perl. I'm not quite happy with the second loop. It feels a bit ad-hoc, like maybe there is a simpler algorithm waiting to be revealed. But it's not too bad, and it works:</p><pre><code>use v5.36;<br>use builtin qw(true);<br><br>my %after;<br>while (readline) {<br> chomp;<br> last if $_ eq '';<br><br> my ($fst, $snd) = /^ (\d+) \| (\d+) \z/xa<br> or die "Malformed input: $_";<br><br> push @{$after{$fst}}, $snd;<br>}<br><br>my $good_total = 0;<br>my $bad_total = 0;<br><br>while (readline) {<br> chomp;<br> my @pgs = split /,/;<br><br> my $ok = true;<br> my (%seen, %before);<br> for my $pg (@pgs) {<br> $seen{$pg} = true;<br> for my $x (@{$after{$pg} // []}) {<br> push @{$before{$x}}, $pg;<br> $ok &amp;&amp;= !$seen{$x};<br> }<br> }<br><br> my ($mid) = grep { @{$before{$_} // []} == $#pgs / 2 } @pgs;<br> ${$ok ? \$good_total : \$bad_total} += $mid;<br>}<br><br>say $good_total;<br>say $bad_total;<br></code></pre><p><a href="https://infosec.exchange/tags/AdventOfCode" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#<span>AdventOfCode</span></a> <a href="https://infosec.exchange/tags/perl" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#<span>perl</span></a></p>
ExploreLive feeds
About