diff options
| author | drbaggy <js5@sanger.ac.uk> | 2020-11-25 09:32:46 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2020-11-25 09:32:46 +0000 |
| commit | 6ae4688bd7504282a3a1bb311e83abcd90e9e712 (patch) | |
| tree | 370b247c0705741edc2fc2d84277ebbf475f0290 /challenge-085/james-smith | |
| parent | ee4ca50a9ae8434166c8de2eea5121e58ea7d7db (diff) | |
| download | perlweeklychallenge-club-6ae4688bd7504282a3a1bb311e83abcd90e9e712.tar.gz perlweeklychallenge-club-6ae4688bd7504282a3a1bb311e83abcd90e9e712.tar.bz2 perlweeklychallenge-club-6ae4688bd7504282a3a1bb311e83abcd90e9e712.zip | |
oops
Diffstat (limited to 'challenge-085/james-smith')
| -rw-r--r-- | challenge-085/james-smith/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-085/james-smith/perl/ch-1.pl b/challenge-085/james-smith/perl/ch-1.pl index 60cadd5f50..c838a2845a 100644 --- a/challenge-085/james-smith/perl/ch-1.pl +++ b/challenge-085/james-smith/perl/ch-1.pl @@ -11,7 +11,7 @@ is( trip_sum(qw(0.5 1.1 0.3 0.7)), 1 ); done_testing; sub trip_sum { - for my $i ( 0 :W.. (@_-3) ) { + for my $i ( 0 .. (@_-3) ) { next unless $_[$i] < 2; ## For large arrays this might save some time...; for my $j ( ($i+1) .. (@_-2) ) { next unless $_[$i]+$_[$j] < 2; ## For large arrays this might save some time...; |