From 948a18b410d6a4d02960bd4276d270ddfd4fea1a Mon Sep 17 00:00:00 2001
From: "E. Choroba" <choroba@matfyz.cz>
Date: Thu, 5 Mar 2020 23:29:09 +0100
Subject: Add blogpost from E. Choroba(050: Merge Intervals + Noble Integer)

Also, remove the useless condition from the code.
---
 challenge-050/e-choroba/blog.txt     | 1 +
 challenge-050/e-choroba/perl/ch-1.pl | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)
 create mode 100644 challenge-050/e-choroba/blog.txt

diff --git a/challenge-050/e-choroba/blog.txt b/challenge-050/e-choroba/blog.txt
new file mode 100644
index 0000000000..05ab3fbdf2
--- /dev/null
+++ b/challenge-050/e-choroba/blog.txt
@@ -0,0 +1 @@
+http://blogs.perl.org/users/e_choroba/2020/03/perl-weekly-challenge-050-merge-intervals-and-noble-integer.html
diff --git a/challenge-050/e-choroba/perl/ch-1.pl b/challenge-050/e-choroba/perl/ch-1.pl
index 436d44f96c..baf1934c4e 100755
--- a/challenge-050/e-choroba/perl/ch-1.pl
+++ b/challenge-050/e-choroba/perl/ch-1.pl
@@ -19,7 +19,7 @@ use strict;
     sub out {
         my ($self) = @_;
         my @r;
-        for my $k (sort { $a <=> $b } grep 'same' ne $_, keys %$self) {
+        for my $k (sort { $a <=> $b } keys %$self) {
             if (($self->{$k} & (LEFT | RIGHT)) == LEFT) {
                 push @r, [$k];
             } elsif (($self->{$k} & (LEFT | RIGHT)) == RIGHT) {
-- 
cgit