diff options
| -rwxr-xr-x | challenge-194/wlmb/perl/ch-2a.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-194/wlmb/perl/ch-2a.pl b/challenge-194/wlmb/perl/ch-2a.pl new file mode 100755 index 0000000000..34adb6f921 --- /dev/null +++ b/challenge-194/wlmb/perl/ch-2a.pl @@ -0,0 +1,17 @@ +#!/usr/bin/env perl +# Perl weekly challenge 194 +# Task 2: Frequency Equalizer. Without PDL +# +# See https://wlmb.github.io/2022/12/05/PWC194/#task-2-frequency-equalizer +use v5.36; +use List::Util qw(sum); +for(@ARGV){ + my %frequencies; + $frequencies{$_}++ for(split ""); + my @vals=values %frequencies; + my $N=@vals; + my $sum=sum @vals; + my $x=($sum-1)/$N; + my $t=sum map {$_*$_} @vals; + say "$_ -> ", $sum%$N==1 && $t==$N*$x**2 + 2*$x + 1? 1 :0 +} |