diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-11 15:28:55 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-11 15:28:55 +0100 |
| commit | 18dc1738ec8244594ef9ef69290652f6df85e7c7 (patch) | |
| tree | 9986163d76bad148debebbdfe57f9a2031c139ca | |
| parent | 607dc165c04bc2dbe9fbd12ec3d18d9fe5f994b6 (diff) | |
| parent | 1ac7b18e75929a0484208181da015c2cf4a06732 (diff) | |
| download | perlweeklychallenge-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.pl | 4 |
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"); |
