diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-01-25 15:24:12 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-01-25 15:24:12 +0000 |
| commit | 071408de692b446843bdc102d5b71acea69cfc92 (patch) | |
| tree | 0671ceb56d4593ea80453d3a626c4642741a6f5c | |
| parent | c4a60d0ec86e18c9ec046f7f341b41bb747e61fd (diff) | |
| download | perlweeklychallenge-club-071408de692b446843bdc102d5b71acea69cfc92.tar.gz perlweeklychallenge-club-071408de692b446843bdc102d5b71acea69cfc92.tar.bz2 perlweeklychallenge-club-071408de692b446843bdc102d5b71acea69cfc92.zip | |
golfed
| -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 |