home.social
Sign in Create account

Search

24 results for “wlmb”

  1. wlmb @wlmb ·

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

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

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

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

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

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

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

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

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

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

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

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

    #Perl @PerlWChallenge 371 Missing Letter and Subset Equilibrium wlmb.github.io/2026/04/27/PWC3
    #noxp

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

    #Perl @PerlWChallenge 370 Popular Word and Scramble String wlmb.github.io/2026/04/20/PWC3
    #noxp

    #perl #noxp
  9. 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
  10. 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
  11. 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
  12. 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
  13. 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
  14. 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
  15. 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
  16. 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
  17. 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
  18. 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
  19. wlmb @[email protected] ·
    CW: PWC372T2

    #Perl @PerlWChallenge 372 Task 2: Largest Substring
    #noxp
    ```
    perl -MList::Util=max -E '
    for(@ARGV){$i=$_;say "$_ -> ", max map {$i=~m/$_(.*)$_/?length($1):-1} split "";}
    ' aaaaa abcdeba abbc abcaacbc laptop
    ```

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

    #Perl @PerlWChallenge 372 Task 1: Rearrange Spaces
    #noxp
    ```
    perl -E '
    for(@ARGV){$i=$_;@w=split" ";$l=0;$l+=length$1 while s/(\s+)//;($s,$r)=@w>1?
    ($l/(@w-1),$l%(@w-1)):(0,$l);$j=" "x$s;say "\"$i\" -> \"", join($j,@w)," "x$r,"\"";}
    ' " challenge " "coding is fun" "a b c d" \
    " team pwc " " the weekly challenge "
    ```

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

    #Perl @PerlWChallenge 371 Task 2: Subset Equilibrium
    #noxp
    ```
    perl -MAlgorithm::Combinatorics=subsets -MList::Util=sum -E '
    for(@ARGV){@d=split" ";@i=0..@d-1;@r=map{"[@d[@$_]]"}grep{1<@$_<@d
    &&sum(@$_)+@$_==sum @d[@$_]}subsets(\@i);say"$_ -> [ @r ]";}
    ' -- "2 1 4 3" "3 0 3 0" "5 1 1 1" "3 -1 4 2" "10 20 30 40"
    ```

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

    #Perl @PerlWChallenge 371 Task 1: Missing Letter
    #noxp
    ```
    perl -E '
    for(@ARGV){/^(.*)\?.*$/;$k=length($1);@x=map{ord}split"";@s=map{$x[$_+1]-$x[$_]}
    map{$_%4}($k+1,$k+2);say "$_ -> ", chr($k?$x[$k-1]+$s[0]:$x[$k+1]-$s[1]);}
    ' ac?gi ad?jm ae?mq acf?k beg?l
    ```

    #perl #noxp
  23. wlmb @[email protected] ·
    CW: PWC370T2

    #Perl @PerlWChallenge 370 Task 2: Scramble String
    #noxp
    ```
    perl -MList::Util=none -E '
    for my($v,$w)(@ARGV){say "$v, $w -> ",c($v, $w)?"T":"F";}sub f($x,$y,$z){substr($x,$y,$z)}sub c($v,
    $w){return 1if$v eq$w;my%l;++$l{$_}for split"",$v;--$l{$_}for split"",$w;return 0unless none{$_}
    values %l;my$s=length$v;for my$i(1..$s-1){return 1if(c(f($v,0,$i),f($w,0,$i))&&c(f($v,$i,$s-$i),
    f($w,$i,$s-$i)))||(c(f($v,$i,$s-$i),f($w,0,$s-$i))&&c(f($v,0,$i),f($w,$s-$i,$i)));}return 0;}
    '
    ```

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

    #Perl @PerlWChallenge 370 Task 1: Popular Word
    #noxp
    ```
    perl -MList::UtilsBy=max_by -E '
    for my($p,$b)(@ARGV){my(%b,%w);++$b{$_} for split" ",$b;++$w{$_}for grep
    {!$b{$_}}split/[^a-z]+/,lc $p;say "p=$p b=$b -> ", max_by{$w{$_}}keys %w;}
    ' \
    "Bob hit a ball, the hit BALL flew far after it was hit." "hit" \
    "Apple? apple! Apple, pear, orange, pear, apple, orange." "apple pear" \
    "A. a, a! A. B. b. b." "b" \
    "Ball.ball,ball:apple!apple.banana" "ball" ```

    #perl #noxp