diff options
| author | Adam Russell <ac.russell@live.com> | 2022-07-24 18:27:27 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2022-07-24 18:27:27 -0400 |
| commit | 00e98541577af23aaeb88ed8fc0a9fe8bc0a36d8 (patch) | |
| tree | c124411e5d5e1a672a1c3b5194ba9ecb6420d3b0 | |
| parent | 8f9b9f8dbf554fabcb94a727690577c864898eaf (diff) | |
| download | perlweeklychallenge-club-00e98541577af23aaeb88ed8fc0a9fe8bc0a36d8.tar.gz perlweeklychallenge-club-00e98541577af23aaeb88ed8fc0a9fe8bc0a36d8.tar.bz2 perlweeklychallenge-club-00e98541577af23aaeb88ed8fc0a9fe8bc0a36d8.zip | |
updated code for the Perl solution for part 1
| -rw-r--r-- | challenge-174/adam-russell/perl/ch-1.pl | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/challenge-174/adam-russell/perl/ch-1.pl b/challenge-174/adam-russell/perl/ch-1.pl index 610880d89d..5419bea060 100644 --- a/challenge-174/adam-russell/perl/ch-1.pl +++ b/challenge-174/adam-russell/perl/ch-1.pl @@ -9,7 +9,7 @@ sub disarium_n{ my($n) = @_; my @disariums; map{ - goto DONE if @disariums == $n; + return @disariums if @disariums == $n; my @digits = split(//, $_); my $digit_sum = 0; map{ @@ -17,10 +17,6 @@ sub disarium_n{ } 0 .. @digits - 1; push @disariums, $digit_sum if $digit_sum == $_; } 0 .. INT_MAX / 100; - DONE:{ - return @disariums; - } - return undef; } MAIN:{ |