七周七语言——Erlang第二天自习

标签：erlang   函数式编程   

键值对

题目：考虑包含键-值元组的列表，如[{erlang, “a functinal language”}, {ruby, “an OO language”}]。写一个函数，接受列表和键为参数，返回该键对应的值。

get_value(Map, Key) ->
  element(2, hd(lists:dropwhile(fun({K, _})-> Key /= K  end, Map) ++ [{[],[]}])). %% ++为列表拼接

lists:dropwhile拿掉与给定Key不符合的元素，然后取列表的第一个元素，就是要找的键值对。注意找不到对应的Key的处理，上述代码在列表尾加上空元组，减少判断。

购物列表

题目：考虑形如[{item quantity price}, …]的购物列表。写一个列表解析，构建形如[{item total_price}, …]的商品列表，其中total_price是quantity乘以price

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

简单的列表解析。||语法与lists:map等价。

井字棋

题目：读取一个大小为9的列表或者元组，表示井字棋(tic-tac-toe)的棋盘。若胜负已定，则返回胜者(x或o);若再没有可走的棋，则返回cat；若两方都还没赢，则返回no_winner。

tictactoe(Board)->
  DealBoard = Board
    ++ fun([[A1, B1, C1],[A2, B2, C2],[A3, B3, C3]])-> [[A1, A2, A3], [B1, B2, B3], [C1, C2, C3]] end(Board)
    ++ fun([[A1, _, C1],[_, B2, _],[A3, _, C3]])-> [[A1, B2, C3], [A3, B2, C1]] end(Board),
   fun
     CheckDealBoard([[x, x, x] | _], _) -> x;
     CheckDealBoard([[o, o, o] | _], _) -> o;
     CheckDealBoard([], true) -> no_winner;
     CheckDealBoard([], false) -> cat;
     CheckDealBoard([Hd | Tail], CanWin)
      ->
       %% if 使用的是哨兵，不能在其中调用函数，以免产生副作用
       if
         CanWin -> CheckDealBoard(Tail, true); %% 匿名函数递归
         true -> CheckDealBoard(Tail, not lists:any(fun(x)-> true; (o)->true; (_)->false end, Hd))
       end
  end(DealBoard, false).

输入的是一个3*3的二维列表，先对列表进行处理，在列表尾拼接一个转置的棋盘，再拼接斜对角线的两组。此时处理好的列表包含8组元素，依次递归检查，注意对于是否有棋可走的判断，如有某行某列某对角线只有一种棋子，就认为有棋可走，用CanWin来记录标示是否有棋可走。

七周七语言——Erlang第二天自习

标签：erlang   函数式编程   

原文地址：http://blog.csdn.net/nonekey/article/details/43570291