亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 求和？ [打印本頁]
作者: patagonia2    時間: 2016-04-19 10:25
標(biāo)題: 求和？
有一個類似這樣的大文件

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
...


文件的行和列都比較多，
想分類求和，結(jié)果如下：

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

請問怎么實現(xiàn)
謝謝！
作者: q1208c    時間: 2016-04-19 16:18
回復(fù) 1# patagonia2

沒看懂你的求和算法 。。。
   
作者: patagonia2    時間: 2016-04-19 20:32
回復(fù) 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


結(jié)果如下：

a 23 56 69 44 73 92
b 44 87 44 125 129 58
c 89 84 48 33 45 48
......
作者: q1208c    時間: 2016-04-20 11:35
回復(fù) 3# patagonia2

如果你的文件不是太大，還好辦。

如果文件太大了， 或者行太多了， 很可能內(nèi)存不夠。 需要使用臨時文件了。

我已經(jīng)2年多沒寫過 erlang 的代碼了。 怕是都不記得怎么寫了。
   
作者: shijiang1130    時間: 2016-04-20 11:47
回復(fù) 4# q1208c 寫一個，寫一個，寫一個


   
作者: q1208c    時間: 2016-04-20 12:11
回復(fù) 5# shijiang1130

你來。
   
作者: shijiang1130    時間: 2016-04-20 12:54
回復(fù) 6# q1208c

想寫來著，但不知道怎么匹配 “...”，不但要自己寫，還要自己造數(shù)據(jù)，工程太麻煩
   
作者: q1208c    時間: 2016-04-20 13:01
回復(fù) 7# shijiang1130
可以先用樓主的數(shù)據(jù)呀。

夠用了。

   
作者: shijiang1130    時間: 2016-04-20 17:55
  1. -module(t).

  3. -compile(export_all).

  5. get_same_seq() ->
  6.     {ok, F} = file:open("in.txt", [binary, read]),
  7.     all_line(F).

  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.

  34. all_line_1(A1) -> binary_to_list(A1).

  36. all_line_2(_T) -> integer_to_list(_T).

  38. all_line_3(A1) -> binary_to_list(A1).

  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.

  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).
復(fù)制代碼
作者: shijiang1130    時間: 2016-04-20 17:56
  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"
復(fù)制代碼
作者: shijiang1130    時間: 2016-04-20 17:56
  1. a 11 23 34 22 34 56
  2. b 23 46 32 64 67 34
  3. c 64 67 34 11 23 34
  4. a 12 33 35 22 39 36
  5. b 21 41 12 61 62 24
  6. c 25 17 14 21 22 14
  7. a 11 23 34 22 34 56
  8. b 23 46 32 64 67 34
  9. c 64 67 34 11 23 34
  10. a 12 33 35 22 39 36
  11. b 21 41 12 61 62 24
  12. c 25 17 14 21 22 14
  13. a 11 23 34 22 34 56
  14. b 23 46 32 64 67 34
  15. c 64 67 34 11 23 34
  16. a 12 33 35 22 39 36
  17. b 21 41 12 61 62 24
  18. c 25 17 14 21 22 14
  19. a 11 23 34 22 34 56
  20. b 23 46 32 64 67 34
  21. c 64 67 34 11 23 34
  22. a 12 33 35 22 39 36
  23. b 21 41 12 61 62 24
  24. c 25 17 14 21 22 14
  25. a 11 23 34 22 34 56
  26. b 23 46 32 64 67 34
  27. c 64 67 34 11 23 34
  28. a 12 33 35 22 39 36
  29. b 21 41 12 61 62 24
  30. c 25 17 14 21 22 14
  31. a 11 23 34 22 34 56
  32. b 23 46 32 64 67 34
  33. c 64 67 34 11 23 34
  34. a 12 33 35 22 39 36
  35. b 21 41 12 61 62 24
  36. c 25 17 14 21 22 14
  37. a 11 23 34 22 34 56
  38. b 23 46 32 64 67 34
  39. c 64 67 34 11 23 34
  40. a 12 33 35 22 39 36
  41. b 21 41 12 61 62 24
  42. c 25 17 14 21 22 14
  43. a 11 23 34 22 34 56
  44. b 23 46 32 64 67 34
  45. c 64 67 34 11 23 34
  46. a 12 33 35 22 39 36
  47. b 21 41 12 61 62 24
  48. c 25 17 14 21 22 14
  49. a 11 23 34 22 34 56
  50. b 23 46 32 64 67 34
  51. c 64 67 34 11 23 34
  52. a 12 33 35 22 39 36
  53. b 21 41 12 61 62 24
  54. c 25 17 14 21 22 14

復(fù)制代碼
作者: patagonia2    時間: 2016-04-20 20:59
回復(fù) 9# shijiang1130

-module(t).


令人興奮。
er語言不常見
但覺得語法特別的優(yōu)雅
然后就被震撼了

呵呵我要收藏
作者: patagonia2    時間: 2016-04-20 21:19
回復(fù) 11# shijiang1130

大圣你好。
乍看之下很怪
  1. binary_to_list -> list_to_integer ->  integer_to_list
復(fù)制代碼
請問大圣這種情況怎么不用這binary_to_integer處理呢
求教

   
作者: patagonia2    時間: 2016-05-24 17:31
大圣的
答案永遠是
最給力的,
學(xué)習(xí)了



歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2