求和？

patagonia2

有一个类似这样的大文件

a 11 23 34 22 34 56
b 23 46 32 64 67 34
c 64 67 34 11 23 34
a 12 33 35 22 39 36
b 21 41 12 61 62 24
c 25 17 14 21 22 14
...


文件的行和列都比较多，
想分类求和，结果如下：

a 23 56 69 44 73 92
b 44 87 44 125 129 58
c 89 84 48 33 45 48
......

请问怎么实现
谢谢！

q1208c

回复 1# patagonia2

没看懂你的求和算法 。。。
   

patagonia2

回复 2# q1208c


a: 11 + 12 -> 23
23 + 33 -> 56

a 11 23 34 22 34 56
b 23 46 32 64 67 34
c 64 67 34 11 23 34
a 12 33 35 22 39 36


结果如下：

a 23 56 69 44 73 92
b 44 87 44 125 129 58
c 89 84 48 33 45 48
......

q1208c

回复 3# patagonia2

如果你的文件不是太大，还好办。

如果文件太大了， 或者行太多了， 很可能内存不够。 需要使用临时文件了。

我已经2年多没写过 erlang 的代码了。 怕是都不记得怎么写了。
   

shijiang1130

回复 4# q1208c 写一个，写一个，写一个


   

q1208c

回复 5# shijiang1130

你来。
   

shijiang1130

回复 6# q1208c

想写来着，但不知道怎么匹配 “...”，不但要自己写，还要自己造数据，工程太麻烦
   

q1208c

回复 7# shijiang1130
可以先用楼主的数据呀。

够用了。

   

shijiang1130

1. -module(t).
   
2. 
   
3. -compile(export_all).
   
4. 
   
5. get_same_seq() ->
   
6.     {ok, F} = file:open("in.txt", [binary, read]),
   
7.     all_line(F).
   
8. 
   
9. all_line(F) ->
   
10.     case io:get_line(F, "") of
    
11.       eof -> file:close(F);
    
12.       L ->
    
13.           Line = binary:replace(L, <<"\n">>, <<>>),
    
14.           [N | V] = binary:split(Line, <<" ">>, [global]),
    
15.           case ets:lookup(sum, N) of
    
16.             [{N, Old}] ->
    
17.                 New = [all_line_1(V1) || V1 <- V],
    
18.                 %[V1,V2,V3,V4,V5,V6]  = Old,
    
19.                 %io:format("Old: ~p ~p ~p ~p ~p ~p ~n",[V1,V2,V3,V4,V5,V6]),
    
20.                 Add = lists:zipwith(fun (C1, C2) ->
    
21.                                             list_to_integer(C1) +
    
22.                                               list_to_integer(C2)
    
23.                                     end,
    
24.                                     New, Old),
    
25.                 Add1 = [all_line_2(V2) || V2 <- Add],
    
26.                 ets:insert(sum, {N, Add1});
    
27.             [] ->
    
28.                 Init = [all_line_3(V3) || V3 <- V],
    
29.                 ets:insert(sum, {N, Init})
    
30.           end,
    
31.           all_line(F)
    
32.     end.
    
33. 
    
34. all_line_1(A1) -> binary_to_list(A1).
    
35. 
    
36. all_line_2(_T) -> integer_to_list(_T).
    
37. 
    
38. all_line_3(A1) -> binary_to_list(A1).
    
39. 
    
40. p([H | T]) ->
    
41.     case H of
    
42.       {N, [V1, V2, V3, V4, V5, V6]} ->
    
43.           io:format("~p: ~p ~p ~p ~p ~p ~p ~n",
    
44.                     [N, V1, V2, V3, V4, V5, V6]);
    
45.       {<<>>, []} -> skip
    
46.     end,
    
47.     p(T);
    
48. p([]) -> done.
    
49. 
    
50. main() ->
    
51.     ets:new(sum,
    
52.             [named_table, public, {write_concurrency, true}]),
    
53.     get_same_seq(),
    
54.     Result = ets:tab2list(sum),
    
55.     p(Result).
    

复制代码

shijiang1130

1. 100> t:main().
   
2. <<"b">>: "396" "783" "396" "1125" "1161" "522"
   
3. <<"c">>: "801" "756" "432" "288" "405" "432"
   
4. <<"a">>: "207" "504" "621" "396" "657" "828"
   

复制代码