diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-10-17 10:16:34 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-10-17 10:16:34 +0100 |
| commit | da718a3c5dbdbde6b33b9430de69a078b1b27223 (patch) | |
| tree | 8c925a3b2c4e7ada9ac449974456a0c7b922f8f4 | |
| parent | 3e5e3b01d75aacc68e893eceddd7d0e406680c0a (diff) | |
| download | perlweeklychallenge-club-da718a3c5dbdbde6b33b9430de69a078b1b27223.tar.gz perlweeklychallenge-club-da718a3c5dbdbde6b33b9430de69a078b1b27223.tar.bz2 perlweeklychallenge-club-da718a3c5dbdbde6b33b9430de69a078b1b27223.zip | |
whitespace
| -rw-r--r-- | challenge-187/james-smith/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-187/james-smith/perl/ch-2.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-187/james-smith/perl/ch-1.pl b/challenge-187/james-smith/perl/ch-1.pl index a79e0c55ad..320dfc1da2 100644 --- a/challenge-187/james-smith/perl/ch-1.pl +++ b/challenge-187/james-smith/perl/ch-1.pl @@ -20,7 +20,7 @@ is( days_together($_->[0],$_->[1]), $_->[2] ) foreach @TESTS; done_testing(); sub days_together { - sub { $_>[1]<$_[0] ? 0 : $_[1]-$_[0]+1 }->( + sub { $_[1]<$_[0] ? 0 : $_[1]-$_[0]+1 }->( sub { ( $_[2]>$_[0]?$_[2]:$_[0], $_[3]<$_[1]?$_[3]:$_[1] ) }->( map { [ 0,0,31,59,90,120,151,181,212,243,273,304,334 ]->[substr $_,3] + substr$_,0,2 } map { @{$_} } diff --git a/challenge-187/james-smith/perl/ch-2.pl b/challenge-187/james-smith/perl/ch-2.pl index 18d5af1e0c..e08218ad26 100644 --- a/challenge-187/james-smith/perl/ch-2.pl +++ b/challenge-187/james-smith/perl/ch-2.pl @@ -20,7 +20,7 @@ is( "@{[magical(@{$_->[0]})]}", $_->[1] ) foreach @TESTS; done_testing(); sub magical { - @_ = sort { $b<=>$a } @_; + @_ = sort { $b <=> $a } @_; my @max = (0); while(@_>2) { my($a,$b,@c)=@_; |