diff options
| author | Walt Mankowski <waltman@pobox.com> | 2025-06-25 21:33:54 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2025-06-25 21:33:54 -0400 |
| commit | c78234ec2918668b463f9f453069563ec8f80887 (patch) | |
| tree | 1d83e103ea5a83bfab134b7a7a767450551875ef | |
| parent | 297818719258717c3e144484cb57ffc13d5e0649 (diff) | |
| download | perlweeklychallenge-club-c78234ec2918668b463f9f453069563ec8f80887.tar.gz perlweeklychallenge-club-c78234ec2918668b463f9f453069563ec8f80887.tar.bz2 perlweeklychallenge-club-c78234ec2918668b463f9f453069563ec8f80887.zip | |
perl code for challenge 1
| -rw-r--r-- | challenge-327/walt-mankowski/perl/ch-1.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-327/walt-mankowski/perl/ch-1.pl b/challenge-327/walt-mankowski/perl/ch-1.pl new file mode 100644 index 0000000000..3dd6050a0a --- /dev/null +++ b/challenge-327/walt-mankowski/perl/ch-1.pl @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +use v5.40; + +# make a hash of all the possible values from 1 to @ARGV +my %missing = map { $_ => 1 } 1..@ARGV; + +# delete any elements in @ARGV +delete $missing{$_} for @ARGV; + +# print out any remaining keys +printf "(%s)\n", join ", ", sort { $a <=> $b } keys %missing; |