home.social

#noxp — Public Fediverse posts

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

  1. wlmb @wlmb ·

    @PerlWChallenge 375 Single Common Word and Find K-Beauty wlmb.github.io/2026/05/26/PWC3

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

    #Perl @PerlWChallenge 375 Single Common Word and Find K-Beauty wlmb.github.io/2026/05/26/PWC3
    #noxp

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

    #Perl @PerlWChallenge 375 Single Common Word and Find K-Beauty wlmb.github.io/2026/05/26/PWC3
    #noxp

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

    #Perl @PerlWChallenge 375 Single Common Word and Find K-Beauty wlmb.github.io/2026/05/26/PWC3
    #noxp

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

    #Perl @PerlWChallenge 375 Single Common Word and Find K-Beauty wlmb.github.io/2026/05/26/PWC3
    #noxp

    #perl #noxp
  6. wlmb @wlmb ·
    CW: Solution to PWC 375 T2

    @PerlWChallenge 375 Task 2: Find K-Beauty

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

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

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

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

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

    #perl #noxp
  11. wlmb @wlmb ·
    CW: Solution to PWC375T1

    @PerlWChallenge 375 Task 1: Single Common Word

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

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

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

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

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

    #perl #noxp
  16. wlmb @wlmb ·

    @PerlWChallenge 374 Count Vowel and Largest Same-digits Number wlmb.github.io/2026/05/22/PWC3

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

    #Perl @PerlWChallenge 374 Count Vowel and Largest Same-digits Number wlmb.github.io/2026/05/22/PWC3
    #noxp

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

    #Perl @PerlWChallenge 374 Count Vowel and Largest Same-digits Number wlmb.github.io/2026/05/22/PWC3
    #noxp

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

    #Perl @PerlWChallenge 374 Count Vowel and Largest Same-digits Number wlmb.github.io/2026/05/22/PWC3
    #noxp

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

    #Perl @PerlWChallenge 374 Count Vowel and Largest Same-digits Number wlmb.github.io/2026/05/22/PWC3
    #noxp

    #perl #noxp
  21. wlmb @wlmb ·
    CW: Perl Weekly Challenge 374T2

    @PerlWChallenge 374 Task 2: Largest Same-digits Number

    ```
    perl -MList::Util=max -E '
    say "$_ -> ", max /((\d)\2*)/g for(@ARGV);
    ' 6777133339 1200034 44221155 88888 11122233
    ```

    #perl #noxp
  22. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 374T2

    #Perl @PerlWChallenge 374 Task 2: Largest Same-digits Number
    #noxp
    ```
    perl -MList::Util=max -E '
    say "$_ -> ", max /((\d)\2*)/g for(@ARGV);
    ' 6777133339 1200034 44221155 88888 11122233
    ```

    #perl #noxp
  23. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 374T2

    #Perl @PerlWChallenge 374 Task 2: Largest Same-digits Number
    #noxp
    ```
    perl -MList::Util=max -E '
    say "$_ -> ", max /((\d)\2*)/g for(@ARGV);
    ' 6777133339 1200034 44221155 88888 11122233
    ```

    #perl #noxp
  24. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 374T2

    #Perl @PerlWChallenge 374 Task 2: Largest Same-digits Number
    #noxp
    ```
    perl -MList::Util=max -E '
    say "$_ -> ", max /((\d)\2*)/g for(@ARGV);
    ' 6777133339 1200034 44221155 88888 11122233
    ```

    #noxp #perl
  25. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 374T2

    #Perl @PerlWChallenge 374 Task 2: Largest Same-digits Number
    #noxp
    ```
    perl -MList::Util=max -E '
    say "$_ -> ", max /((\d)\2*)/g for(@ARGV);
    ' 6777133339 1200034 44221155 88888 11122233
    ```

    #perl #noxp
  26. wlmb @wlmb ·
    CW: Perl Weekly Challenge 374T1

    @PerlWChallenge 374 Task 1: Count Vowel

    ```
    perl -E '
    sub t($x){$x=~/$_/||return 0 for(split "","aeiou");1}for(@ARGV){my@r;for my$i(/([aeiou]+)/g)
    {$l=length$i;for(0..$l){t $r=substr$i,$_ or last;push @r,$r;for(1..$l){t $s=substr$r,0,-$_ or
    last;push@r,$s}}}say"$_ -> (@r)";}
    ' aeiou aaeeeiioouu aeiouuaxaeiou uaeiou aeioaeioa
    ```

    #perl #noxp
  27. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 374T1

    #Perl @PerlWChallenge 374 Task 1: Count Vowel
    #noxp
    ```
    perl -E '
    sub t($x){$x=~/$_/||return 0 for(split "","aeiou");1}for(@ARGV){my@r;for my$i(/([aeiou]+)/g)
    {$l=length$i;for(0..$l){t $r=substr$i,$_ or last;push @r,$r;for(1..$l){t $s=substr$r,0,-$_ or
    last;push@r,$s}}}say"$_ -> (@r)";}
    ' aeiou aaeeeiioouu aeiouuaxaeiou uaeiou aeioaeioa
    ```

    #perl #noxp
  28. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 374T1

    #Perl @PerlWChallenge 374 Task 1: Count Vowel
    #noxp
    ```
    perl -E '
    sub t($x){$x=~/$_/||return 0 for(split "","aeiou");1}for(@ARGV){my@r;for my$i(/([aeiou]+)/g)
    {$l=length$i;for(0..$l){t $r=substr$i,$_ or last;push @r,$r;for(1..$l){t $s=substr$r,0,-$_ or
    last;push@r,$s}}}say"$_ -> (@r)";}
    ' aeiou aaeeeiioouu aeiouuaxaeiou uaeiou aeioaeioa
    ```

    #perl #noxp
  29. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 374T1

    #Perl @PerlWChallenge 374 Task 1: Count Vowel
    #noxp
    ```
    perl -E '
    sub t($x){$x=~/$_/||return 0 for(split "","aeiou");1}for(@ARGV){my@r;for my$i(/([aeiou]+)/g)
    {$l=length$i;for(0..$l){t $r=substr$i,$_ or last;push @r,$r;for(1..$l){t $s=substr$r,0,-$_ or
    last;push@r,$s}}}say"$_ -> (@r)";}
    ' aeiou aaeeeiioouu aeiouuaxaeiou uaeiou aeioaeioa
    ```

    #noxp #perl
  30. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 374T1

    #Perl @PerlWChallenge 374 Task 1: Count Vowel
    #noxp
    ```
    perl -E '
    sub t($x){$x=~/$_/||return 0 for(split "","aeiou");1}for(@ARGV){my@r;for my$i(/([aeiou]+)/g)
    {$l=length$i;for(0..$l){t $r=substr$i,$_ or last;push @r,$r;for(1..$l){t $s=substr$r,0,-$_ or
    last;push@r,$s}}}say"$_ -> (@r)";}
    ' aeiou aaeeeiioouu aeiouuaxaeiou uaeiou aeioaeioa
    ```

    #perl #noxp
  31. wlmb @wlmb ·

    @PerlWChallenge 373 Equal List and List Division wlmb.github.io/2026/05/11/PWC3

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

    #Perl @PerlWChallenge 373 Equal List and List Division wlmb.github.io/2026/05/11/PWC3
    #noxp

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

    #Perl @PerlWChallenge 373 Equal List and List Division wlmb.github.io/2026/05/11/PWC3
    #noxp

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

    #Perl @PerlWChallenge 373 Equal List and List Division wlmb.github.io/2026/05/11/PWC3
    #noxp

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

    #Perl @PerlWChallenge 373 Equal List and List Division wlmb.github.io/2026/05/11/PWC3
    #noxp

    #perl #noxp
  36. wlmb @wlmb ·
    CW: Perl Weekly Challenge 373T2

    @PerlWChallenge 373 Task 2: List Division

    ```
    perl -E '
    for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
    $n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
    ' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
    "1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
    ```

    #perl #noxp
  37. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 373T2

    #Perl @PerlWChallenge 373 Task 2: List Division
    #noxp
    ```
    perl -E '
    for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
    $n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
    ' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
    "1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
    ```

    #perl #noxp
  38. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 373T2

    #Perl @PerlWChallenge 373 Task 2: List Division
    #noxp
    ```
    perl -E '
    for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
    $n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
    ' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
    "1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
    ```

    #perl #noxp
  39. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 373T2

    #Perl @PerlWChallenge 373 Task 2: List Division
    #noxp
    ```
    perl -E '
    for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
    $n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
    ' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
    "1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
    ```

    #noxp #perl
  40. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 373T2

    #Perl @PerlWChallenge 373 Task 2: List Division
    #noxp
    ```
    perl -E '
    for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
    $n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
    ' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
    "1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
    ```

    #perl #noxp
  41. wlmb @wlmb ·
    CW: Perl Weekly Challenge 373T1

    @PerlWChallenge 373 Task 1: Equal List

    ```
    perl -E '
    for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
    ' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
    ```

    #perl #noxp
  42. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 373T1

    #Perl @PerlWChallenge 373 Task 1: Equal List
    #noxp
    ```
    perl -E '
    for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
    ' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
    ```

    #perl #noxp
  43. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 373T1

    #Perl @PerlWChallenge 373 Task 1: Equal List
    #noxp
    ```
    perl -E '
    for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
    ' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
    ```

    #perl #noxp
  44. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 373T1

    #Perl @PerlWChallenge 373 Task 1: Equal List
    #noxp
    ```
    perl -E '
    for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
    ' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
    ```

    #noxp #perl
  45. wlmb @[email protected] ·
    CW: Perl Weekly Challenge 373T1

    #Perl @PerlWChallenge 373 Task 1: Equal List
    #noxp
    ```
    perl -E '
    for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
    ' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
    ```

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

    #Perl @PerlWChallenge 372 Rearrange Spaces and Largest Substring wlmb.github.io/2026/05/04/PWC3
    #noxp

    #perl #noxp
  47. wlmb @wlmb ·

    @PerlWChallenge 372 Rearrange Spaces and Largest Substring wlmb.github.io/2026/05/04/PWC3

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

    #Perl @PerlWChallenge 372 Rearrange Spaces and Largest Substring wlmb.github.io/2026/05/04/PWC3
    #noxp

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

    #Perl @PerlWChallenge 372 Rearrange Spaces and Largest Substring wlmb.github.io/2026/05/04/PWC3
    #noxp

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

    #Perl @PerlWChallenge 372 Rearrange Spaces and Largest Substring wlmb.github.io/2026/05/04/PWC3
    #noxp

    #perl #noxp