home.social

#noxp — Public Fediverse posts

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

fetched live
  1. @PerlWChallenge 388 Dyck Words and Secret Santa wlmb.github.io/2026/08/24/PWC3

  2. CW: Perl Weekly Challenge 388T2

    @PerlWChallenge 388 Task 2: Secret Santa

    ```
    perl -MAlgorithm::Combinatorics=derangements -E '
    say "$_ -> ", $x=()=derangements([1..$_]) for @ARGV;
    ' 1 2 3 4 5
    ```

  3. CW: Perl Weekly Challenge 388T2

    #Perl @PerlWChallenge 388 Task 2: Secret Santa
    #noxp
    ```
    perl -MAlgorithm::Combinatorics=derangements -E '
    say "$_ -> ", $x=()=derangements([1..$_]) for @ARGV;
    ' 1 2 3 4 5
    ```

  4. CW: Perl Weekly Challenge 388T2

    #Perl @PerlWChallenge 388 Task 2: Secret Santa
    #noxp
    ```
    perl -MAlgorithm::Combinatorics=derangements -E '
    say "$_ -> ", $x=()=derangements([1..$_]) for @ARGV;
    ' 1 2 3 4 5
    ```

  5. CW: Perl Weekly Challenge 388T2

    #Perl @PerlWChallenge 388 Task 2: Secret Santa
    #noxp
    ```
    perl -MAlgorithm::Combinatorics=derangements -E '
    say "$_ -> ", $x=()=derangements([1..$_]) for @ARGV;
    ' 1 2 3 4 5
    ```

  6. CW: Perl Weekly Challenge 388T2

    #Perl @PerlWChallenge 388 Task 2: Secret Santa
    #noxp
    ```
    perl -MAlgorithm::Combinatorics=derangements -E '
    say "$_ -> ", $x=()=derangements([1..$_]) for @ARGV;
    ' 1 2 3 4 5
    ```

  7. CW: Perl Weekly Challenge 388T1

    @PerlWChallenge 388 Task 1: Dyck Words

    ```
    perl -MMemoize -E '
    memoize "f";for(@ARGV){say"$_ -> ", join " ",f($_,0)}sub f($n,$m){return()if$m<0||$m>$n;
    return("")if$n==0;--$n;return (map{$_."UD"}f($n,0)),(map{$_."DD"}f($n,1))if$m==0;
    (map{$_."UU"}f($n,$m-1)),(map{$_."UD",$_."DU"}f($n,$m)),map{$_."DD"}f($n,$m+1)}
    ' 1 2 3 0 4
    ```

  8. CW: Perl Weekly Challenge 388T1

    #Perl @PerlWChallenge 388 Task 1: Dyck Words
    #noxp
    ```
    perl -MMemoize -E '
    memoize "f";for(@ARGV){say"$_ -> ", join " ",f($_,0)}sub f($n,$m){return()if$m<0||$m>$n;
    return("")if$n==0;--$n;return (map{$_."UD"}f($n,0)),(map{$_."DD"}f($n,1))if$m==0;
    (map{$_."UU"}f($n,$m-1)),(map{$_."UD",$_."DU"}f($n,$m)),map{$_."DD"}f($n,$m+1)}
    ' 1 2 3 0 4
    ```

  9. CW: Perl Weekly Challenge 388T1

    #Perl @PerlWChallenge 388 Task 1: Dyck Words
    #noxp
    ```
    perl -MMemoize -E '
    memoize "f";for(@ARGV){say"$_ -> ", join " ",f($_,0)}sub f($n,$m){return()if$m<0||$m>$n;
    return("")if$n==0;--$n;return (map{$_."UD"}f($n,0)),(map{$_."DD"}f($n,1))if$m==0;
    (map{$_."UU"}f($n,$m-1)),(map{$_."UD",$_."DU"}f($n,$m)),map{$_."DD"}f($n,$m+1)}
    ' 1 2 3 0 4
    ```

  10. CW: Perl Weekly Challenge 388T1

    #Perl @PerlWChallenge 388 Task 1: Dyck Words
    #noxp
    ```
    perl -MMemoize -E '
    memoize "f";for(@ARGV){say"$_ -> ", join " ",f($_,0)}sub f($n,$m){return()if$m<0||$m>$n;
    return("")if$n==0;--$n;return (map{$_."UD"}f($n,0)),(map{$_."DD"}f($n,1))if$m==0;
    (map{$_."UU"}f($n,$m-1)),(map{$_."UD",$_."DU"}f($n,$m)),map{$_."DD"}f($n,$m+1)}
    ' 1 2 3 0 4
    ```

  11. CW: Perl Weekly Challenge 388T1

    #Perl @PerlWChallenge 388 Task 1: Dyck Words
    #noxp
    ```
    perl -MMemoize -E '
    memoize "f";for(@ARGV){say"$_ -> ", join " ",f($_,0)}sub f($n,$m){return()if$m<0||$m>$n;
    return("")if$n==0;--$n;return (map{$_."UD"}f($n,0)),(map{$_."DD"}f($n,1))if$m==0;
    (map{$_."UU"}f($n,$m-1)),(map{$_."UD",$_."DU"}f($n,$m)),map{$_."DD"}f($n,$m+1)}
    ' 1 2 3 0 4
    ```

  12. So were now onto bitching about TSC being a requirement on your CPU in order to boot a Linux-based PC

    neowin.net/news/linux-finally-

    Ok... so what CPU's are affected?

    *searching online*
    Oh, anything older than the original Intel Pentium from 1993!

    The 'sane' response from certain people on Fedi:

    #noxp

  13. So were now onto bitching about TSC being a requirement on your CPU in order to boot a Linux-based PC

    neowin.net/news/linux-finally-

    Ok... so what CPU's are affected?

    *searching online*
    Oh, anything older than the original Intel Pentium from 1993!

    The 'sane' response from certain people on Fedi:

    #noxp

  14. So were now onto bitching about TSC being a requirement on your CPU in order to boot a Linux-based PC

    neowin.net/news/linux-finally-

    Ok... so what CPU's are affected?

    *searching online*
    Oh, anything older than the original Intel Pentium from 1993!

    The 'sane' response from certain people on Fedi:

    #noxp

  15. So were now onto bitching about TSC being a requirement on your CPU in order to boot a Linux-based PC

    neowin.net/news/linux-finally-

    Ok... so what CPU's are affected?

    *searching online*
    Oh, anything older than the original Intel Pentium from 1993!

    The 'sane' response from certain people on Fedi:

    #noxp

  16. So were now onto bitching about TSC being a requirement on your CPU in order to boot a Linux-based PC

    neowin.net/news/linux-finally-

    Ok... so what CPU's are affected?

    *searching online*
    Oh, anything older than the original Intel Pentium from 1993!

    The 'sane' response from certain people on Fedi:

    #noxp

  17. @PerlWChallenge 387 Rearrange Binary String and Chemical Formula wlmb.github.io/2026/08/17/PWC3

  18. #Perl @PerlWChallenge 387 Rearrange Binary String and Chemical Formula wlmb.github.io/2026/08/17/PWC3
    #noxp

  19. #Perl @PerlWChallenge 387 Rearrange Binary String and Chemical Formula wlmb.github.io/2026/08/17/PWC3
    #noxp

  20. #Perl @PerlWChallenge 387 Rearrange Binary String and Chemical Formula wlmb.github.io/2026/08/17/PWC3
    #noxp

  21. #Perl @PerlWChallenge 387 Rearrange Binary String and Chemical Formula wlmb.github.io/2026/08/17/PWC3
    #noxp

  22. CW: Perl Weekly Challenge 387T1

    @PerlWChallenge 387 Task 1: Reverse Base

    ```
    perl -E '
    for(@ARGV){$i=$_; $c=0; ++$c while s/01/10/g; say "$i -> $c"}
    ' 111000 00011 01011 010101 00001
    ```

  23. CW: Perl Weekly Challenge 387T1

    #Perl @PerlWChallenge 387 Task 1: Reverse Base
    #noxp
    ```
    perl -E '
    for(@ARGV){$i=$_; $c=0; ++$c while s/01/10/g; say "$i -> $c"}
    ' 111000 00011 01011 010101 00001
    ```

  24. CW: Perl Weekly Challenge 387T1

    #Perl @PerlWChallenge 387 Task 1: Reverse Base
    #noxp
    ```
    perl -E '
    for(@ARGV){$i=$_; $c=0; ++$c while s/01/10/g; say "$i -> $c"}
    ' 111000 00011 01011 010101 00001
    ```

  25. CW: Perl Weekly Challenge 387T1

    #Perl @PerlWChallenge 387 Task 1: Reverse Base
    #noxp
    ```
    perl -E '
    for(@ARGV){$i=$_; $c=0; ++$c while s/01/10/g; say "$i -> $c"}
    ' 111000 00011 01011 010101 00001
    ```

  26. CW: Perl Weekly Challenge 387T1

    #Perl @PerlWChallenge 387 Task 1: Reverse Base
    #noxp
    ```
    perl -E '
    for(@ARGV){$i=$_; $c=0; ++$c while s/01/10/g; say "$i -> $c"}
    ' 111000 00011 01011 010101 00001
    ```

  27. Cavan GAA posted last night that they have been blocked from posting on #Xwitter cause of ‘spam posting’

    They are live posting about a match that is on ftlog!!!

    I kindly told them about #Mastodon and #Fediverse and steered them in the direction of either their own server or perhaps joining a server like m.ie

    Situation is being monitored 👀

    #mastodaoine #noxp

  28. Cavan GAA posted last night that they have been blocked from posting on #Xwitter cause of ‘spam posting’

    They are live posting about a match that is on ftlog!!!

    I kindly told them about #Mastodon and #Fediverse and steered them in the direction of either their own server or perhaps joining a server like m.ie

    Situation is being monitored 👀

    #mastodaoine #noxp

  29. Cavan GAA posted last night that they have been blocked from posting on #Xwitter cause of ‘spam posting’

    They are live posting about a match that is on ftlog!!!

    I kindly told them about #Mastodon and #Fediverse and steered them in the direction of either their own server or perhaps joining a server like m.ie

    Situation is being monitored 👀

    #mastodaoine #noxp

  30. Cavan GAA posted last night that they have been blocked from posting on #Xwitter cause of ‘spam posting’

    They are live posting about a match that is on ftlog!!!

    I kindly told them about #Mastodon and #Fediverse and steered them in the direction of either their own server or perhaps joining a server like m.ie

    Situation is being monitored 👀

    #mastodaoine #noxp

  31. Cavan GAA posted last night that they have been blocked from posting on #Xwitter cause of ‘spam posting’

    They are live posting about a match that is on ftlog!!!

    I kindly told them about #Mastodon and #Fediverse and steered them in the direction of either their own server or perhaps joining a server like m.ie

    Situation is being monitored 👀

    #mastodaoine #noxp

  32. If this new 5G router proves to be anyway useful, I might have to switch my mobile phone from 48 to Gomo or something in order to get 5G at the house, cause at the moment, I can't. #noxp

  33. If this new 5G router proves to be anyway useful, I might have to switch my mobile phone from 48 to Gomo or something in order to get 5G at the house, cause at the moment, I can't. #noxp

  34. If this new 5G router proves to be anyway useful, I might have to switch my mobile phone from 48 to Gomo or something in order to get 5G at the house, cause at the moment, I can't. #noxp

  35. If this new 5G router proves to be anyway useful, I might have to switch my mobile phone from 48 to Gomo or something in order to get 5G at the house, cause at the moment, I can't. #noxp

  36. If this new 5G router proves to be anyway useful, I might have to switch my mobile phone from 48 to Gomo or something in order to get 5G at the house, cause at the moment, I can't. #noxp

  37. @PerlWChallenge 386 Reverse Base and Rational Numbers wlmb.github.io/2026/08/10/PWC3

  38. CW: Perl Weekly Challenge 386 T2

    @PerlWChallenge 386 Task 2: Rational Numbers

    ```
    perl -E '
    sub f(@x){map{/(\d*).(\d*)(\((\d+)\))?/;($n,$m)=map{length}$2,$4;[(10**$m-1)*
    (10**$n*$1+$2)+$4, 10**$n*(10**$m-1)]}@x}for my($x,$y)(@ARGV){($p,$q)=f($x,$y);
    say "$x, $y -> ", $p->[0]*$q->[1]==$p->[1]*$q->[0]?"T":"F";}
    ' "0.(12)" "0.(121)" "0.1(23)" "0.12(32)" "0.1(234)" "0.12(342)" \
    "12.99(99)" "13." "0.(123)" "0.1(231)"
    ```

  39. CW: Perl Weekly Challenge 386 T2

    #Perl @PerlWChallenge 386 Task 2: Rational Numbers
    #noxp
    ```
    perl -E '
    sub f(@x){map{/(\d*).(\d*)(\((\d+)\))?/;($n,$m)=map{length}$2,$4;[(10**$m-1)*
    (10**$n*$1+$2)+$4, 10**$n*(10**$m-1)]}@x}for my($x,$y)(@ARGV){($p,$q)=f($x,$y);
    say "$x, $y -> ", $p->[0]*$q->[1]==$p->[1]*$q->[0]?"T":"F";}
    ' "0.(12)" "0.(121)" "0.1(23)" "0.12(32)" "0.1(234)" "0.12(342)" \
    "12.99(99)" "13." "0.(123)" "0.1(231)"
    ```

  40. CW: Perl Weekly Challenge 386 T2

    #Perl @PerlWChallenge 386 Task 2: Rational Numbers
    #noxp
    ```
    perl -E '
    sub f(@x){map{/(\d*).(\d*)(\((\d+)\))?/;($n,$m)=map{length}$2,$4;[(10**$m-1)*
    (10**$n*$1+$2)+$4, 10**$n*(10**$m-1)]}@x}for my($x,$y)(@ARGV){($p,$q)=f($x,$y);
    say "$x, $y -> ", $p->[0]*$q->[1]==$p->[1]*$q->[0]?"T":"F";}
    ' "0.(12)" "0.(121)" "0.1(23)" "0.12(32)" "0.1(234)" "0.12(342)" \
    "12.99(99)" "13." "0.(123)" "0.1(231)"
    ```

  41. CW: Perl Weekly Challenge 386 T2

    #Perl @PerlWChallenge 386 Task 2: Rational Numbers
    #noxp
    ```
    perl -E '
    sub f(@x){map{/(\d*).(\d*)(\((\d+)\))?/;($n,$m)=map{length}$2,$4;[(10**$m-1)*
    (10**$n*$1+$2)+$4, 10**$n*(10**$m-1)]}@x}for my($x,$y)(@ARGV){($p,$q)=f($x,$y);
    say "$x, $y -> ", $p->[0]*$q->[1]==$p->[1]*$q->[0]?"T":"F";}
    ' "0.(12)" "0.(121)" "0.1(23)" "0.12(32)" "0.1(234)" "0.12(342)" \
    "12.99(99)" "13." "0.(123)" "0.1(231)"
    ```

  42. CW: Perl Weekly Challenge 386 T2

    #Perl @PerlWChallenge 386 Task 2: Rational Numbers
    #noxp
    ```
    perl -E '
    sub f(@x){map{/(\d*).(\d*)(\((\d+)\))?/;($n,$m)=map{length}$2,$4;[(10**$m-1)*
    (10**$n*$1+$2)+$4, 10**$n*(10**$m-1)]}@x}for my($x,$y)(@ARGV){($p,$q)=f($x,$y);
    say "$x, $y -> ", $p->[0]*$q->[1]==$p->[1]*$q->[0]?"T":"F";}
    ' "0.(12)" "0.(121)" "0.1(23)" "0.12(32)" "0.1(234)" "0.12(342)" \
    "12.99(99)" "13." "0.(123)" "0.1(231)"
    ```

  43. On Thursday morning, someone decided that they didn't like a pole with the fibre on it and crashed into it (I jest, afaik no one was injured or anything.) but I have had no proper internet since.

    I have been on 3G tethered from my phone to my Mac and tomorrow I (hopefully) get a 5G router as temporary solution.

    A new pole has to be put in, and I was told that it would be 2 to 3 WEEKS before that is happening. Hopefully that is just an estimation and that it would get solved sooner. #noxp

  44. On Thursday morning, someone decided that they didn't like a pole with the fibre on it and crashed into it (I jest, afaik no one was injured or anything.) but I have had no proper internet since.

    I have been on 3G tethered from my phone to my Mac and tomorrow I (hopefully) get a 5G router as temporary solution.

    A new pole has to be put in, and I was told that it would be 2 to 3 WEEKS before that is happening. Hopefully that is just an estimation and that it would get solved sooner. #noxp

  45. On Thursday morning, someone decided that they didn't like a pole with the fibre on it and crashed into it (I jest, afaik no one was injured or anything.) but I have had no proper internet since.

    I have been on 3G tethered from my phone to my Mac and tomorrow I (hopefully) get a 5G router as temporary solution.

    A new pole has to be put in, and I was told that it would be 2 to 3 WEEKS before that is happening. Hopefully that is just an estimation and that it would get solved sooner. #noxp

  46. On Thursday morning, someone decided that they didn't like a pole with the fibre on it and crashed into it (I jest, afaik no one was injured or anything.) but I have had no proper internet since.

    I have been on 3G tethered from my phone to my Mac and tomorrow I (hopefully) get a 5G router as temporary solution.

    A new pole has to be put in, and I was told that it would be 2 to 3 WEEKS before that is happening. Hopefully that is just an estimation and that it would get solved sooner. #noxp

  47. On Thursday morning, someone decided that they didn't like a pole with the fibre on it and crashed into it (I jest, afaik no one was injured or anything.) but I have had no proper internet since.

    I have been on 3G tethered from my phone to my Mac and tomorrow I (hopefully) get a 5G router as temporary solution.

    A new pole has to be put in, and I was told that it would be 2 to 3 WEEKS before that is happening. Hopefully that is just an estimation and that it would get solved sooner. #noxp