The Weekly Challenge

HEADLINES

Welcome to the Week #215 of The Weekly Challenge.

Today is the first Monday of the month and time to declare the next champion. With great pride, we announce Thomas Kohler as our next champion. He joined the Team PWC in the Week #194. As of today, he has contributed 44 Perl solutions and 37 blog posts.

Leo Manfredi, if you are reading this then please share your email to perlweeklychallenge@yahoo.com so that the FREE book coupon can be shared with you.

We now have done interviews with Solathian and David Ferrone. It was great knowing the latest champions.

Today, we are giving away Coupon #38 to Arne Sommer for the book, Learning Perl Exercises by brian d foy. I will share the details with you in a separate email.

PAST WINNERS



`S. No.`	`Name`	`S. No.`	`Name`

1.	`Cheok-Yin Fung`	2.	`W. Luis Mochan`
3.	`Robert DiCicco`	4.	`Kueppo Wesley`
5.	`Solathian`	6.	`Dario Mazzeo`
7.	`Peter Campbell Smith`	8.	`Kjetil Skotheim`
9.	`Neils van Dijke`	10.	`Laurent Rosenfeld`
11.	`Duncan C. White`	12.	`Ali Moradi`
13.	`Jorg Sommrey`	14.	`James Smith`
15.	`Alexander Pankoff`	16.	`Simon Green`
17.	`Robbie Hatley`	18.	`Bob Lied`
19.	`Athanasius`	20.	`David Ferrone`
21.	`Thomas Kohler`	22.	`Adam Russell`
23.	`E. Choroba`	24.	`Pip Stuart`
25.	`Roger Bell_West`	26.	`Flavio Poletti`
27.	`Dave Jacoby`	28.	`Mariano Spadaccini`
29.	`Lubos Kolouch`	30.	`Matthew Neleigh`
31.	`Paulo Custodio`	32.	`Tyler Bird`
33.	`Carlos Oliveira`	34.	`Avery Adams`
35.	`Matthias Muth`	36.	`Leo Manfredi`
37.	`Peter Meszaros`	38.
39.		40.
41.		42.
43.		44.
45.		46.
47.		48.
49.		50.

Well done Team PWC and thank you for your support and encouragements. Even with late submissions, we are still behind the magic number for Week #213. I am hoping we would catch up soon.


`Week`	`Perl`	`Raku`	`Blog`
`184`	57	31	17
`185`	61	35	19
`186`	58	33	20
`187`	51	34	20
`188`	63	36	16
`189`	62	35	18
`190`	55	32	23
`191`	56	38	21
`192`	59	41	23
`193`	55	31	22
`194`	58	32	19
`195`	58	29	19
`196`	51	29	20
`197`	49	31	20
`198`	54	37	23
`199`	58	34	24
`200`	57	33	23
`201`	58	29	22
`202`	53	27	24
`203`	52	24	18
`204`	56	31	22
`205`	64	30	25
`206`	59	29	23
`207`	59	34	26
`208`	60	33	23
`209`	53	29	20
`210`	51	24	19
`211`	55	31	21
`212`	54	29	22
`213`	49	28	23
`214`	38	18	13

I would like to thank every guest contributors for making it special every week. Last week we received 19 contributions in 8 languages by 4 guests.

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  (1482)
 2. Haskell (545)
 3. Ruby    (505)
 4. Lua     (463)
 5. C       (413)
 6. C++     (367)
 7. Rust    (348)
 8. BQN     (269)
 9. Go      (256)
10. Java    (223)

Blogs with Creative Title

1. Bagging Scorepoints by Arne Sommer.

2. PWC 214 (1) Rank Score, (2) Collect Points, (3) …, (4) Profit! by Bob Lied.

3. Another one rides the bus! by James Smith.

4. All about points by Peter Campbell Smith.

5. A Rank Collection by Roger Bell_West.

GitHub Repository Stats

1. Commits: 32,155 (`+104`)

2. Pull Requests: 7,984 (`+32`)

3. Contributors: 222

4. Fork: 278

5. Stars: 152

Our solo sponsor Pete Sergeant has been a great support to keep us motivated. We are lucky that he agreed to continue the journey with us in the year 2023. I would like to personally thank Pete and his entire team for their generosity. It would be great if we could add few more to sponsor the prize money so that we could go back and declare weekly champions as we have done in the past. I hope and wish this will become possible in 2023. The amount doesn’t have to be huge. However, it would be nice to show off bunch of supporters. If an organisation comes forward and supports us then that would be the ultimate achievement.

RECAP

Quick recap of The Weekly Challenge - 214 by Mohammad S 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 #214.

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

Task 1: Odd one Out

Submitted by: Mohammad S Anwar

You are given a list of words (alphabetic characters only) of same size.

Write a script to remove all words not sorted alphabetically and print the number of words in the list that are not alphabetically sorted.

Example 1

Input: @words = ('abc', 'xyz', 'tsu')
Output: 1

The words 'abc' and 'xyz' are sorted and can't be removed.
The word 'tsu' is not sorted and hence can be removed.

Example 2

Input: @words = ('rat', 'cab', 'dad')
Output: 3

None of the words in the given list are sorted.
Therefore all three needs to be removed.

Example 3

Input: @words = ('x', 'y', 'z')
Output: 0

Task 2: Number Placement

Submitted by: Mohammad S Anwar

You are given a list of numbers having just 0 and 1. You are also given placement count (>=1).

Write a script to find out if it is possible to replace 0 with 1 in the given list. The only condition is that you can only replace when there is no 1 on either side. Print 1 if it is possible otherwise 0.

Example 1:

Input: @numbers = (1,0,0,0,1), $count = 1
Output: 1

You are asked to replace only one 0 as given count is 1.
We can easily replace middle 0 in the list i.e. (1,0,1,0,1).

Example 2:

Input: @numbers = (1,0,0,0,1), $count = 2
Output: 0

You are asked to replace two 0's as given count is 2.
It is impossible to replace two 0's.

Example 3:

Input: @numbers = (1,0,0,0,0,0,0,0,1), $count = 3
Output: 1

Last date to submit the solution 23:59 (UK Time) Sunday 7th May 2023.