From 00e98541577af23aaeb88ed8fc0a9fe8bc0a36d8 Mon Sep 17 00:00:00 2001
From: Adam Russell <ac.russell@live.com>
Date: Sun, 24 Jul 2022 18:27:27 -0400
Subject: updated code for the Perl solution for part 1

---
 challenge-174/adam-russell/perl/ch-1.pl | 6 +-----
 1 file changed, 1 insertion(+), 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:{
-- 
cgit