Submission #170027

---

Source Code Expand

($d,$w)=split ' ',<>;
$w=int($w/60*10+0.5)/10;
$p=(
	 $w<0.3?0
	:$w<1.6?1
	:$w<3.4?2
	:$w<5.5?3
	:$w<8.0?4
	:$w<10.8?5
	:$w<13.9?6
	:$w<17.2?7
	:$w<20.8?8
	:$w<24.5?9
	:$w<28.5?10
	:$w<32.7?11:12);
@D=qw(N NNE NNE NE NE ENE ENE E E ESE ESE SE SE SSE SSE S S SSW SSW SW SW WSW WSW W W WNW WNW NW NW NNW NNW N);
print +($p?$D[$d/112.5]:'C')." $p\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result