diff options
| -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"); |