/
ch-2.pl
51 lines (46 loc) · 1.27 KB
/
ch-2.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#!/usr/bin/env perl
=begin comment
-----------------------------------------------
AUTHOR: Robert DiCicco
DATE : 2023-06-22
Challenge 222 Task 2 Last Member ( Perl )
-----------------------------------------------
=cut
use strict;
use warnings;
use feature 'say';
use List::MoreUtils qw(first_index);
my @allints = @ARGV[0..$#ARGV];
say "Input: \@ints = @allints";
while (1) {
my @srt = sort(@allints);
my $ln = scalar @srt;
if ($ln <= 1) {
say "Output: $ln";
exit;
} else {
my $lrg = $srt[$ln - 1];
my $nxt = $srt[$ln - 2];
my $lrg_index = first_index { $_ eq $lrg } @allints;
my $nxt_index = first_index { $_ eq $nxt } @allints;
splice(@allints, $lrg_index, 1);
splice(@allints, $nxt_index, 1);
if ($lrg > $nxt){
unshift(@allints, $lrg - $nxt);
}
}
}
=begin comment
-----------------------------------------------
SAMPLE OUTPUT
perl .\LastMember.pl 2 7 4 1 8 1
Input: @ints = 2 7 4 1 8 1
Output: 1
PS G:\Projects\Perl\Challenges> perl .\LastMember.pl 1
Input: @ints = 1
Output: 1
PS G:\Projects\Perl\Challenges> perl .\LastMember.pl 1 1
Input: @ints = 1 1
Output: 0
-----------------------------------------------
=cut