From 14db3b829f65485eab9f4520d000cc48ba5449d3 Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Tue, 6 Dec 2022 08:48:50 -0600
Subject: Add pdl-less solution

---
 challenge-194/wlmb/perl/ch-2a.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 challenge-194/wlmb/perl/ch-2a.pl

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
+}
-- 
cgit