Submission #1553681


Source Code Expand

$PI=2*atan2 1,0;
($x1,$y1,$x2,$y2)=glob<>;
($xl,$xr)=sort{$a-$b}$x1,$x2;
($yl,$yr)=sort{$a-$b}$y1,$y2;
<>;
@y=map{s/.* //r}sort{$a-$b}grep{/ /;$xl<=$`&&$`<=$xr&&$yl<=$'&&$'<=$yr}<>;
if($xl==$xr||$yl==$yr){
	print 100*($xr-$xl+$yr-$yl)+@y*10*($PI-2)
}else{
	@y=reverse@y if($x1-$x2)*($y1-$y2)<0;
	@d=-inf;
	for(@y){
		for($l=0,$r=@d;$m=$l+$r>>1,$r-$l>1;){
			${$d[$m]<$_?l:r}=$m;
		}
		$d[$m+1]=$_;
	}
	if($xr-$xl+1==$#d||$yr-$yl+1==$#d){
		print 100*($xr-$xl+$yr-$yl)+($#d-1)*5*($PI-4)+10*($PI-2)
	}else{
		print 100*($xr-$xl+$yr-$yl)+$#d*5*($PI-4)
	}
}

Submission Info

Submission Time
Task C - Fountain Walk
User x20
Language Perl (v5.18.2)
Score 900
Code Size 577 Byte
Status AC
Exec Time 1988 ms
Memory 57724 KB

Compile Error

Unquoted string "l" may clash with future reserved word at ./Main.pl line 14.
Unquoted string "r" may clash with future reserved word at ./Main.pl line 14.
./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 900 / 900
Status
AC × 3
AC × 47
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.txt, sample_01.txt, sample_02.txt, sample_03.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt, subtask_1_08.txt, subtask_1_09.txt, subtask_1_10.txt, subtask_1_11.txt, subtask_1_12.txt, subtask_1_13.txt, subtask_1_14.txt, subtask_1_15.txt, subtask_1_16.txt, subtask_1_17.txt, subtask_1_18.txt, subtask_1_19.txt, subtask_1_20.txt, subtask_1_21.txt, subtask_1_22.txt, subtask_1_23.txt, subtask_1_24.txt, subtask_1_25.txt, subtask_1_26.txt, subtask_1_27.txt, subtask_1_28.txt, subtask_1_29.txt, subtask_1_30.txt, subtask_1_31.txt, subtask_1_32.txt, subtask_1_33.txt, subtask_1_34.txt, subtask_1_35.txt, subtask_1_36.txt, subtask_1_37.txt, subtask_1_38.txt, subtask_1_39.txt, subtask_1_40.txt, subtask_1_41.txt
Case Name Status Exec Time Memory
sample_01.txt AC 6 ms 896 KB
sample_02.txt AC 5 ms 768 KB
sample_03.txt AC 5 ms 768 KB
subtask_1_01.txt AC 5 ms 768 KB
subtask_1_02.txt AC 5 ms 768 KB
subtask_1_03.txt AC 5 ms 768 KB
subtask_1_04.txt AC 5 ms 768 KB
subtask_1_05.txt AC 5 ms 768 KB
subtask_1_06.txt AC 5 ms 768 KB
subtask_1_07.txt AC 5 ms 768 KB
subtask_1_08.txt AC 5 ms 768 KB
subtask_1_09.txt AC 69 ms 11008 KB
subtask_1_10.txt AC 135 ms 22272 KB
subtask_1_11.txt AC 36 ms 6272 KB
subtask_1_12.txt AC 1988 ms 57700 KB
subtask_1_13.txt AC 173 ms 23808 KB
subtask_1_14.txt AC 83 ms 11392 KB
subtask_1_15.txt AC 43 ms 5760 KB
subtask_1_16.txt AC 1894 ms 57700 KB
subtask_1_17.txt AC 112 ms 19712 KB
subtask_1_18.txt AC 122 ms 15616 KB
subtask_1_19.txt AC 125 ms 15360 KB
subtask_1_20.txt AC 1899 ms 57700 KB
subtask_1_21.txt AC 1859 ms 57700 KB
subtask_1_22.txt AC 1895 ms 57700 KB
subtask_1_23.txt AC 1894 ms 57700 KB
subtask_1_24.txt AC 5 ms 768 KB
subtask_1_25.txt AC 5 ms 768 KB
subtask_1_26.txt AC 5 ms 768 KB
subtask_1_27.txt AC 5 ms 768 KB
subtask_1_28.txt AC 232 ms 31104 KB
subtask_1_29.txt AC 230 ms 30976 KB
subtask_1_30.txt AC 1440 ms 52452 KB
subtask_1_31.txt AC 578 ms 52476 KB
subtask_1_32.txt AC 1607 ms 57724 KB
subtask_1_33.txt AC 1461 ms 53372 KB
subtask_1_34.txt AC 1026 ms 52476 KB
subtask_1_35.txt AC 1362 ms 52604 KB
subtask_1_36.txt AC 1131 ms 52476 KB
subtask_1_37.txt AC 1600 ms 54268 KB
subtask_1_38.txt AC 1509 ms 53244 KB
subtask_1_39.txt AC 1546 ms 53116 KB
subtask_1_40.txt AC 1557 ms 53244 KB
subtask_1_41.txt AC 1031 ms 53372 KB