diff options
| -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:{ |