#20245 (Perl) No.182 新規性の虜

• 問題: No.182 新規性の虜
• ユーザー: togaerror
• 提出日時: 2015-04-17 11:50:45
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 92 ms / 5,000 ms
• コード長: 327 bytes
• コンパイル時間: 158 ms
• コンパイル使用メモリ: 6,944 KB
• 実行使用メモリ: 17,140 KB
• 最終ジャッジ日時: 2024-06-08 02:58:01
• 合計ジャッジ時間: 1,953 ms
• ジャッジサーバーID （参考情報）: judge3 / judge2

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	5 ms; 5,760 KB
testcase_01	AC	5 ms; 5,888 KB
testcase_02	AC	6 ms; 5,888 KB
testcase_03	AC	6 ms; 5,760 KB
testcase_04	AC	5 ms; 5,760 KB
testcase_05	AC	5 ms; 5,888 KB
testcase_06	AC	5 ms; 5,760 KB
testcase_07	AC	5 ms; 5,888 KB
testcase_08	AC	55 ms; 11,840 KB
testcase_09	AC	92 ms; 15,748 KB
testcase_10	AC	78 ms; 14,412 KB
testcase_11	AC	66 ms; 12,920 KB
testcase_12	AC	28 ms; 8,704 KB
testcase_13	AC	6 ms; 5,888 KB
testcase_14	AC	6 ms; 5,760 KB
testcase_15	AC	5 ms; 5,632 KB
testcase_16	AC	6 ms; 5,888 KB
testcase_17	AC	5 ms; 5,632 KB
testcase_18	AC	71 ms; 14,164 KB
testcase_19	AC	52 ms; 11,600 KB
testcase_20	AC	33 ms; 9,432 KB
testcase_21	AC	84 ms; 15,256 KB
testcase_22	AC	40 ms; 10,364 KB
testcase_23	AC	6 ms; 5,760 KB
testcase_24	AC	56 ms; 17,140 KB
testcase_25	AC	40 ms; 16,896 KB
testcase_26	AC	14 ms; 7,040 KB
testcase_27	AC	6 ms; 5,632 KB
evil01.txt	AC	55 ms; 17,540 KB
evil02.txt	AC	55 ms; 17,660 KB

コンパイルメッセージ

Main.pl syntax OK

ソースコード

#!/usr/bin/perl

use strict;
use warnings;

my $n = <>;
my $str = <>;
chomp $str;
my @array = split / /, $str;
my $count = 0;
@array = sort @array;

my $i = 0;
while($i < $n) {
	my $j = 1;
	while(($i + $j < $n)and($array[$i] == $array[$i + $j])) {
		$j++;
	}
	if($j == 1) {
		$count++;
	}
	$i += $j;
}

print "$count\n";

exit;