RECAP - Perl Weekly Challenge - 052

Monday, Mar 23, 2020| Tags: Perl, Raku


HEADLINES



Last week, we had guest contributor, Richard Park, who contributed APL solutions. Roger Bell_West shared blogs for Week 048 and Week 049. Athansius shared solutions to the last week challenge after a short break. Welcome back Athanasius.

I would like to share an interesting bit from Perl Reviews 050 by Ryan Thompson. In his review, Ryan improved my definition of the subroutine _order_intervals() as defined below:

sub _order_intervals {
    my ($intervals) = @_;
    my @intervals = ();
    foreach my $i (@$intervals) {
        push @intervals, sprintf("%d-%d", $i->[0], $i->[1]);
    }
    # Borrowed with input from E. Choroba
    # https://stackoverflow.com/questions/27089498/sorting-arrays-of-intervals-in-perl
    my @_sorted = sort {
        my ($a1, $a2) = $a =~ /-?\d+/g;
        my ($b1, $b2) = $b =~ /-?\d+/g;
        $a1 <=> $b1 || $a2 <=> $b2;
    } @intervals;
    my $sorted = [];
    foreach (@_sorted) {
        my ($a, $b) = split /(?<=\d)-(?=\d)/, $_, 2;
        push @$sorted, [ $a+0, $b+0 ];
    }
    return $sorted;
}

to something like this. I feel like dumb now.

sub _order_intervals {
    [ sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] } @{$_[0]} ]
}


GUESTS REPORT CARD



1) Ulrich Rieke: C++ (10), Haskell (11).

2) Orestis Zekai: Python (16).

3) Lubos Kolouch: Python (16).

4) User Person: Python (12).

5) Adam Russell: C++ (8).

6) Burkhard Nickels: Python (8).

7) Wanderdoc: R (6).

8) Kivanc Yazan: Python (4).

9) Duncan C. White: Postscript (3).

10) Jonas Berlin: Rust (3).

11) Rage311: Rust (3).

12) Daniel Mita: Go (1), Javascript (1).

13) Richard Park: APL (2).

14) Roger Bell_West: Postscript (2).

15) Darren Bottin: Prolog (1).

16) Dave Jacoby: HTML (1).

17) Jaldhar H. Vyas: C++ (1).



LANGUAGES REPORT CARD



1) Python: 56

2) C++: 19

3) Haskell: 11

4) Rust: 6

5) R: 6

6) Postscript: 5

7) APL: 2

8) Go: 1

9) HTML: 1

10) Javascript: 1

11) Prolog: 1



CENTURION CLUB



Changes to the ranking in the Centurion Club last week listed below

With last week contributions, I have now moved up to the rank #042. Lubos Kolouch joined the club last week. Many congratulations from the Team PWC.

Roger Bell_West moved up to the rank #06.

Lubos Kolouch moved up to the rank #025.


1) Laurent Rosenfeld (620)

2) Jaldhar H. Vyas (436)

3) Ruben Westerberg (412)

4) Joelle Maslak (334)

5) Arne Sommer (322)

6) Roger Bell_West (318)

7) Adam Russell (306)

8) E. Choroba (282)

9) Ryan Thompson (242)

10) Athanasius (224)

11) Javier Luque (220)

12) Andrezgz (210)

13) Scimon Proctor (204)

14) Dave Jacoby (186)

15) Duncan C. White (184)

16) Kian-Meng Ang (162)

17) Colin Crain (158)

18) Kevin Colyer (152)

19) Yet Ebreo (142)

20) Duane Powell (136)

21) Steven Wilson (136)

22) Noud Aldenhoven (124)

23) Burkhard Nickels (108)

24) Ulrich Rieke (108)

25) Lubos Kolouch (100)



DAMIAN’s CORNER



Checkout the masterpiece collection of blogs by Damian Conway solving “Perl Weekly Challenge”.



PERL SOLUTIONS



Andrezgz

Andrezgz

[PERL #1] [PERL #2]


Athanasius

Athanasius

[PERL #1] [PERL #2]


Cheok-Yin Fung

Cheok-Yin Fung

[PERL #1] [PERL #2] [BLOG #1]


Cristina Heredia

Cristina Heredia

[PERL #1] [PERL #2]


Dave Cross

Dave Cross

[PERL #1] [PERL #2]


Dave Jacoby

Dave Jacoby

[PERL #1] [PERL #2] [BLOG #1]


Duncan C. White

Duncan C. White

[PERL #1] [PERL #2]


E. Choroba

E. Choroba

[PERL #1] [PERL #2] [BLOG #1]


Lubos Kolouch

Lubos Kolouch

[PERL #1] [PERL #2]


Saif Ahmed

Saif Ahmed

[PERL #1] [PERL #2]


User Person

User Person

[PERL #1] [PERL #2]


Wanderdoc

Wanderdoc

[PERL #1] [PERL #2]


Yet Ebreo

Yet Ebreo

[PERL #1] [PERL #2]



RAKU SOLUTIONS



Arne Sommer

Arne Sommer

[RAKU #1] [RAKU #2] [BLOG #1]


Kevin Colyer

Kevin Colyer

[RAKU #1] [RAKU #2]


Luca Ferrari

Luca Ferrari

[RAKU #1] [RAKU #2] [BLOG #1] [BLOG #2]


Mark Anderson

Mark Anderson

[RAKU #1] [RAKU #2]


Noud Aldenhoven

Noud Aldenhoven

[RAKU #1] [RAKU #2]


Scimon Proctor

Scimon Proctor

[RAKU #1]



PERL & RAKU SOLUTIONS



Alicia Bielsa

Alicia Bielsa

[PERL #1] [PERL #2] [RAKU #1]


Colin Crain

Colin Crain

[PERL #1] [PERL #2] [RAKU #1] [RAKU #2]


Javier Luque

Javier Luque

[PERL #1] [PERL #2] [RAKU #1] [RAKU #2] [BLOG #1]


Laurent Rosenfeld

Laurent Rosenfeld

[PERL #1] [PERL #2] [RAKU #1] [RAKU #2] [BLOG #1]


Markus Holzer

Markus Holzer

[PERL #1] [RAKU #1] [RAKU #2]


Mohammad S Anwar

Mohammad S Anwar

[PERL #1] [PERL #2] [RAKU #1] [RAKU #2] [BLOG #1]


Roger Bell_West

Roger Bell_West

[PERL #1] [PERL #2] [RAKU #1] [RAKU #2]


Ruben Westerberg

Ruben Westerberg

[PERL #1] [PERL #2] [RAKU #1] [RAKU #2]


Ryan Thompson

Ryan Thompson

[PERL #1] [PERL #2] [RAKU #1] [RAKU #2] [BLOG #1] [BLOG #2]



Last but not the least, I would like to request all members, please send us your photo, that you already use on some other web platform, to use in the weekly blog, if not already sent.



SO WHAT DO YOU THINK ?

If you have any suggestions or ideas then please do share with us.

Contact with me