diff options
| author | E. Choroba <choroba@matfyz.cz> | 2020-06-13 19:33:52 +0200 |
|---|---|---|
| committer | E. Choroba <choroba@matfyz.cz> | 2020-06-13 19:33:52 +0200 |
| commit | ae09d3e1fefd0ef4d15365c23e7bcb82a904a25e (patch) | |
| tree | dbefbf2b246fef5703058b4b10f4cca7d8ad593e /challenge-009 | |
| parent | 8215d517e4db95675998b281ba81ce5c49cc5e8f (diff) | |
| download | perlweeklychallenge-club-ae09d3e1fefd0ef4d15365c23e7bcb82a904a25e.tar.gz perlweeklychallenge-club-ae09d3e1fefd0ef4d15365c23e7bcb82a904a25e.tar.bz2 perlweeklychallenge-club-ae09d3e1fefd0ef4d15365c23e7bcb82a904a25e.zip | |
Use @h{@a} = () instead of undef @h{@a}
as it works even when @a is empty.
Diffstat (limited to 'challenge-009')
| -rwxr-xr-x[-rw-r--r--] | challenge-009/e-choroba/perl5/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-009/e-choroba/perl5/ch-1.pl b/challenge-009/e-choroba/perl5/ch-1.pl index 4a74e71fe3..561873482a 100644..100755 --- a/challenge-009/e-choroba/perl5/ch-1.pl +++ b/challenge-009/e-choroba/perl5/ch-1.pl @@ -6,7 +6,7 @@ use feature qw{ say }; sub distinct_digits { my ($n) = @_; my %d; - undef @d{split //, $n}; + @d{split //, $n} = (); return keys %d } |