Submission #692043


Source Code Expand

#! /usr/bin/perl


sub get_wind_power($){

	$hutei = $_[0];
	$wind_speed = $hutei / 60 ;
	$wind_speed = sprintf("%.1f",$wind_speed);

	if (0.0  <= $wind_speed && $wind_speed <= 0.2 ){ return 0;}
	if (0.3  <= $wind_speed && $wind_speed <= 1.5 ){ return 1;}
	if (1.6  <= $wind_speed && $wind_speed <= 3.3 ){ return 2;}
	if (3.4  <= $wind_speed && $wind_speed <= 5.4 ){ return 3;}
	if (5.5  <= $wind_speed && $wind_speed <= 7.9 ){ return 4;}
	if (8.0  <= $wind_speed && $wind_speed <= 10.7){ return 5;}
	if (10.8 <= $wind_speed && $wind_speed <= 13.8){ return 6;}
	if (13.9 <= $wind_speed && $wind_speed <= 17.1){ return 7;}
	if (17.2 <= $wind_speed && $wind_speed <= 20.7){ return 8;}
	if (20.8 <= $wind_speed && $wind_speed <= 24.4){ return 9;}
	if (24.5 <= $wind_speed && $wind_speed <= 28.4){ return 10;}
	if (28.5 <= $wind_speed && $wind_speed <= 32.6){ return 11;}
	if (32.7 <= $wind_speed ){ return 12;}

}


sub get_orientation($){

	($wind_angle) = @_;
	$wind_angle = $wind_angle / 10;

	if (348.75 <= $wind_angle || $wind_angle < 11.25 ) { return "N";}
	if (11.25  <= $wind_angle && $wind_angle < 33.75 ) { return "NNE";}
	if (33.75  <= $wind_angle && $wind_angle < 56.25 ) { return "NE";}
	if (56.25  <= $wind_angle && $wind_angle < 78.75 ) { return "ENE";}
	if (78.75  <= $wind_angle && $wind_angle < 101.25) { return "E";}
	if (101.25 <= $wind_angle && $wind_angle < 123.75) { return "ESE";}
	if (123.75 <= $wind_angle && $wind_angle < 146.25) { return "SE";}
	if (146.25 <= $wind_angle && $wind_angle < 168.75) { return "SSE";}
	if (168.75 <= $wind_angle && $wind_angle < 191.25) { return "S";}
	if (191.25 <= $wind_angle && $wind_angle < 213.75) { return "SSW";}
	if (213.75 <= $wind_angle && $wind_angle < 236.25) { return "SW";}
	if (236.25 <= $wind_angle && $wind_angle < 258.75 ) { return "WSW";}
	if (258.75 <= $wind_angle && $wind_angle < 281.25 ) { return "W";}
	if (281.25 <= $wind_angle && $wind_angle < 303.75 ) { return "WNW";}
	if (303.75 <= $wind_angle && $wind_angle < 326.25 ) { return "NW";}
	if (326.25 <= $wind_angle && $wind_angle < 348.75 ) { return "NNW";}

	print $wind_angle ;
}


my $line = <STDIN>;

($deg,$dis) = split(/ +/, $line);

my $ori = get_orientation($deg);
my $wp = get_wind_power($dis);

if($wp == 0){
	print "c 0 \n";
}else{
	print $ori." ".$wp."\n";

}

Submission Info

