This week's challenge is composed of three tasks.The first one is to get the n-th order of forward difference of a given list.

Task #1 - N-th order difference:

Suppose we have list (X) of numbers: 5, 9, 2, 8, 1, 6 and we would like to create 1st order forward difference series (Y). So using the formula Y(i) = X(i+1) - X(i), we get the following numbers: (9-5), (2-9), (8-2), (1-8), (6-1). In short, the final series would be: 4, -7, 6, -7, 5. If you noticed, it has one less number than the original series. Similary you can carry on 2nd order forward difference series like: (-7-4), (6+7), (-7-6), (5+7) => -11, 13, -13, 12.

Solution:

Forward difference series

Create a script that prints n^th order forward difference series. You should be a able to pass the list of numbers and order number as command line parameters.

	Series	5		9		2		8		1		6
Order
1			(9-5)		(2-9)		(8-2)		(1-8)		(6-1)
			4		-7		6		-7		5
2				(-7-4)		(6+7)		(-7-6)		(5+7)
				-11		13		-13		12
3					(13+11)		(-13-13)		(12+13)
					24		-26		25
4						(-26-24)		(25+26)
						-50		51
5							(51+50)
							101

Hear Good News!

I report Perl Newbies weekly update.

I add uc, lc, ucfirst, lcfirst functions.

Perl Newbies

I start to work writing perl document for Perl 5 Newbies.

I think Perl Community(Mainly USA and more Mainly Silicon Valley) isn't intereted in Yung Perl People who want to know Perl programing language.

There are no easy, understandable, modern entries and perl programing examples in blogs.perl.org.

I try to continue to write entries for Perl 5 Newbies.

By now, many of you have seen the Perl 6 Github issue "Perl" in the name "Perl 6" is confusing and irritating. The issue suggested renaming Perl 6. While some may think that the name of the issue is trolling, or offensive, the actual issue was created by Elizabeth (Liz) Mattijsen, one of the core Perl 6 developers, a long-time Perl 5 developer, and with her spouse, Wendy, has long been an enthusiastic support of Perl 5/6. There is no trolling here. There is a lot of deep thought, careful discussion, and a genuine desire to find a way to bypass some deeply divisive issues in the Perl community.

While the proposed name was "camelia", Damian Conway made a strong argument in favor of "raku" and it appears the community is leaning towards this name for various reasons.

This post is my attempt to summarize what's going on for those who have missed it. Any errors are, of course, Damian's. (just kidding!)

Shorewall 5.2.3.4 is now available for download. Shorewall is a gateway/firewall configuration tool for GNU/Linux, written in Perl.

Problems Corrected:

1) If multi-queue NFQUEUE (e.g., NFQUEUE(0:1) ) WAS used as a policy, an error such as the following was previously incorrectly raised.

ERROR: Invalid policy (NFQUEUE(0) /etc/shorewall/policy (line
15)

That has been corrected such that no error is raised.

2) If multi-queue NFQUEUE( e.g., NFQUEUE(0:1,bypass) ) was passed to a
macro, an error such as the following was previously incorrectly
raised:

ERROR: Invalid ACTION (PARAM:1c,bypass)))
/usr/share/shorewall/macro.BitTorrent (line 12)
from /etc/shorewall/rules (line 40)

Now, the NFQUEUE action is correctly substituted for PARAM in
the Macro body.

3) If shorewall[6].conf didn't set AUTOMAKE, the 'update' command
previously produced a new file with 'AUTOMAKE=Yes'. This resulted
in an unexpected change of behavior. Now, the new file contains
'AUTOMAKE=No', which preserves the pre-update behavior.

4) Shorewall-rules(5) incorrectly stated that the 'bypass' option to
NFQUEUE causes the rule to be silently bypassed if there is no
application attached to the queue. The actual behavior is that the
rule acts like ACCEPT in that case. Shorewall-rules(5) has been
corrected.

These are some answers to the Week 23 of the Perl Weekly Challenge organized by Mohammad S. Anwar.

Spoiler Alert: This weekly challenge deadline is due in several days from now (September 1, 2019). This blog post offers some solutions to this challenge, please don't read on if you intend to complete the challenge on your own.

Challenge # 1: nth Order Difference Series

Create a script that prints nth order forward difference series. You should be a able to pass the list of numbers and order number as command line parameters. Let me show you with an example.

I had more thoughts about splitting on character changes, partly thanks to a mailing list thread, which led to more questions.

