diff options
| author | ivan dimitrov <ziruzavar@ziruzavar.lan> | 2021-09-17 16:31:53 +0300 |
|---|---|---|
| committer | ivan dimitrov <ziruzavar@ziruzavar.lan> | 2021-09-17 16:31:53 +0300 |
| commit | e17f7fb6a8836cda5246ded0ea9f78206d3b30a7 (patch) | |
| tree | 26852fd2edd6243ea5d7c18d14e897740c90044f /challenge-130 | |
| parent | 980fb3e7e91a29344b1310e7a1e9c615e106b6f7 (diff) | |
| download | perlweeklychallenge-club-e17f7fb6a8836cda5246ded0ea9f78206d3b30a7.tar.gz perlweeklychallenge-club-e17f7fb6a8836cda5246ded0ea9f78206d3b30a7.tar.bz2 perlweeklychallenge-club-e17f7fb6a8836cda5246ded0ea9f78206d3b30a7.zip | |
Adding my first solution
Diffstat (limited to 'challenge-130')
| -rw-r--r-- | challenge-130/ziruzavar/README | 1 | ||||
| -rw-r--r-- | challenge-130/ziruzavar/perl/ch-1.pl | 24 |
2 files changed, 25 insertions, 0 deletions
diff --git a/challenge-130/ziruzavar/README b/challenge-130/ziruzavar/README new file mode 100644 index 0000000000..b5b7bd3787 --- /dev/null +++ b/challenge-130/ziruzavar/README @@ -0,0 +1 @@ +Solution by ziruzavar. diff --git a/challenge-130/ziruzavar/perl/ch-1.pl b/challenge-130/ziruzavar/perl/ch-1.pl new file mode 100644 index 0000000000..91b7b4c7cd --- /dev/null +++ b/challenge-130/ziruzavar/perl/ch-1.pl @@ -0,0 +1,24 @@ +use strict; +use warnings; + +sub find_odd{ + my $n = shift; + my @arr = @$n; + my %h; + + foreach my $i (@arr){ + if (exists($h{$i})){ + $h{$i}++ ; + }else{ + $h{$i} = 1; + } + } + foreach my $key (keys %h){ + if ($h{$key} % 2 != 0){ + return $key; + } + } +} + +my @N = (2, 5, 4, 4, 5, 5, 2); +print find_odd(\@N); |