记一次程序的抽象-凯发app官方网站

(unofficial, preliminary data). source:

href="">

 mmu june 2002
  dy mxt   mnt   avt   hdday  avdp 1hrp tpcpn wxtype pdir avsp dir mxs skyc mxr mnr avslp
   1  88    59    74          53.8       0.00 f       280  9.6 270  17  1.6  93 23 1004.5
   2  79    63    71          46.5       0.00         330  8.7 340  23  3.3  70 28 1004.5
   3  77    55    66          39.6       0.00         350  5.0 350   9  2.8  59 24 1016.8
   4  77    59    68          51.1       0.00         110  9.1 130  12  8.6  62 40 1021.1
   5  90    66    78          68.3       0.00 tfh     220  8.3 260  12  6.9  84 55 1014.4
   6  81    61    71          63.7       0.00 rfh     030  6.2 030  13  9.7  93 60 1012.7
   7  73    57    65          53.0       0.00 rf      050  9.5 050  17  5.3  90 48 1021.8
   8  75    54    65          50.0       0.00 fh      160  4.2 150  10  2.6  93 41 1026.3
   9  86    32*   59       6  61.5       0.00         240  7.6 220  12  6.0  78 46 1018.6
  10  84    64    74          57.5       0.00 f       210  6.6 050   9  3.4  84 40 1019.0
  11  91    59    75          66.3       0.00 h       250  7.1 230  12  2.5  93 45 1012.6
  12  88    73    81          68.7       0.00 rth     250  8.1 270  21  7.9  94 51 1007.0
  13  70    59    65          55.0       0.00 h       150  3.0 150   8 10.0  83 59 1012.6
  14  61    59    60       5  55.9       0.00 rf      060  6.7 080   9 10.0  93 87 1008.6
  15  64    55    60       5  54.9       0.00 f       040  4.3 200   7  9.6  96 70 1006.1
  16  79    59    69          56.7       0.00 f       250  7.6 240  21  7.8  87 44 1007.0
  17  81    57    69          51.7       0.00 t       260  9.1 270  29* 5.2  90 34 1012.5
  18  82    52    67          52.6       0.00         230  4.0 190  12  5.0  93 34 1021.3
  19  81    61    71          58.9       0.00 h       250  5.2 230  12  5.3  87 44 1028.5
  20  84    57    71          58.9       0.00 fh      150  6.3 160  13  3.6  90 43 1032.5
  21  86    59    73          57.7       0.00 f       240  6.1 250  12  1.0  87 35 1030.7
  22  90    64    77          61.1       0.00 h       250  6.4 230   9  0.2  78 38 1026.4
  23  90    68    79          63.1       0.00 h       240  8.3 230  12  0.2  68 42 1021.3
  24  90    77    84          67.5       0.00 h       350  8.5 010  14  6.9  74 48 1018.2
  25  90    72    81          61.3       0.00         190  4.9 230   9  5.6  81 29 1019.6
  26  97*   64    81          70.4       0.00 h       050  5.1 200  12  4.0 107 45 1014.9
  27  91    72    82          69.7       0.00 rth     250 12.1 230  17  7.1  90 47 1009.0
  28  84    68    76          65.6       0.00 rtfh    280  7.6 340  16  7.0 100 51 1011.0
  29  88    66    77          59.7       0.00         040  5.4 020   9  5.3  84 33 1020.6
  30  90    45    68          63.6       0.00 h       240  6.0 220  17  4.8 200 41 1022.7
  mo  82.9  60.5  71.7    16  58.8       0.00              6.9          5.3

source

href="">sunsite.tut.fi/rec/riku/soccer_data/tab/93_94/table.eng0.01_02.html

       team            p     w    l   d    f      a     pts
    1. arsenal         38    26   9   3    79  -  36    87
    2. liverpool       38    24   8   6    67  -  30    80
    3. manchester_u    38    24   5   9    87  -  45    77
    4. newcastle       38    21   8   9    74  -  52    71
    5. leeds           38    18  12   8    53  -  37    66
    6. chelsea         38    17  13   8    66  -  38    64
    7. west_ham        38    15   8  15    48  -  57    53
    8. aston_villa     38    12  14  12    46  -  47    50
    9. tottenham       38    14   8  16    49  -  53    50
   10. blackburn       38    12  10  16    55  -  51    46
   11. southampton     38    12   9  17    46  -  54    45
   12. middlesbrough   38    12   9  17    35  -  47    45
   13. fulham          38    10  14  14    36  -  44    44
   14. charlton        38    10  14  14    38  -  49    44
   15. everton         38    11  10  17    45  -  57    43
   16. bolton          38     9  13  16    44  -  62    40
   17. sunderland      38    10  10  18    29  -  51    40
   -------------------------------------------------------
   18. ipswich         38     9   9  20    41  -  64    36
   19. derby           38     8   6  24    33  -  63    30
   20. leicester       38     5  13  20    30  -  64    28

-module(file_common).

-export([process/4, process_stream/4, is_int_string/1]).

process(filename, sortpred, isdataline, lineparser) ->

    {ok, stream} = file:open(filename, read),

    line = io:get_line(stream, ''),

    resultlist = process_stream(stream, line, isdataline, lineparser),

    hd(lists:sort(sortpred, resultlist)).

process_stream(_stream, eof, _isdataline, _lineparser)->

    [];

process_stream(stream, line, isdataline, lineparser) ->

    nextline = io:get_line(stream, ''),

    case isdataline(line) of

        false ->

            process_stream(stream, nextline, isdataline, lineparser);

        true ->

            result = lineparser(line),

            [result | process_stream(stream, nextline, isdataline, lineparser)]

    end.

is_int_string(str) ->

    try list_to_integer(str) of

        _int -> true

    catch error:_ ->

            false

    end.

1. 遍历文件，生成结果列表；

        1.1 遍历文件的每一行；

        1.2 如果该行是数据行，那么解析该行得到结果tuple，并加入到返回列表中，处理下一行；

        1.3 如果改行不是数据行，那么接着处理；

2. 对结果列表进行排序；

        2.1 使用排序谓词对列表进行排序；

3. 返回排序后列表的第一个元素；

第一版：解析行的函数包括了判断该行是否为数据行

processline(line) ->
   daystr = string:sub_word(line, 1),
   case is_int_string(daystr) of
       false ->
           nil;
       true ->
           day = list_to_integer(daystr),
           mxt = to_temp(string:sub_word(line, 2)),
           mnt = to_temp(string:sub_word(line, 3)),
           {day, mxt, mnt}
   end.

第二版：由于需要通用公共部分，发现判断该行是否是数据行是个通用的功能，不仅仅在题目一中需要用到，在题目二中也需要用到，因此把其抽象出来。

isdataline = fun(line) -> 
       file_common:is_int_string(string:sub_word(line, 1))
end,
lineparser = fun(line) ->
       daystr = string:sub_word(line, 1),
       day = list_to_integer(daystr),
       mxt = to_temp(string:sub_word(line, 2)),
       mnt = to_temp(string:sub_word(line, 3)),
       {day, mxt, mnt}
end,