home.social

#noxp — Public Fediverse posts

Live and recent posts from across the Fediverse tagged #noxp, aggregated by home.social.

  1. Talk about a delay.
    Over 3 months for a 'Group' account to Boost a post from my own site/instance.

    Perhaps lack of knowledge here, but do you normally get a Boost from a Group account for your own post? I assume you do.

    I wonder if there is a backlog or something that I am not aware of. #noxp

  2. Talk about a delay.
    Over 3 months for a 'Group' account to Boost a post from my own site/instance.

    Perhaps lack of knowledge here, but do you normally get a Boost from a Group account for your own post? I assume you do.

    I wonder if there is a backlog or something that I am not aware of. #noxp

  3. #Perl @PerlWChallenge 382 Hamiltonian Cycle and Replace Question Mark wlmb.github.io/2026/07/13/PWC3
    #noxp

  4. #Perl @PerlWChallenge 382 Hamiltonian Cycle and Replace Question Mark wlmb.github.io/2026/07/13/PWC3
    #noxp

  5. CW: Perl Weekly Challenge 382T2

    #Perl @PerlWChallenge 382 Task 2: Replace Question Mark
    #noxp
    ```
    perl -E '
    for(@ARGV){say "$_ -> ", join " ", f($_);}sub f($s){for($s){
    return ($_) unless /\?/;return (f(s/\?/0/r), f(s/\?/1/r));}}
    ' 01??0 101 ??? 1?10 1?1?0
    ```

  6. CW: Perl Weekly Challenge 382T2

    #Perl @PerlWChallenge 382 Task 2: Replace Question Mark
    #noxp
    ```
    perl -E '
    for(@ARGV){say "$_ -> ", join " ", f($_);}sub f($s){for($s){
    return ($_) unless /\?/;return (f(s/\?/0/r), f(s/\?/1/r));}}
    ' 01??0 101 ??? 1?10 1?1?0
    ```

  7. CW: Perl Weekly Challenge 382T1

    #Perl @PerlWChallenge 382 Task 1: Hamiltonian Cycle
    #noxp
    ```
    perl -E '
    for(@ARGV){say"$_ -> @{f([1],[2..$_])}"}sub f($i, $r){my$l=$i->[-1];@$r||return
    g($l+$i->[0])?$i:0;for(0..@$r-1){g($l+$r->[$_])||next;$o=f([@$i,$r->[$_]],
    [@$r[0..$_-1,$_+1..@$r-1]]);return $o if $o;}0;}sub g($x){$x==floor(sqrt($x))**2}
    ' 32 15 34
    ```

  8. CW: Perl Weekly Challenge 382T1

    #Perl @PerlWChallenge 382 Task 1: Hamiltonian Cycle
    #noxp
    ```
    perl -E '
    for(@ARGV){say"$_ -> @{f([1],[2..$_])}"}sub f($i, $r){my$l=$i->[-1];@$r||return
    g($l+$i->[0])?$i:0;for(0..@$r-1){g($l+$r->[$_])||next;$o=f([@$i,$r->[$_]],
    [@$r[0..$_-1,$_+1..@$r-1]]);return $o if $o;}0;}sub g($x){$x==floor(sqrt($x))**2}
    ' 32 15 34
    ```

  9. #Perl @PerlWChallenge 381 Same Row Column and Smaller Greater Element wlmb.github.io/2026/07/06/PWC3
    #noxp

  10. #Perl @PerlWChallenge 381 Same Row Column and Smaller Greater Element wlmb.github.io/2026/07/06/PWC3
    #noxp

  11. CW: Perl Weekly Challenge 381T2

    #Perl @PerlWChallenge 381 Task 2: Smaller Greater Element
    #noxp
    ```
    perl -MPDL -E '
    for(@ARGV){$p=pdl$_;($x,$y)=$p->minmax;say "$_ -> ",$p->where(($p!=$x)&($p!=$y))->nelem}
    ' "[2 4]" "[1 1 1 1]" "[1 1 4 8 12 12]" "[3 6 6 9]" "[0 -5 10 -2 4]"
    ```

  12. CW: Perl Weekly Challenge 381T2

    #Perl @PerlWChallenge 381 Task 2: Smaller Greater Element
    #noxp
    ```
    perl -MPDL -E '
    for(@ARGV){$p=pdl$_;($x,$y)=$p->minmax;say "$_ -> ",$p->where(($p!=$x)&($p!=$y))->nelem}
    ' "[2 4]" "[1 1 1 1]" "[1 1 4 8 12 12]" "[3 6 6 9]" "[0 -5 10 -2 4]"
    ```

  13. CW: Perl Weekly Challenge 381T1

    #Perl @PerlWChallenge 381 Task 1: Same Row Column
    #noxp
    ```
    perl -MPDL -E '
    for(@ARGV){$m=pdl$_;$s=1+sequence($m->dim(0));say "$m-> ",
    pdl(map{($_->qsort==$s)->all}$m, $m->transpose)->all?"T":"F";}
    ' "[ [1 2 3 4][2 3 4 1][3 4 1 2][4 1 2 3] ]" \
    "[ [1] ]" \
    "[ [1 2 5][5 1 2][2 5 1] ]" \
    "[ [1 2 3][1 2 3][1 2 3] ]" \
    "[ [1 2 3][3 1 2][3 2 1] ]"
    ```

  14. CW: Perl Weekly Challenge 381T1

    #Perl @PerlWChallenge 381 Task 1: Same Row Column
    #noxp
    ```
    perl -MPDL -E '
    for(@ARGV){$m=pdl$_;$s=1+sequence($m->dim(0));say "$m-> ",
    pdl(map{($_->qsort==$s)->all}$m, $m->transpose)->all?"T":"F";}
    ' "[ [1 2 3 4][2 3 4 1][3 4 1 2][4 1 2 3] ]" \
    "[ [1] ]" \
    "[ [1 2 5][5 1 2][2 5 1] ]" \
    "[ [1 2 3][1 2 3][1 2 3] ]" \
    "[ [1 2 3][3 1 2][3 2 1] ]"
    ```

  15. CW: Perl Weekly Challenge 380T2

    #Perl @PerlWChallenge 380 Task 2: Reverse Degree
    #noxp
    ```
    perl -MList::Util=sum -E '
    $z=ord("z")+1;
    for(@ARGV){my$p;say"$_ -> ", sum map{++$p*($z-ord $_)}split"";}
    ' z a bbc racecar zyx
    ```

  16. CW: Perl Weekly Challenge 380T2

    #Perl @PerlWChallenge 380 Task 2: Reverse Degree
    #noxp
    ```
    perl -MList::Util=sum -E '
    $z=ord("z")+1;
    for(@ARGV){my$p;say"$_ -> ", sum map{++$p*($z-ord $_)}split"";}
    ' z a bbc racecar zyx
    ```

  17. CW: Perl Weekly Challenge 380T1

    #Perl @PerlWChallenge 380 Task 1: Sum of Frequencies
    #noxp
    ```
    perl -MList::Util=max -E '
    @v=qw(a e i o u);for(@ARGV){my%c;$c{$_}++for split"",$_;
    $v=max @c{@v};delete@c{@v}; say"$_ -> ",$v+max values%c;}
    ' banana teestett aeiouuaa rhythm x
    ```

  18. CW: Perl Weekly Challenge 380T1

    #Perl @PerlWChallenge 380 Task 1: Sum of Frequencies
    #noxp
    ```
    perl -MList::Util=max -E '
    @v=qw(a e i o u);for(@ARGV){my%c;$c{$_}++for split"",$_;
    $v=max @c{@v};delete@c{@v}; say"$_ -> ",$v+max values%c;}
    ' banana teestett aeiouuaa rhythm x
    ```

  19. CW: Perl Weekly Challenge 379 T2

    #Perl @PerlWChallenge 379 Task 2: Armstrong Number
    #noxp
    ```
    perl -MList::Util=sum -E '
    for my($t,$l)(@ARGV){my@r;my@d=(-1);for(0..$l){for(0..@d){last unless ++$d[$_]
    ==$t;$d[$_]=0;}push@r,$_ if (sum map{$_**@d}@d)==$_}say "$t, $l -> @r";}
    ' 10 1000 7 1000 16 1000
    ```

  20. CW: Perl Weekly Challenge 379 T2

    #Perl @PerlWChallenge 379 Task 2: Armstrong Number
    #noxp
    ```
    perl -MList::Util=sum -E '
    for my($t,$l)(@ARGV){my@r;my@d=(-1);for(0..$l){for(0..@d){last unless ++$d[$_]
    ==$t;$d[$_]=0;}push@r,$_ if (sum map{$_**@d}@d)==$_}say "$t, $l -> @r";}
    ' 10 1000 7 1000 16 1000
    ```

  21. CW: Perl Weekly Challenge 379 T1

    #Perl @PerlWChallenge 379 Task 1: Reverse String
    #noxp
    ```
    perl -E '
    for(@ARGV){my @x; unshift @x,$_ for split "";say "\"$_\" -> \"", @x,"\""}
    ' "" "reverse the given string" "Perl is Awesome" "v1.0.0-Beta!" "racecar"
    ```

  22. CW: Perl Weekly Challenge 379 T1

    #Perl @PerlWChallenge 379 Task 1: Reverse String
    #noxp
    ```
    perl -E '
    for(@ARGV){my @x; unshift @x,$_ for split "";say "\"$_\" -> \"", @x,"\""}
    ' "" "reverse the given string" "Perl is Awesome" "v1.0.0-Beta!" "racecar"
    ```

  23. CW: Perl Weekly Challenge 378T2

    #Perl @PerlWChallenge 378 Task 2: Sum of Words
    #noxp
    ```
    perl -E '
    for(@ARGV){@x=map {tr/a-j/0-9/r} split " "; say "$_ -> ", $x[2]==$x[0]+$x[1]?"T":"F"}
    ' "acb cba cdb" "aab aac ad" "bc je jg" \
    "a aaaa aa" "c d h" "gfi hbf bdhd"
    ```

  24. CW: Perl Weekly Challenge 378T2

    #Perl @PerlWChallenge 378 Task 2: Sum of Words
    #noxp
    ```
    perl -E '
    for(@ARGV){@x=map {tr/a-j/0-9/r} split " "; say "$_ -> ", $x[2]==$x[0]+$x[1]?"T":"F"}
    ' "acb cba cdb" "aab aac ad" "bc je jg" \
    "a aaaa aa" "c d h" "gfi hbf bdhd"
    ```

  25. CW: Perl Weekly Challenge 378T1

    #Perl @PerlWChallenge 378 Task 1: Second Largest Digit
    #noxp
    ```
    perl -MList::Util=uniq -E '
    for(@ARGV){say "$_ -> ", (sort {$b<=>$a}uniq grep{/[0-9]/} split "")[1]//-1}
    ' aaaaa77777 abcde 9zero8eight7seven9 xyz9876543210 4abc4def2ghi8jkl2
    ```

  26. CW: Perl Weekly Challenge 378T1

    #Perl @PerlWChallenge 378 Task 1: Second Largest Digit
    #noxp
    ```
    perl -MList::Util=uniq -E '
    for(@ARGV){say "$_ -> ", (sort {$b<=>$a}uniq grep{/[0-9]/} split "")[1]//-1}
    ' aaaaa77777 abcde 9zero8eight7seven9 xyz9876543210 4abc4def2ghi8jkl2
    ```

  27. CW: Solution to PWC377T2

    #Perl @PerlWChallenge 377 Task 2: Prefix Suffix
    #noxp
    ```
    perl -E '
    for(@ARGV){my@s=split" ";my $c=0;for my $x(@s){/^$x/&&/$x$/&&++$c for@s};say"$_ -> ",$c - @s;}
    ' "a aba ababa aa" "pa papa ma mama" "abao ab" "abab abab" \
    "ab abab ababab" "abc def ghij"
    ```

  28. CW: Solution to PWC377T2

    #Perl @PerlWChallenge 377 Task 2: Prefix Suffix
    #noxp
    ```
    perl -E '
    for(@ARGV){my@s=split" ";my $c=0;for my $x(@s){/^$x/&&/$x$/&&++$c for@s};say"$_ -> ",$c - @s;}
    ' "a aba ababa aa" "pa papa ma mama" "abao ab" "abab abab" \
    "ab abab ababab" "abc def ghij"
    ```

  29. CW: Solution to PWC377T1

    #Perl @PerlWChallenge 377 Task 1: Reverse Existence
    #noxp
    ```
    perl -E '
    L:for(@ARGV){$s=$_;$s=~/$_/&&(say("$s -> T"),next L)for(map{"".reverse $_}
    $s=~/(?=(..))/g);say "$s -> F";}
    ' abcba racecar abcd banana hello
    ```

  30. CW: Solution to PWC377T1

    #Perl @PerlWChallenge 377 Task 1: Reverse Existence
    #noxp
    ```
    perl -E '
    L:for(@ARGV){$s=$_;$s=~/$_/&&(say("$s -> T"),next L)for(map{"".reverse $_}
    $s=~/(?=(..))/g);say "$s -> F";}
    ' abcba racecar abcd banana hello
    ```

  31. CW: Commentary about Qayyum Balogun murder (-)

    The comments on #twitter and #facebook on news stories about the murder of Qayyum Balogun is quite shocking.

    No moderation from these 'news' pages, and no moderation from the platforms themselves.
    Why are they not being held accountable for the content on their platform?!

    And the 'comments' are from people who are not even from Ireland...

    #noxp

  32. CW: Commentary about Qayyum Balogun murder (-)

    The comments on #twitter and #facebook on news stories about the murder of Qayyum Balogun is quite shocking.

    No moderation from these 'news' pages, and no moderation from the platforms themselves.
    Why are they not being held accountable for the content on their platform?!

    And the 'comments' are from people who are not even from Ireland...

    #noxp

  33. CW: PWC376 T1

    #Perl @PerlWChallenge 376 Task 1: Chessboard Squares
    #noxp
    ```
    perl -E '
    for my($p,$q)(@ARGV){@c=map{split""}($q,$p);@c[0,2]=map{ord}@c[0,2];say "$p $q -> ",
    ($c[0]-$c[2]+$c[1]-$c[3])%2?"F":"T"}
    ' a7 f4 c1 e8 b5 h2 f3 h1 a1 g8
    ```

  34. CW: PWC376 T1

    #Perl @PerlWChallenge 376 Task 1: Chessboard Squares
    #noxp
    ```
    perl -E '
    for my($p,$q)(@ARGV){@c=map{split""}($q,$p);@c[0,2]=map{ord}@c[0,2];say "$p $q -> ",
    ($c[0]-$c[2]+$c[1]-$c[3])%2?"F":"T"}
    ' a7 f4 c1 e8 b5 h2 f3 h1 a1 g8
    ```

  35. CW: Solution to PWC 375 T2

    #Perl @PerlWChallenge 375 Task 2: Find K-Beauty
    #noxp
    ```
    perl -E '
    for my($n, $k)(@ARGV){say"num=$n k=$k -> ", 0+grep{$n%$_==0}$n=~/(?=(\d{$k}))/g;}
    ' 240 2 1020 2 444 2 17 2 123 1
    ```

  36. CW: Solution to PWC 375 T2

    #Perl @PerlWChallenge 375 Task 2: Find K-Beauty
    #noxp
    ```
    perl -E '
    for my($n, $k)(@ARGV){say"num=$n k=$k -> ", 0+grep{$n%$_==0}$n=~/(?=(\d{$k}))/g;}
    ' 240 2 1020 2 444 2 17 2 123 1
    ```

  37. CW: Solution to PWC375T1

    #Perl @PerlWChallenge 375 Task 1: Single Common Word
    #noxp
    ```
    perl -E '
    for my($x,$y)(@ARGV){my(%c,%d);$c{$_}++for split" ",$x;$d{$_}++for
    split" ",$y;say"\"$x\", \"$y\" -> ",0+grep{$c{$_}==$d{$_}==1}keys%c;}
    ' "apple banana cherry" "banana cherry date" "a ab abc" "a a ab abc" \
    "orange lemon" "grape melon" "test test demo" "test demo demo" \
    "Hello world" "hello world"
    ```

  38. CW: Solution to PWC375T1

    #Perl @PerlWChallenge 375 Task 1: Single Common Word
    #noxp
    ```
    perl -E '
    for my($x,$y)(@ARGV){my(%c,%d);$c{$_}++for split" ",$x;$d{$_}++for
    split" ",$y;say"\"$x\", \"$y\" -> ",0+grep{$c{$_}==$d{$_}==1}keys%c;}
    ' "apple banana cherry" "banana cherry date" "a ab abc" "a a ab abc" \
    "orange lemon" "grape melon" "test test demo" "test demo demo" \
    "Hello world" "hello world"
    ```