home.social

#noxp — Public Fediverse posts

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

  1. Padraig 🌈 @[email protected] ·

    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

    #noxp
  2. Padraig 🌈 @[email protected] ·

    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

    #noxp
  3. Padraig 🌈 @[email protected] ·

    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

    #noxp
  4. Padraig 🌈 @[email protected] ·

    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

    #noxp
  5. Padraig 🌈 @[email protected] ·

    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

    #noxp
  6. wlmb @[email protected] ·

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

    #perl #noxp
  7. wlmb @[email protected] ·

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

    #perl #noxp
  8. wlmb @wlmb ·

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

    #perl #noxp
  9. wlmb @[email protected] ·

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

    #perl #noxp
  10. wlmb @[email protected] ·

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

    #noxp #perl
  11. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  12. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  13. wlmb @wlmb ·
    CW: Perl Weekly Challenge 382T2

    @PerlWChallenge 382 Task 2: Replace Question Mark

    ```
    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
    ```

    #perl #noxp
  14. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  15. wlmb @[email protected] ·
    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
    ```

    #noxp #perl
  16. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  17. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  18. wlmb @wlmb ·
    CW: Perl Weekly Challenge 382T1

    @PerlWChallenge 382 Task 1: Hamiltonian Cycle

    ```
    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
    ```

    #perl #noxp
  19. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  20. wlmb @[email protected] ·
    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
    ```

    #noxp #perl
  21. wlmb @[email protected] ·

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

    #perl #noxp
  22. wlmb @[email protected] ·

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

    #perl #noxp
  23. wlmb @wlmb ·

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

    #perl #noxp
  24. wlmb @[email protected] ·

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

    #perl #noxp
  25. wlmb @[email protected] ·

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

    #noxp #perl
  26. wlmb @[email protected] ·
    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]"
    ```

    #perl #noxp
  27. wlmb @[email protected] ·
    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]"
    ```

    #perl #noxp
  28. wlmb @wlmb ·
    CW: Perl Weekly Challenge 381T2

    @PerlWChallenge 381 Task 2: Smaller Greater Element

    ```
    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]"
    ```

    #perl #noxp
  29. wlmb @[email protected] ·
    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]"
    ```

    #perl #noxp
  30. wlmb @[email protected] ·
    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]"
    ```

    #noxp #perl
  31. wlmb @[email protected] ·
    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] ]"
    ```

    #perl #noxp
  32. wlmb @[email protected] ·
    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] ]"
    ```

    #perl #noxp
  33. wlmb @wlmb ·
    CW: Perl Weekly Challenge 381T1

    @PerlWChallenge 381 Task 1: Same Row Column

    ```
    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] ]"
    ```

    #perl #noxp
  34. wlmb @[email protected] ·
    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] ]"
    ```

    #perl #noxp
  35. wlmb @[email protected] ·
    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] ]"
    ```

    #noxp #perl
  36. wlmb @[email protected] ·

    #Perl @PerlWChallenge 380 Sum of Frequencies and Reverse Degree wlmb.github.io/2026/06/29/PWC3
    #noxp

    #perl #noxp
  37. wlmb @[email protected] ·

    #Perl @PerlWChallenge 380 Sum of Frequencies and Reverse Degree wlmb.github.io/2026/06/29/PWC3
    #noxp

    #perl #noxp
  38. wlmb @wlmb ·

    @PerlWChallenge 380 Sum of Frequencies and Reverse Degree wlmb.github.io/2026/06/29/PWC3

    #perl #noxp
  39. wlmb @[email protected] ·

    #Perl @PerlWChallenge 380 Sum of Frequencies and Reverse Degree wlmb.github.io/2026/06/29/PWC3
    #noxp

    #perl #noxp
  40. wlmb @[email protected] ·

    #Perl @PerlWChallenge 380 Sum of Frequencies and Reverse Degree wlmb.github.io/2026/06/29/PWC3
    #noxp

    #noxp #perl
  41. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  42. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  43. wlmb @wlmb ·
    CW: Perl Weekly Challenge 380T2

    @PerlWChallenge 380 Task 2: Reverse Degree

    ```
    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
    ```

    #perl #noxp
  44. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  45. wlmb @[email protected] ·
    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
    ```

    #noxp #perl
  46. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  47. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  48. wlmb @wlmb ·
    CW: Perl Weekly Challenge 380T1

    @PerlWChallenge 380 Task 1: Sum of Frequencies

    ```
    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
    ```

    #perl #noxp
  49. wlmb @[email protected] ·
    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
    ```

    #perl #noxp
  50. wlmb @[email protected] ·
    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
    ```

    #noxp #perl