home.social
Sign in Create account

Search

30 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. misryoum @[email protected] ·

    أولمبيك أسفي يهزم سان بيدرو 2-1 في الكونفدرالية

    misryoum.com/wlmbyk-sfy-yhzm-s

    اقتنص فريق أولمبيك أسفي، ثلاث نقاط ثمينة، من سان بيدرو، بالفوز عليه بهدفين مقابل هدف، في المباراة التي جمعت الفريقين ضمن الجولة الرابعة من دور المجموعات، في إطار منافسات كأس الكونفدرالية الأفريقية.وافتتح أولمبيك، التهديف، في الدقيقة 31، عن طريق...

    misryoum.com/?p=117982

    #أولمبيك #أسفي #يهزم #سان #بيدرو #الكونفدرالية #منصة_مصر_اليوم_الاخبارية #misryoum_com

    #أولمبيك #أسفي #يهزم #سان #بيدرو #الكونفدرالية
  10. misryoum @[email protected] ·

    أولمبيك أسفي يهزم سان بيدرو 2-1 في الكونفدرالية

    misryoum.com/wlmbyk-sfy-yhzm-s

    اقتنص فريق أولمبيك أسفي، ثلاث نقاط ثمينة، من سان بيدرو، بالفوز عليه بهدفين مقابل هدف، في المباراة التي جمعت الفريقين ضمن الجولة الرابعة من دور المجموعات، في إطار منافسات كأس الكونفدرالية الأفريقية.وافتتح أولمبيك، التهديف، في الدقيقة 31، عن طريق...

    misryoum.com/?p=117982

    #أولمبيك #أسفي #يهزم #سان #بيدرو #الكونفدرالية #منصة_مصر_اليوم_الاخبارية #misryoum_com

    #misryoum_com #منصة_مصر_اليوم_الاخبارية #الكونفدرالية #بيدرو #سان #يهزم
  11. misryoum @[email protected] ·

    أولمبيك أسفي يهزم سان بيدرو 2-1 في الكونفدرالية

    misryoum.com/wlmbyk-sfy-yhzm-s

    اقتنص فريق أولمبيك أسفي، ثلاث نقاط ثمينة، من سان بيدرو، بالفوز عليه بهدفين مقابل هدف، في المباراة التي جمعت الفريقين ضمن الجولة الرابعة من دور المجموعات، في إطار منافسات كأس الكونفدرالية الأفريقية.وافتتح أولمبيك، التهديف، في الدقيقة 31، عن طريق...

    misryoum.com/?p=117982

    #أولمبيك #أسفي #يهزم #سان #بيدرو #الكونفدرالية #منصة_مصر_اليوم_الاخبارية #misryoum_com

    #أولمبيك #أسفي #يهزم #سان #بيدرو #الكونفدرالية
  12. misryoum @[email protected] ·

    انطلاق النسخة الـ58 من أولمبياد الشركات في بورسعيد برعاية رئيس الوزراء

    misryoum.com/antlaq-wlmbyad-al

    تستضيف المدينة الرياضية بمحافظة بورسعيد افتتاح النسخة الـ58 من أولمبياد الشركات، الحدث الذي يحظى باهتمام رسمي واسع وبرعاية رئيس الوزراء، بمشاركة الدكتور أشرف صبحي، وزير الشباب والرياضة، إلى جانب اللواء محب حبشي محافظ بورسعيد، إضافة إلى عدد من رؤساء مجالس...

    misryoum.com/?p=7291

    #انطلاق #النسخة #الـ58 #أولمبياد #الشركات #بورسعيد #برعاية #رئيس #الوزراء #منصة_مصر_اليوم_الاخبارية #misryoum_com

    #انطلاق #النسخة #الـ58 #أولمبياد #الشركات #بورسعيد
  13. misryoum @[email protected] ·

    انطلاق النسخة الـ58 من أولمبياد الشركات في بورسعيد برعاية رئيس الوزراء

    misryoum.com/antlaq-wlmbyad-al

    تستضيف المدينة الرياضية بمحافظة بورسعيد افتتاح النسخة الـ58 من أولمبياد الشركات، الحدث الذي يحظى باهتمام رسمي واسع وبرعاية رئيس الوزراء، بمشاركة الدكتور أشرف صبحي، وزير الشباب والرياضة، إلى جانب اللواء محب حبشي محافظ بورسعيد، إضافة إلى عدد من رؤساء مجالس...

    misryoum.com/?p=7291

    #انطلاق #النسخة #الـ58 #أولمبياد #الشركات #بورسعيد #برعاية #رئيس #الوزراء #منصة_مصر_اليوم_الاخبارية #misryoum_com

    #misryoum_com #منصة_مصر_اليوم_الاخبارية #الوزراء #رئيس #برعاية #بورسعيد
  14. misryoum @[email protected] ·

    انطلاق النسخة الـ58 من أولمبياد الشركات في بورسعيد برعاية رئيس الوزراء

    misryoum.com/antlaq-wlmbyad-al

    تستضيف المدينة الرياضية بمحافظة بورسعيد افتتاح النسخة الـ58 من أولمبياد الشركات، الحدث الذي يحظى باهتمام رسمي واسع وبرعاية رئيس الوزراء، بمشاركة الدكتور أشرف صبحي، وزير الشباب والرياضة، إلى جانب اللواء محب حبشي محافظ بورسعيد، إضافة إلى عدد من رؤساء مجالس...

    misryoum.com/?p=7291

    #انطلاق #النسخة #الـ58 #أولمبياد #الشركات #بورسعيد #برعاية #رئيس #الوزراء #منصة_مصر_اليوم_الاخبارية #misryoum_com

    #انطلاق #النسخة #الـ58 #أولمبياد #الشركات #بورسعيد
  15. 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
  16. 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
  17. 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
  18. 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
  19. 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
  20. 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
  21. 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
  22. 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
  23. 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
  24. 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
  25. 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
  26. 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
  27. 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
  28. 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
  29. 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
  30. 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