From 82fa4a439d44441b48ed93a35d2f4580dd6667b4 Mon Sep 17 00:00:00 2001 From: Lubos Kolouch Date: Sat, 11 Apr 2020 11:02:48 +0200 Subject: Cosmetic changes --- challenge-055/lubos-kolouch/perl/ch-1.pl | 4 ++-- 1 file 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"); -- cgit