diff options
| -rw-r--r-- | challenge-097/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-097/james-smith/perl/ch-2.pl b/challenge-097/james-smith/perl/ch-2.pl index 9df291a034..a995d64d5c 100644 --- a/challenge-097/james-smith/perl/ch-2.pl +++ b/challenge-097/james-smith/perl/ch-2.pl @@ -23,7 +23,7 @@ sub min_flips { !$_ || $_ < $/ ? $\ : $/, } map { $_*$_[1] } - 0 .. (length($_[0])/$_[1]-1) + 0 .. ( length($_[0])/$_[1] - 1 ) ]->[-1]; ## We could use variales here - but playing with localised special variables is fun! ## $/ <- minimum value |