seven languages in seven weeks erlang day 2

languages.erl

-module(languages).
-export([getLanguageDescription/2]).

getLanguageDescription(Languages, Language) ->
   [FirstResult|_] = [{Description} || {LanguageName, Description} <- Languages, LanguageName == Language ],
   FirstResult.

tictactoe.erl

-module(tictactoe).
-export([state/1]).

state([Character, Character, Character, _, _, _, _, _, _]) when Character /= " " -> Character;
state([_, _, _, Character, Character, Character, _, _, _]) when Character /= " " -> Character;
state([_, _, _, _, _, _, Character, Character, Character]) when Character /= " " -> Character;
state([Character, _, _, Character, _, _, Character, _, _]) when Character /= " " -> Character;
state([_, Character, _, _, Character, _, _, Character, _]) when Character /= " " -> Character;
state([_, _, Character, _, _, Character, _, _, Character]) when Character /= " " -> Character;
state([Character, _, _, _, Character, _, _, _, Character]) when Character /= " " -> Character;
state([_, _, Character, _, Character, _, Character, _, _]) when Character /= " " -> Character;

state(Board) ->
  case lists:all(fun(Character) -> (Character /= " ") end, Board) of
    true -> nowinner;
    false -> "there are still some moves"
  end.

total_price.erl

-module(total_price).
-export([calculate_total_price_per_product/1]).

calculate_total_price_per_product(Shoppinglist) ->
    [{Item, Quantity * Price} || {Item, Quantity, Price} <- Shoppinglist].