diff options
| -rwxr-xr-x | challenge-192/wlmb/perl/ch-2a.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/challenge-192/wlmb/perl/ch-2a.pl b/challenge-192/wlmb/perl/ch-2a.pl new file mode 100755 index 0000000000..73af1e7d78 --- /dev/null +++ b/challenge-192/wlmb/perl/ch-2a.pl @@ -0,0 +1,27 @@ +#!/usr/bin/env perl +# Perl weekly challenge 192 +# Task 2: Equal Distribution. Simpler version +# +# See https://wlmb.github.io/2022/11/21/PWC192/#task-2-equal-distribution +use v5.36; +use List::Util qw(sum all); +die <<"EOF" unless @ARGV; +Usage: $0 N1 [N2..] +to count how many one-unit neighbor transfers are required to distribute the values +in the integer array N1 N2... equally. +EOF +die "Only integers allowed" unless all {/[+-]?\d+/} @ARGV; +my @arr=@ARGV; +my $result=0; +if((sum @arr)%@arr){ + $result=-1 +} else { + $result=0; + my $avg=sum(@arr)/@arr; + for(1..@arr){ + my $extra=$arr[$_-1]-$avg; + $arr[$_]+=$extra; # $arr[$_-1]-=$extra; + $result+=abs $extra; + } +} +say join " ", @ARGV, "->", $result; |