diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2022-01-03 19:30:22 -0600 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2022-01-03 19:30:22 -0600 |
| commit | 673335faf79add44d5dc1128147d8112b5c5051a (patch) | |
| tree | 15958c25b5cdfe2825e2c816aa6302cda8d76f7c | |
| parent | 62936dded3a6280da7356d939a30f606bcf2764c (diff) | |
| download | perlweeklychallenge-club-673335faf79add44d5dc1128147d8112b5c5051a.tar.gz perlweeklychallenge-club-673335faf79add44d5dc1128147d8112b5c5051a.tar.bz2 perlweeklychallenge-club-673335faf79add44d5dc1128147d8112b5c5051a.zip | |
SImplify try/catch
| -rwxr-xr-x | challenge-146/wlmb/perl/ch-2.pl | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/challenge-146/wlmb/perl/ch-2.pl b/challenge-146/wlmb/perl/ch-2.pl index 721d90f75d..614fe1e828 100755 --- a/challenge-146/wlmb/perl/ch-2.pl +++ b/challenge-146/wlmb/perl/ch-2.pl @@ -15,20 +15,14 @@ foreach(@ARGV){ my $gcd=gcd($n, $d); say "Warning: $_ not reduced" unless $gcd==1; ($n, $d)=map {$_/$gcd} ($n, $d); + my @parent=parent($n, $d); try { - my @parent=parent($n, $d); - try { - my @grand_parent=parent(@parent); - say "Input: $n/$d\nParent:$parent[0]/$parent[1]\n", - "Grand parent: $grand_parent[0]/$grand_parent[1]\n"; - } - catch { - die "No grandparent of $n/$d\n"; - } - + my @grand_parent=parent(@parent); + say "Input: $n/$d\nParent:$parent[0]/$parent[1]\n", + "Grand parent: $grand_parent[0]/$grand_parent[1]\n"; } catch { - die $_; + die "No grandparent of $n/$d\n"; } } catch { |