As a prelude, here are regexps that splits when changing to the letter B

# If the cursor is before B, and is after a character, and is not after B, split

> say "ABBBCDEEF".split(/<?before (B) {} ><?after . ><!after B >/).perl
("A", "BBBCDEEF").Seq

# If the cursor is before B, and is after character-class-exlcuding B, split

> say "ABBBCDEEF".split(/<?before (B) {} ><?after <-[B]> >/).perl
("A", "BBBCDEEF").Seq

And when changing from the letter B
# If the cursor is after B, and is before a character, and is not before B, split

say "ABBBCDEEF".split(/<?after (B) {} ><?before . ><!before B >/).perl
("ABBB", "CDEEF").Seq

Last time we presented you the success story of 3 months. It is now time to share 6 months story with you. I would like to take this opportunity to thank each and every contributors. I would also like to take a look what have we achieved in these 6 months.Here is the list of achievements

#1 Active bloggers

I would call this one of the biggest achievements that we have had 228 blogs in the last 6 months. On top this, we have had 11 blogs , as listed below, by Damian Conway . Some of the bloggers started blogging again after long break and some were first timers. You can find all the blogs in the weekly Recaps and Reviews .

Recaps

From Twitter

We've made this decision using hard data; over the past few years we have surveyed our user base and talked to companies that use the Perl driver. They've told us how they aren't developing new applications using Perl and have moved these applications into maintenance mode. This has meant that they have few demands for new MongoDB feature to be supported in the Perl driver.

We also looked at support requests and questions in the community, and found no questions about the Perl driver had been asked since 2018 on the mongodb-user list.

...

I create new site "Perl Newbie"

Perl Newbie

Perl Newbie is the site for people to leran Perl programing. Perl is good at text processing,Linux server administration, and Web development. You can use Perl on most operation systems. Perl backword compatiblity is very high. Perl Newbie chears people who try to learn Perl and use Perl for your development. Let't talk about Perl. "He uses Perl and has much fun."

This is created by Giblog.

I was googling about perl, hoping to see an active community that is dedicated to perl. I have been an active member of codesignal and I primarily use perl to solve the challenges. And then, I came across the website perlweeklychallenge.org that is being maintained by Mohammad Anwar. The website as the name implies, post challenges every week it usually consist of three tasks.

Task #1 - Sexy Prime For this week, the first task is to print the first 10 sexy primes

Write a script to print first 10 Sexy Prime Pairs. Sexy primes are prime numbers that differ from each other by 6. For example, the numbers 5 and 11 are both sexy primes, because 11 - 5 = 6. The term “sexy prime” is a pun stemming from the Latin word for six: sex. For more information, please checkout wiki page.