Submission Time
Task C - 風力観測
User stokkuda1008
Language Perl (5.14.2)
Score 0
Code Size 2369 Byte
Status WA
Exec Time 32 ms
Memory 1316 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name all
Score / Max Score 0 / 100
Status
AC × 54
WA × 12
Set Name Test Cases
all 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 00_sample_04.txt, 00_sample_05.txt, 00_sample_06.txt, 00_sample_07.txt, 00_sample_08.txt, test_01.txt, test_02.txt, test_03.txt, test_04.txt, test_05.txt, test_06.txt, test_07.txt, test_08.txt, test_09.txt, test_10.txt, test_11.txt, test_12.txt, test_13.txt, test_14.txt, test_15.txt, test_16.txt, test_17.txt, test_18.txt, test_19.txt, test_20.txt, test_21.txt, test_22.txt, test_23.txt, test_24.txt, test_25.txt, test_26.txt, test_27.txt, test_28.txt, test_29.txt, test_30.txt, test_31.txt, test_32.txt, test_33.txt, test_34.txt, test_35.txt, test_36.txt, test_37.txt, test_38.txt, test_39.txt, test_40.txt, test_41.txt, test_42.txt, test_43.txt, test_44.txt, test_45.txt, test_46.txt, test_47.txt, test_48.txt, test_49.txt, test_50.txt, test_51.txt, test_52.txt, test_53.txt, test_54.txt, test_55.txt, test_56.txt, test_57.txt, test_58.txt
Case Name Status Exec Time Memory
00_sample_01.txt AC 32 ms 1256 KB
00_sample_02.txt WA 30 ms 1176 KB
00_sample_03.txt WA 29 ms 1184 KB
00_sample_04.txt WA 28 ms 1144 KB
00_sample_05.txt WA 29 ms 1264 KB
00_sample_06.txt AC 28 ms 1260 KB
00_sample_07.txt AC 29 ms 1184 KB
00_sample_08.txt AC 30 ms 1172 KB
test_01.txt WA 27 ms 1172 KB
test_02.txt AC 27 ms 1260 KB
test_03.txt AC 30 ms 1224 KB
test_04.txt AC 29 ms 1264 KB
test_05.txt AC 27 ms 1112 KB
test_06.txt AC 27 ms 1144 KB
test_07.txt WA 27 ms 1248 KB
test_08.txt WA 29 ms 1260 KB
test_09.txt AC 29 ms 1260 KB
test_10.txt WA 29 ms 1128 KB
test_11.txt WA 30 ms 1180 KB
test_12.txt WA 29 ms 1172 KB
test_13.txt WA 31 ms 1180 KB
test_14.txt AC 30 ms 1176 KB
test_15.txt AC 30 ms 1168 KB
test_16.txt AC 30 ms 1172 KB
test_17.txt AC 30 ms 1256 KB
test_18.txt AC 30 ms 1316 KB
test_19.txt AC 30 ms 1256 KB
test_20.txt AC 30 ms 1256 KB
test_21.txt AC 30 ms 1168 KB
test_22.txt AC 30 ms 1252 KB
test_23.txt AC 30 ms 1176 KB
test_24.txt AC 29 ms 1228 KB
test_25.txt WA 30 ms 1256 KB
test_26.txt AC 30 ms 1256 KB
test_27.txt AC 29 ms 1100 KB
test_28.txt AC 30 ms 1172 KB
test_29.txt AC 30 ms 1172 KB
test_30.txt AC 28 ms 1256 KB
test_31.txt AC 30 ms 1176 KB
test_32.txt AC 30 ms 1176 KB
test_33.txt AC 28 ms 1252 KB
test_34.txt AC 29 ms 1164 KB
test_35.txt AC 30 ms 1172 KB
test_36.txt AC 30 ms 1256 KB
test_37.txt AC 30 ms 1168 KB
test_38.txt AC 30 ms 1180 KB
test_39.txt AC 30 ms 1176 KB
test_40.txt AC 27 ms 1180 KB
test_41.txt AC 30 ms 1176 KB
test_42.txt AC 31 ms 1180 KB
test_43.txt AC 29 ms 1252 KB
test_44.txt AC 29 ms 1180 KB
test_45.txt AC 29 ms 1260 KB
test_46.txt AC 29 ms 1260 KB
test_47.txt AC 29 ms 1260 KB
test_48.txt AC 29 ms 1264 KB
test_49.txt AC 30 ms 1184 KB
test_50.txt AC 30 ms 1176 KB
test_51.txt AC 29 ms 1268 KB
test_52.txt AC 29 ms 1260 KB
test_53.txt AC 29 ms 1180 KB
test_54.txt AC 30 ms 1180 KB
test_55.txt AC 29 ms 1180 KB
test_56.txt AC 29 ms 1264 KB
test_57.txt AC 30 ms 1252 KB
test_58.txt AC 30 ms 1256 KB