Submission #4661648

---

Source Code Expand

use strict;
use warnings;
use utf8;

# 11:23 - 

my ($N) = split /\s/, <STDIN>;

my @d;
for (1 .. $N) {
    my ($x) = split /\s/, <STDIN>;
    push @d, $x;
}

@d = sort {$b <=> $a} @d;

my @ret;
my $max = 101;
foreach my $d (@d) {
    if ($d < $max) {
        push @ret, $d;
        $max = $d;
    }
}

use Data::Dumper;
print Dumper \@d if $ENV{X};
printf "%s\n", scalar @ret;

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result