Solution #1
Below is my perl5 solution for the task:
Note: The code was intentionally obfuscated for fun (The syntax highlighter fails in $' )

I like reading the Perl Weekly Challenge even if I rarely participate.

It struck me that task 1 of Week 20 asked "to accept a string from command line and split it on change of character" - but every solution that I read in the recap looked for runs of the same character instead of the literal interpretation of the challenge.

Then I found, it was a dead end for me...

$ perl -E 'say join " ",split /(.)(?!\1)/,scalar '
ABBCDEEF
 A B B  C  D E E  F

Ah, I want zero-width on each side, but I want to both use capture for \1 but NOT also have "split" keep the capture, can't have it both ways...

$ perl -E 'say join " ",split /(?<=(.))(?!\1)/,scalar '
ABBCDEEF
A A BB B C C D D EE E F F

Perl6's expressiveness won for me, but I think this could be cleaner, and it has a spurious empty string at the beginning. Ideas for improvement, dear reader?

say "ABBCDEEF".split(/<?before (.) {} :my $c=$0;><!after $c> /).perl
("", "A", "BB", "C", "D", "EE", "F").Seq

These are some answers to the Week 22 of the Perl Weekly Challenge organized by Mohammad S. Anwar.

Spoiler Alert: This weekly challenge deadline is due in several days from now (August 25, 2019). This blog post offers some solutions to this challenge, please don't read on if you intend to complete the challenge on your own.

Challenge # 1: Sexy Prime Pairs

Write a script to print first 10 Sexy Prime Pairs. Sexy primes are prime numbers that differ from each other by 6. For example, the numbers 5 and 11 are both sexy primes, because 11 - 5 = 6. The term “sexy prime” is a pun stemming from the Latin word for six: sex. For more information, please checkout wiki page.

The Swiss Perl Workshop is over for another year. Thanks to all who attended, sponsored, helped out on the day and before, gave talks, and made suggestions. There are a few photos of the event available on the Perl Events Instagram feed.

The videos of the talks are available here. The recordings were largely successful, although one video still needs some putting together due to technical issues - this one will appear later.

Open Discussion

On the second day of the workshop an open discussion took place. This was a continuation of a discussion started back in May, in Bern, and covered several issues about the current state and future of the workshop.

I made a few notes to cover it for those who were not present, as we did not record this discussion due to its impromptu nature. I have split the topics into sections below. Note that the use of "Perl" below should be taken to mean both Perl 5 and Perl 6.

Future Name

C-o-rr-a-ll-i-n-g d-i-tt-o-e-d l-e-tt-e-r-s

I was going to focus this week on the first task of the 20th Weekly Challenge...but what can I say? The task was a break a string specified on the command-line into runs of identical characters:

    "toolless"        →   t  oo  ll  e  ss
    "subbookkeeper"   →   s  u  bb  oo  kk  ee  p  e  r
    "committee"       →   c  o  mm  i  tt  ee

But that’s utterly trivial in Raku:

    use v6.d;

    sub MAIN (\str) {
        .say for str.comb: /(.) $0*/
    }

And almost as easy in Perl:

A rather relaxed day here at the SPW 2019. We started out with a rather animated open discussion of the future on small Perl meet-ups. Seems it is not only the SWP that can have troubble attracting speakers or attendee, people from around the EU Perl community also voiced some concern that organizing small local workshops is getting more difficult.

On suggestion was changed the name or the SPW to something less perlish (which makes sense as Perl6 will soon have its own name). Another suggestion was joining up with more regional PM groups in the Alpine area to attract a few more attendees and organizers. Personally I have seen the same problems come up in other user groups, not a sign of decline but more a sign that the days of the small workshop may be numbered.

These are some answers to the Week 21 of the Perl Weekly Challenge organized by Mohammad S. Anwar.

Spoiler Alert: This weekly challenge deadline is due in several days from now (August 18, 2019). This blog post offers some solutions to this challenge, please don't read on if you intend to complete the challenge on your own.

Challenge # 1: Euler's Number

Write a script to calculate the value of e, also known as Euler’s number and Napier’s constant. Please checkout this wiki page for more information.

The number e is a mathematical constant that is the base of natural logarithms: It is the unique number whose natural logarithm is equal to 1 and its value is approximately 2.71828.

Euler's Number in Perl 6

Perl 6 has a built-in constant, e, for Euler's number, which we can just print:

$ perl6 -e 'say e'
2.718281828459045

Yes, I am back again with another blog. I just need a reason to write about. This time, I am going to talk about one of the most fun game I am involved with for long time. In short, this game requires you to upload one distribution to CPAN every day. It sounds simple but it is far from simple.

Current Chains

All-time Chains

Screenshots taken from Neil Bowers personal website.

If you don't know the history of the game, let me give you little introduction, I was first introduced to the game by one of the blog by Neil Bowers. I got addicted to it from day one. Few months later, Barbie blogged once he completed one year of CPAN uploads. It worked like a catalyst to my already addiction.

A Regular Question

This weeks perl weekly challenge had a pretty straightforward question: take a string and split it when the characters change. That's a fairly straightforward regex issue:

perl -pE's/(.) \g1*/$& /gx'

Here we match any character (.) once. We capture this in a group. Then, we use backreferencing to match as many more copies of that group as we can. We use the s operator to then replace what we found with itself ($& is the entire match that was found) followed by a space.

Conveniently, the challenge didn't specify what 'splitting' entails, so this is technically all we need to do. However, it gives us an extra empty space at the end of the match. In order to get rid of that (the proverbial second problem introduced by regexes), we have two approaches.

The RegEx Rabbit Hole

We could tell the regex not to match if it gets to the end of the string. We would do that with a zero width negative lookahead:

Day one here at the SPW coming home again the Florian in Olten CH.
We started the day with Liz Mattijen debunking myths found on the inter-web about Perl 6, Raku, Cammila ah what-ever they are calling it these days.

Liz was very passionate about Perl6 and it was a little sad to hear her story the state of Perl 5 and Perl 6 but we can always hope.

I was up next and was a little flustered to go up next to one of the legends but I think my talk on the history of routes and my personal style of writing route when ok, at least the crowd laughed at the parts I though where funny.