sigmoid.social is one of the many independent Mastodon servers you can use to participate in the fediverse.
A social space for people researching, working with, or just interested in AI!

Server stats:

605
active users

#noxp

1 post1 participant0 posts today
Padraig 🌈<p><a href="https://mastodon.ie/tags/meme" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>meme</span></a> <a href="https://mastodon.ie/tags/cat" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>cat</span></a> <a href="https://mastodon.ie/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a></p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 328 Replace all ? and Good String <a href="https://wlmb.github.io/2025/07/03/PWC328/" rel="nofollow noopener" translate="no" target="_blank"><span class="invisible">https://</span><span class="ellipsis">wlmb.github.io/2025/07/03/PWC3</span><span class="invisible">28/</span></a><br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a></p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 328 Task 2: Good String<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -E '<br>for(@ARGV){$i=$_;1 while(s/(.)(??{$l=lc($1); $l eq $1? uc($1):lc($1)})//);say"$i-&gt;$_";}<br>' WeEeekly abBAdD abc<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 328 Task 1: Replace all ?<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -E '<br>for(@ARGV){$i=$_;1while s/(.?)(\?)(.?)/do{$y="a";++$y while$y eq$1 or $y eq$3;"$1$y$3"}/e;say"$i-&gt;$_"}<br>' a?z pe?k gra?te<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 327 Missing Integers and MAD <a href="https://wlmb.github.io/2025/06/26/PWC327/" rel="nofollow noopener" translate="no" target="_blank"><span class="invisible">https://</span><span class="ellipsis">wlmb.github.io/2025/06/26/PWC3</span><span class="invisible">27/</span></a><br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a></p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 327 Task 2: MAD (PDL)<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -MPDL -MPDL::NiceSlice -E '<br>for(@ARGV){$n=($p=pdl($_))-&gt;nelem;$r=$p-&gt;("*".$n);$q=($r-$p)-&gt;abs;$m=$q-&gt;where($q&gt;0)-&gt;min;<br>$s=pdl($r,$r-&gt;mv(0,1))-&gt;whereND($q==$m);say "$p -&gt; ",$s-&gt;whereND($s(:,0)&lt;$s(:,1))-&gt;mv(0,1);}<br>' '[4 1 2 3]' '[1 3 7 11 15]' '[1 5 3 8]'<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 327 Task 2: MAD<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -E '<br>@a=@ARGV;$m=abs($a[1]-$a[0]);for $i(0..@a-1){for $j($i+1..@a-1){$d=abs(($x=$a[$i])-($y=$a[$j]));<br>$m=$d,<span class="h-card" translate="no"><a href="https://mstdn.social/@r" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>r</span></a></span>=() if $d&lt;$m;push <span class="h-card" translate="no"><a href="https://mstdn.social/@r" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>r</span></a></span>,[$x,$y] if $d==$m;}}say "[@a] -&gt; [", (map{"[@$_]"} <span class="h-card" translate="no"><a href="https://mstdn.social/@r" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>r</span></a></span>),"]"<br>' 4 1 2 3<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 327 Task 1: Missing Integers<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -E '<br>$p{$_}++ for @ARGV; say "@ARGV -&gt; ", join " ", grep {!$p{$_}} 1..@ARGV<br>' 1 2 1 3 2 5<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 326 Day of the Year and Decompressed List <a href="https://wlmb.github.io/2025/06/16/PWC326/" rel="nofollow noopener" translate="no" target="_blank"><span class="invisible">https://</span><span class="ellipsis">wlmb.github.io/2025/06/16/PWC3</span><span class="invisible">26/</span></a><br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a></p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 326 Task 2: Decompressed List<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -E '<br>for my($i,$j)(@ARGV){push <span class="h-card" translate="no"><a href="https://mstdn.social/@O" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>O</span></a></span>, ($j)x$i} say "@ARGV -&gt; <span class="h-card" translate="no"><a href="https://mstdn.social/@O" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>O</span></a></span>"<br>' 3 1 3 2<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 326 Task 1: Day of the Year<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -E '<br><span class="h-card" translate="no"><a href="https://mstdn.social/@s" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>s</span></a></span>=(0,0,31,59,90,120,151,181,212,243,273,304,334);for(@ARGV){($y,$m,$d)=split "-";<br>say "$_ -&gt; ", $s[$m]+$d+($m&gt;2&amp;&amp;$_%4==0&amp;&amp;($_%100||$_%400==0)?1:0);}<br>' 2025-02-02 2025-04-10 2025-09-07<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 324 2D Array and Total XOR <a href="https://wlmb.github.io/2025/06/02/PWC324/" rel="nofollow noopener" translate="no" target="_blank"><span class="invisible">https://</span><span class="ellipsis">wlmb.github.io/2025/06/02/PWC3</span><span class="invisible">24/</span></a><br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a></p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 324 Task 2: Total XOR<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -MList::Util=reduce,sum -E '<br>sub f(<span class="h-card" translate="no"><a href="https://mstdn.social/@x" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>x</span></a></span>){<span class="h-card" translate="no"><a href="https://mstdn.social/@x" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>x</span></a></span>?(f(<span class="h-card" translate="no"><a href="https://mstdn.social/@x" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>x</span></a></span>[1..@x-1]), map {$x[0]^$_}f(<span class="h-card" translate="no"><a href="https://mstdn.social/@x" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>x</span></a></span>[1..@x-1])):(0)}say "@ARGV -&gt; ",sum f(@ARGV)<br>' 3 4 5 6 7 8<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 324 Task 1: 2D Array<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -MPDL -E '<br>($r, $c, <span class="h-card" translate="no"><a href="https://mstdn.social/@i" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>i</span></a></span>)=@ARGV; say "r=$r, c=$c, array=", pdl(<span class="h-card" translate="no"><a href="https://mstdn.social/@i" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>i</span></a></span>), "-&gt;", pdl(<span class="h-card" translate="no"><a href="https://mstdn.social/@i" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>i</span></a></span>)-&gt;reshape($c,$r)<br>' 2 2 1 2 3 4<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 322 String Format and Rank Array <a href="https://wlmb.github.io/2025/05/19/PWC322/" rel="nofollow noopener" translate="no" target="_blank"><span class="invisible">https://</span><span class="ellipsis">wlmb.github.io/2025/05/19/PWC3</span><span class="invisible">22/</span></a><br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a></p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 322 Task 2: Rank Array<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -MList::Util=uniq -E '<br>$r{$_}=++$i for sort {$a&lt;=&gt;$b} uniq @ARGV; say "@ARGV -&gt; <span class="h-card" translate="no"><a href="https://mstdn.social/@r" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>r</span></a></span>{@ARGV}"<br>' 5 1 1 4 3<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 322 Task 1: String Format<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -E '<br>($s,$i)=@ARGV;($o=reverse$s)=~tr/-//d;$o=~s/(.{$i})/$1-/g;$o=~s/-$//;$o=reverse$o;say"$s, $i -&gt; $o"<br>' -- -A-B-CD-E 4<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 321 Distinct Average and Backspace Compare <a href="https://wlmb.github.io/2025/05/12/PWC321/" rel="nofollow noopener" translate="no" target="_blank"><span class="invisible">https://</span><span class="ellipsis">wlmb.github.io/2025/05/12/PWC3</span><span class="invisible">21/</span></a><br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a></p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 321 Task 2: Backspace Compare<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -E '<br><span class="h-card" translate="no"><a href="https://mstdn.social/@x" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>x</span></a></span>=@ARGV;($x, $y)=map{1while s/[^\#]\#//g;$_}<span class="h-card" translate="no"><a href="https://mstdn.social/@x" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>x</span></a></span>;say "@ARGV -&gt; ",$x eq $y?"True":"False";<br>' 'ab##' 'a#b#'<br>```</p>
wlmb<p><a href="https://mstdn.social/tags/Perl" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>Perl</span></a> @PerlWChallenge 321 Task 1: Distinct Average<br><a href="https://mstdn.social/tags/noxp" class="mention hashtag" rel="nofollow noopener" target="_blank">#<span>noxp</span></a><br>```<br>perl -MList::Util=uniq -E '<br><span class="h-card" translate="no"><a href="https://mstdn.social/@x" class="u-url mention" rel="nofollow noopener" target="_blank">@<span>x</span></a></span>=sort {$a&lt;=&gt;$b}@ARGV;say "@ARGV -&gt; ", 0+uniq map {$x[$_]+$x[-1-$_]}0..@ARGV/2-1;<br>' 1 2 4 3 5 6<br>```</p>