The Weekly Challenge: 374

TABLE OF CONTENTS

  1. HEADLINES

  2. SPONSOR

  3. RECAP

  4. PERL REVIEW

  5. RAKU REVIEW

  6. CHART

  7. NEW MEMBERS

  8. GUESTS

  9. TASK #1: Count Vowel

10. TASK #2: Largest Same-digits Number

HEADLINES

Welcome to the Week #374 of The Weekly Challenge.

We are still waiting for summer in England but the holiday season has already kicked in. It feels great when members continue to contribute even while on holiday. In the past, some have even contributed from a hospital bed. I once met a team member’s wife at a conference and she told me how the weekly challenge is a frequent topic of discussion at home. It has truly become a part of some member’s daily lives. I am expecting a bit of a slowdown in the coming weeks, but that’s completely fine. I hope you all get to enjoy the sun whereever you are.

I don’t know if you’ve noticed, but team members are blogging regularly now. One day, I will start doing so too.

Below is my contributions to the Task #1 of Week #372.

Perl: source code

sub equal_list {
    my ($arr1, $arr2) = @_;

    return join("", @$arr1) eq join("", @$arr2) ? "true" : "false";
}

Raku: source code

sub equal-list(@arr1, @arr2) {
    return @arr1.join eq @arr2.join ?? "true" !! "false";
}

Python: source code

def equal_list(arr1, arr2):
    return "true" if "".join(arr1) == "".join(arr2) else "false"

Thank you Team PWC, once again.

Happy Hacking!!

Last 5 weeks mainstream contribution stats. Thank you Team PWC for your support and encouragements.

Last 5 weeks guest contribution stats. Thank you each and every guest contributors for your time and efforts.

TOP 10 Guest Languages

Do you see your favourite language in the Top #10? If not then why not contribute regularly and make it to the top.

 1. Python     (4390)
 2. Rust       (1155)
 3. C          (1028)
 3. Ruby       (905)
 5. Haskell    (901)
 6. Lua        (894)
 7. C++        (718)
 8. Go         (686)
 9. JavaScript (639)
10. Java       (532)

Blogs with Creative Title

1. List the List by Arne Sommer.

2. Let’s Dance to List Division by Bob Lied.

3. Divide and Concat by Jorg Sommrey.

4. Because your list, your list I can’t resist by Packy Anderson.

5. The week of lists by Peter Campbell Smith.

6. There Is No Equality Without Division by Roger Bell_West.

7. Joining and splitting lists by Simon Green.

GitHub Repository Stats

1. Commits: 49,651 (+118)

2. Pull Requests: 14,112 (+38)

3. Contributors: 278

4. Fork: 350 (+1)

5. Stars: 212

SPONSOR

With start of Week #355, we have a new sponsor Marc Perry until the end of year 2026. Having said we are looking for more sponsors so that we can go back to weekly winner. If anyone interested please get in touch with us at perlweeklychallenge@yahoo.com. Thanks for your support in advance. You can find more informations here.

RECAP

Quick recap of The Weekly Challenge - 373 by Mohammad Sajid Anwar.

PERL REVIEW

If you missed any past reviews then please check out the collection.

RAKU REVIEW

If you missed any past reviews then please check out the collection.

CHART

Please take a look at the charts showing interesting data.

I would like to THANK every member of the team for their valuable suggestions. Please do share your experience with us.

NEW MEMBERS

Please find out How to contribute?, if you have any doubts.

Please try the excellent tool EZPWC created by respected member Saif Ahmed of Team PWC.

GUESTS

Please check out the guest contributions for the Week #373.

Please find past solutions by respected guests. Please share your creative solutions in other languages.

Task 1: Count Vowel

Submitted by: Mohammad Sajid Anwar

You are given a string.

Write a script to return all possible vowel substrings in the given string. A vowel substring is a substring that only consists of vowels and has all five vowels present in it.

Example 1

Input: $str = "aeiou"
Output: ("aeiou")

Example 2

Input: $str = "aaeeeiioouu"
Output: ("aaeeeiioou", "aeeeiioou", "aeeeiioouu")

Example 3

Input: $str = "aeiouuaxaeiou"
Output: ("aeiou", "aeiou", "eiouua")

Example 4

Input: $str = "uaeiou"
Output: ("aeiou", "uaeio")

Example 5

Input: $str = "aeioaeioa"
Output: ()

Task 2: Largest Same-digits Number

Submitted by: Mohammad Sajid Anwar

You are given a string containing 0-9 digits only.

Write a script to return the largest number with all digits the same in the given string.

Example 1

Input: $str = "6777133339"
Output: 3333

Example 2

Input: $str = "1200034"
Output: 4

Example 3

Input: $str = "44221155"
Output: 55

None found.

Example 4

Input: $str = "88888"
Output: 88888

Example 5

Input: $str = "11122233"
Output: 222

By submitting a response to the challenge you agree that your name or pseudonym, any photograph you supply and any other personal information contained in your submission may be published on this website and the associated mobile app. Last date to submit the solution 23:59 (UK Time) Sunday 24th May 2026.