aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <mohammad.anwar@yahoo.com>2020-04-11 15:28:55 +0100
committerMohammad S Anwar <mohammad.anwar@yahoo.com>2020-04-11 15:28:55 +0100
commit18dc1738ec8244594ef9ef69290652f6df85e7c7 (patch)
tree9986163d76bad148debebbdfe57f9a2031c139ca
parent607dc165c04bc2dbe9fbd12ec3d18d9fe5f994b6 (diff)
parent1ac7b18e75929a0484208181da015c2cf4a06732 (diff)
downloadperlweeklychallenge-club-18dc1738ec8244594ef9ef69290652f6df85e7c7.tar.gz
perlweeklychallenge-club-18dc1738ec8244594ef9ef69290652f6df85e7c7.tar.bz2
perlweeklychallenge-club-18dc1738ec8244594ef9ef69290652f6df85e7c7.zip
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club
-rw-r--r--challenge-055/lubos-kolouch/perl/ch-1.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-055/lubos-kolouch/perl/ch-1.pl b/challenge-055/lubos-kolouch/perl/ch-1.pl
index 72c81ba0e0..f6145d3e5c 100644
--- a/challenge-055/lubos-kolouch/perl/ch-1.pl
+++ b/challenge-055/lubos-kolouch/perl/ch-1.pl
@@ -30,12 +30,12 @@ sub do_flip {
my ( $l_count, $r_count, $input ) = @_;
my @binary = split //, $input;
-
+
for my $str_pos ( $l_count .. $r_count ) {
$binary[$str_pos] = $binary[$str_pos] == 1 ? 0:1;
}
- return join "", @binary;
+ return join '', @binary;
}
my $result = process_all_flips("010");