Heads-I-Lose

Artifact Content
Login

Artifact 6159369808eabf1624bd92a6177de81e661f993c6570488e2ad0a5d0b71ad35d:


-module(weather_types).
-export([weather_type/1]).

%From ihttp://www.metoffice.gov.uk/datapoint/support/code-definitions
weather_type_list() ->
	WeatherTypeList = [
		{0, "Clear night"},
		{1, "Sunny day"},
		{2, "Partly cloudy (night)"},
		{3, "Partly cloudy (day)"},
		{4, "Not used"},
		{5, "Mist"},
		{6, "Fog"},
		{7, "Cloudy"},
		{8, "Overcast"},
		{9, "Light rain shower (night)"},
		{10, "Light rain shower (day)"},
		{11, "Drizzle"},
		{12, "Light rain"},
		{13, "Heavy rain shower (night)"},
		{14, "Heavy rain shower (day)"},
		{15, "Heavy rain"},
		{16, "Sleet shower (night)"},
		{17, "Sleet shower (day)"},
		{18, "Sleet"},
		{19, "Hail shower (night)"},
		{20, "Hail shower (day)"},
		{21, "Hail"},
		{22, "Light snow shower (night)"},
		{23, "Light snow shower (day)"},
		{24, "Light snow"},
		{25, "Heavy snow shower (night)"},
		{26, "Heavy snow shower (day)"},
		{27, "Heavy snow"},
		{28, "Thunder shower (night)"},
		{29, "Thunder shower (day)"},
		{30, "Thunder"}
	],
	dict:from_list(WeatherTypeList).

weather_type(Id) ->
	WeatherTypeDict = weather_type_list(),
	try
		dict:fetch(Id, WeatherTypeDict)
	catch
		error:badarg ->
			not_available
	end.