diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-03-08 23:00:51 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-03-08 23:00:51 +0000 |
| commit | 351d3293a7d376135bd6ebe349568ab50fa590ea (patch) | |
| tree | 9af9912049f799bf67b2a7d8a8f4a1180cdeceea | |
| parent | 80d51aec54ad926a37eaf6a902bb174c8d744739 (diff) | |
| download | perlweeklychallenge-club-351d3293a7d376135bd6ebe349568ab50fa590ea.tar.gz perlweeklychallenge-club-351d3293a7d376135bd6ebe349568ab50fa590ea.tar.bz2 perlweeklychallenge-club-351d3293a7d376135bd6ebe349568ab50fa590ea.zip | |
whitspace
| -rw-r--r-- | challenge-103/james-smith/perl/ch-1.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl index ec8cbd6407..3d073f7e49 100644 --- a/challenge-103/james-smith/perl/ch-1.pl +++ b/challenge-103/james-smith/perl/ch-1.pl @@ -20,9 +20,9 @@ done_testing(); sub year_name { return join q( ), - qw( Yang Yin )[ $_[0] %2 ], - qw( Metal Water Wood Fire Earth )[ ($_[0]/2) %5 ], + qw( Yang Yin )[ $_[0] % 2 ], + qw( Metal Water Wood Fire Earth )[ ($_[0]/2) % 5 ], qw( Monkey Rooster Dog Pig Rat Ox - Tiger Rabbit Dragon Snake Horse Goat )[ $_[0] %12 ], + Tiger Rabbit Dragon Snake Horse Goat )[ $_[0] % 12 ], } |