Submission #2375684

Source Code Expand

sub g{$_[0]?g((pop)%"@_",@_):pop}
<>=~$";
++$h{g$_,$'+0}for glob<>;
for$i(keys%h){
	if($i**2%$'==0){
		$%+=$h{$i}*($h{$i}-1)/2
	}
	for$j(keys%h){
		if($i<$j&&$i*$j%$'==0){
			$%+=$h{$i}*$h{$j}
		}
	}
}
print$%

Submission Info

Submission Time
Task C - ロト2
User x20
Language Perl (v5.18.2)
Score 400
Code Size 224 Byte
Status AC
Exec Time 1454 ms
Memory 42284 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 3
AC × 25
Set Name Test Cases
Sample 00_example_01.txt, 00_example_02.txt, 00_example_03.txt
All 00_example_01.txt, 00_example_02.txt, 00_example_03.txt, 10_random_01.txt, 10_random_02.txt, 10_random_03.txt, 10_random_04.txt, 10_random_05.txt, 20_max_01.txt, 20_max_02.txt, 20_max_03.txt, 20_max_04.txt, 20_max_05.txt, 30_overflow_01.txt, 30_overflow_02.txt, 40_dmax_01.txt, 40_dmax_02.txt, 40_dmax_03.txt, 50_prime_01.txt, 50_prime_02.txt, 50_prime_03.txt, 60_prime_pow_01.txt, 60_prime_pow_02.txt, 60_prime_pow_03.txt, 70_one_01.txt
Case Name Status Exec Time Memory
00_example_01.txt AC 5 ms 768 KB
00_example_02.txt AC 5 ms 768 KB
00_example_03.txt AC 5 ms 768 KB
10_random_01.txt AC 6 ms 896 KB
10_random_02.txt AC 8 ms 896 KB
10_random_03.txt AC 6 ms 768 KB
10_random_04.txt AC 6 ms 768 KB
10_random_05.txt AC 6 ms 896 KB
20_max_01.txt AC 830 ms 41516 KB
20_max_02.txt AC 806 ms 41644 KB
20_max_03.txt AC 934 ms 41772 KB
20_max_04.txt AC 809 ms 41516 KB
20_max_05.txt AC 1094 ms 42284 KB
30_overflow_01.txt AC 774 ms 40876 KB
30_overflow_02.txt AC 759 ms 40876 KB
40_dmax_01.txt AC 1446 ms 41132 KB
40_dmax_02.txt AC 1454 ms 41132 KB
40_dmax_03.txt AC 1454 ms 41132 KB
50_prime_01.txt AC 816 ms 41644 KB
50_prime_02.txt AC 874 ms 41772 KB
50_prime_03.txt AC 890 ms 41260 KB
60_prime_pow_01.txt AC 876 ms 41132 KB
60_prime_pow_02.txt AC 901 ms 41772 KB
60_prime_pow_03.txt AC 870 ms 40748 KB
70_one_01.txt AC 669 ms 41516 KB