diff options
| -rw-r--r-- | challenge-082/ddobbelaere/perl/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-082/ddobbelaere/perl/ch-2.pl | 4 |
2 files changed, 2 insertions, 6 deletions
diff --git a/challenge-082/ddobbelaere/perl/ch-1.pl b/challenge-082/ddobbelaere/perl/ch-1.pl index a133d27921..b7d7385f30 100644 --- a/challenge-082/ddobbelaere/perl/ch-1.pl +++ b/challenge-082/ddobbelaere/perl/ch-1.pl @@ -58,9 +58,7 @@ while (<DATA>) { } # Console interface. -if (@ARGV) { - say join ', ', common_factors(@ARGV); -} +say join ', ', common_factors(@ARGV) if @ARGV; __DATA__ # Test data. diff --git a/challenge-082/ddobbelaere/perl/ch-2.pl b/challenge-082/ddobbelaere/perl/ch-2.pl index cbb9057ad6..1bd52312a6 100644 --- a/challenge-082/ddobbelaere/perl/ch-2.pl +++ b/challenge-082/ddobbelaere/perl/ch-2.pl @@ -67,9 +67,7 @@ while (<DATA>) { } # Console interface. -if (@ARGV) { - say 0+can_interleave(@ARGV); -} +say 0+can_interleave(@ARGV) if @ARGV; __DATA__ # Test data of the form $A $B $C $output. |