diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-10-14 04:12:22 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-10-14 04:12:22 +0800 |
| commit | 73c1401dee69cd87ee78d161332913cb7c65dceb (patch) | |
| tree | 508bea0591061cf50f949a7ed5e9cc4822aa5f7c | |
| parent | d5fd0df979ac23043f9e35117241b68b0bc4914b (diff) | |
| download | perlweeklychallenge-club-73c1401dee69cd87ee78d161332913cb7c65dceb.tar.gz perlweeklychallenge-club-73c1401dee69cd87ee78d161332913cb7c65dceb.tar.bz2 perlweeklychallenge-club-73c1401dee69cd87ee78d161332913cb7c65dceb.zip | |
remove redundant line
| -rw-r--r-- | challenge-132/cheok-yin-fung/perl/ch-1.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/challenge-132/cheok-yin-fung/perl/ch-1.pl b/challenge-132/cheok-yin-fung/perl/ch-1.pl index 7bfe736e7d..ed95f49ea2 100644 --- a/challenge-132/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-132/cheok-yin-fung/perl/ch-1.pl @@ -14,7 +14,6 @@ sub mirror { my $_today = timelocal(0, 0, 0, @arr_today); my @arr_birth = ($_[2], $_[1]-1, $_[0]); my $_birth = timelocal(0, 0, 0, @arr_birth); - my $sec_diff = $_today - $_birth; my $y1 = int (($_today - $_birth)/86400); my @d_senior = localtime timegm_nocheck 0, 0, 0, $arr_birth[0]-$y1, $arr_birth[1], $arr_birth[2]; my @d_junior = localtime timegm_nocheck 0, 0, 0, $arr_today[0]+$y1, $arr_today[1], $arr_today[2]; |