Главная Обзор Помощь
Вход
n4u
/
game_svg_erl_demo
2
0
Ответвить 0
Файлы Задачи 0 Запросы на слияние 0 Вики
Дерево: e5a19e97a6
Ветки Метки
game_svg_erl_de...
/
apps
/
server
/
src
/
nsg_matrix_elimination.erl

nsg_matrix_elimination.erl 13 KB
История Исходник

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136 
  1. %%% -------------------------------------------------------------------
    2. 

  2. %%% Author  : Sergii Polkovnikov <serge.polkovnikov@gmail.com>
    3. 

  3. %%% Description : The interface to the elimination tournaments plans matrix.
    4. 

  4. %%%
    5. 

  5. %%% Created : Feb 15, 2013
    6. 

  6. %%% -------------------------------------------------------------------
    7. 

  7. 

  8. -module(nsg_matrix_elimination).
    9. 

  9. 

  10. -export([get_plan/4,
    11. 

  11.          get_prize_fund/4,
    12. 

  12.          get_plan_desc/4,
    13. 

  13.          get_tours/3]).
    14. 

  14. 

  15. get_plan(GameType, KakushPerRound, RegistrantsNum, Tours) ->
    16. 

  16.     case lists:keyfind({KakushPerRound, RegistrantsNum, Tours}, 1, tournament_matrix(GameType)) of
    17. 

  17.         false -> {error, no_such_plan};
    18. 

  18.         {_NQ, _K, Plan, _String} -> {ok, Plan}
    19. 

  19.     end.
    20. 

  20. 

  21. get_prize_fund(GameType, KakushPerRound, RegistrantsNum, Tours) ->
    22. 

  22.     case lists:keyfind({KakushPerRound, RegistrantsNum, Tours}, 1, tournament_matrix(GameType)) of
    23. 

  23.         false -> {error, no_such_plan};
    24. 

  24.         {_NQ, K, _Plan, _String} -> {ok, K}
    25. 

  25.     end.
    26. 

  26. 

  27. get_plan_desc(GameType, KakushPerRound, RegistrantsNum, Tours) ->
    28. 

  28.     case lists:keyfind({KakushPerRound, RegistrantsNum, Tours}, 1, tournament_matrix(GameType)) of
    29. 

  29.         false -> {error, no_such_plan};
    30. 

  30.         {_NQ, _K, _Plan, String} -> {ok, String}
    31. 

  31.     end.
    32. 

  32. 

  33. get_tours(GameType, KakushPerRound, RegistrantsNum) ->
    34. 

  34.     [T || {{Q, N, T}, _, _, _String} <- tournament_matrix(GameType), Q==KakushPerRound, N==RegistrantsNum].
    35. 

  35. 

  36. tournament_matrix(game_okey) ->
    37. 

  37.     [%% Quota Pl.No  Fund   1          2         3         4         5         6         7         8
    38. 

  38.      { {  8,   16,3}, 54,   [ne      , {ce,  4}, {te,  1}                                                  ], ["yok","1.ler","Final"]},
    39. 

  39.      { { 10,   16,3}, 72,   [ne      , {ce,  4}, {te,  1}                                                  ], ["yok","1.ler","Final"]},
    40. 

  40.      { {  2,   64,4}, 80,   [ne      , {ce, 16}, {te,  1}, {te,  1}                                        ], ["yok","yok","1.ler","Final"]},
    41. 

  41.      { {  4,   64,4}, 98,   [ne      , {ce, 16}, {te,  1}, {te,  1}                                        ], ["yok","yok","1.ler","Final"]},
    42. 

  42.      { {  6,   64,4}, 158,  [ne      , {ce, 16}, {te,  1}, {te,  1}                                        ], ["yok","yok","1.ler","Final"]},
    43. 

  43.      { {  8,   64,4}, 223,  [ne      , {ce, 16}, {te,  1}, {te,  1}                                        ], ["yok","yok","1.ler","Final"]},
    44. 

  44.      { { 10,   64,4}, 295,  [ne      , {ce, 16}, {te,  1}, {te,  1}                                        ], ["yok","yok","1.ler","Final"]},
    45. 

  45.      { {  2,  128,5}, 81,   [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}                              ], ["yok","yok","1.ler","Final"]},
    46. 

  46.      { {  4,  128,5}, 162,  [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}                              ], []},
    47. 

  47.      { {  6,  128,5}, 260,  [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}                              ], []},
    48. 

  48.      { {  8,  128,5}, 368,  [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}                              ], []},
    49. 

  49.      { { 10,  128,5}, 487,  [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}                              ], []},
    50. 

  50.      { {  2,  256,5}, 198,  [ne      , {ce, 64}, {te,  1}, {te,  1}, {te,  1}                              ], []},
    51. 

  51.      { {  4,  256,5}, 397,  [ne      , {ce, 64}, {te,  1}, {te,  1}, {te,  1}                              ], []},
    52. 

  52.      { {  6,  256,5}, 635,  [ne      , {ce, 64}, {te,  1}, {te,  1}, {te,  1}                              ], []},
    53. 

  53.      { {  8,  256,5}, 899,  [ne      , {ce, 64}, {te,  1}, {te,  1}, {te,  1}                              ], []},
    54. 

  54.      { { 10,  256,5}, 1190, [ne      , {ce, 64}, {te,  1}, {te,  1}, {te,  1}                              ], []},
    55. 

  55.      { {  2,  256,7}, 283,  [ne      , {ce,128}, ne      , {ce, 64}, {te,  1}, {te,  1}, {te,   1}         ], []},
    56. 

  56.      { {  4,  256,7}, 566,  [ne      , {ce,128}, ne      , {ce, 64}, {te,  1}, {te,  1}, {te,   1}         ], []},
    57. 

  57.      { {  6,  256,7}, 907,  [ne      , {ce,128}, ne      , {ce, 64}, {te,  1}, {te,  1}, {te,   1}         ], []},
    58. 

  58.      { {  8,  256,7}, 1285, [ne      , {ce,128}, ne      , {ce, 64}, {te,  1}, {te,  1}, {te,   1}         ], []},
    59. 

  59.      { { 10,  256,7}, 1701, [ne      , {ce,128}, ne      , {ce, 64}, {te,  1}, {te,  1}, {te,   1}         ], []},
    60. 

  60.      { {  2,  512,6}, 326,  [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","ilk 2","ilk 2","ilk 2","1.ler","Final"]},
    61. 

  61.      { {  4,  512,6}, 652,  [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","ilk 2","ilk 2","ilk 2","1.ler","Final"]},
    62. 

  62.      { {  6,  512,6}, 1043, [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","ilk 2","ilk 2","ilk 2","1.ler","Final"]},
    63. 

  63.      { {  8,  512,6}, 1478, [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","ilk 2","ilk 2","ilk 2","1.ler","Final"]},
    64. 

  64.      { { 10,  512,6}, 1957, [{te,  2}, {te,  2}, {te,  2}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","ilk 2","ilk 2","ilk 2","1.ler","Final"]},
    65. 

  65.      { {  2,  512,8}, 582,  [ne      , {ce,256}, ne      , {ce,128}, {te,  2}, {te,  1}, {te,  1}, {te,  1}], []},
    66. 

  66.      { {  4,  512,8}, 1163, [ne      , {ce,256}, ne      , {ce,128}, {te,  2}, {te,  1}, {te,  1}, {te,  1}], []},
    67. 

  67.      { {  6,  512,8}, 1861, [ne      , {ce,256}, ne      , {ce,128}, {te,  2}, {te,  1}, {te,  1}, {te,  1}], []},
    68. 

  68.      { {  8,  512,8}, 2637, [ne      , {ce,256}, ne      , {ce,128}, {te,  2}, {te,  1}, {te,  1}, {te,  1}], []},
    69. 

  69.      { { 10,  512,8}, 3490, [ne      , {ce,256}, ne      , {ce,128}, {te,  2}, {te,  1}, {te,  1}, {te,  1}], []},
    70. 

  70.      { {  2, 1024,6}, 795,  [ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], []},
    71. 

  71.      { {  4, 1024,6}, 1589, [ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], []},
    72. 

  72.      { {  6, 1024,6}, 2543, [ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], []},
    73. 

  73.      { {  8, 1024,6}, 3602, [ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], []},
    74. 

  74.      { { 10, 1024,6}, 4767, [ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], []},
    75. 

  75.      { {  2, 1024,8}, 1135, [ne      , {ce,512}, ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}], []},
    76. 

  76.      { {  4, 1024,8}, 2271, [ne      , {ce,512}, ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}], []},
    77. 

  77.      { {  6, 1024,8}, 3633, [ne      , {ce,512}, ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}], []},
    78. 

  78.      { {  8, 1024,8}, 5147, [ne      , {ce,512}, ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}], []},
    79. 

  79.      { { 10, 1024,8}, 6812, [ne      , {ce,512}, ne      , {ce,256}, {te,  1}, {te,  1}, {te,  1}, {te,  1}], []},
    80. 

  80.      { {  2, 2048,6}, 1135, [{te,  2}, {te,  1}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","1.ler","1.ler","1.ler","1.ler","Final"]},
    81. 

  81.      { {  4, 2048,6}, 2271, [{te,  2}, {te,  1}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","1.ler","1.ler","1.ler","1.ler","Final"]},
    82. 

  82.      { {  6, 2048,6}, 3633, [{te,  2}, {te,  1}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","1.ler","1.ler","1.ler","1.ler","Final"]},
    83. 

  83.      { {  8, 2048,6}, 5147, [{te,  2}, {te,  1}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","1.ler","1.ler","1.ler","1.ler","Final"]},
    84. 

  84.      { { 10, 2048,6}, 6812, [{te,  2}, {te,  1}, {te,  1}, {te,  1}, {te,  1}, {te,  1}                    ], ["ilk 2","1.ler","1.ler","1.ler","1.ler","Final"]},
    85. 

  85.      { {  2, 2048,8}, 1987, [ne      , {ce,1024},{te,  2}, {te,  2}, {te,  1}, {te,  1}, {te,  1}, {te,  1}], []},
    86. 

  86.      { {  4, 2048,8}, 3974, [ne      , {ce,1024},{te,  2}, {te,  2}, {te,  1}, {te,  1}, {te,  1}, {te,  1}], []},
    87. 

  87.      { {  2, 1020,1}, 9359, [{te,1}                                                                        ], []},
    88. 

  88.      { {  4, 1020,1}, 8359, [{te,1}                                                                        ], []},
    89. 

  89.      { {  6, 1020,1}, 7359, [{te,1}                                                                        ], []},
    90. 

  90.      { {  8, 1020,1}, 6359, [{te,1}                                                                        ], []},
    91. 

  91.      { { 10, 1020,1}, 5359, [{te,1}                                                                        ], []},
    92. 

  92.      { {  2, 1020,2}, 5959, [ne      , {te,1}                                                              ], []},
    93. 

  93.      { {  4, 1020,2}, 5859, [ne      , {te,1}                                                              ], []},
    94. 

  94.      { {  6, 1020,2}, 5759, [ne      , {te,1}                                                              ], []},
    95. 

  95.      { {  8, 1020,2}, 5659, [ne      , {te,1}                                                              ], []},
    96. 

  96.      { { 10, 1020,2}, 5559, [ne      , {te,1}                                                              ], []}, 
    97. 

  97.      { {  2, 1020,3}, 4359, [ne      , ne       , {te,1}                                                   ], []},
    98. 

  98.      { {  4, 1020,3}, 4359, [ne      , ne       , {te,1}                                                   ], []},
    99. 

  99.      { {  6, 1020,3}, 4359, [ne      , ne       , {te,1}                                                   ], []},
    100. 

  100.      { {  8, 1020,3}, 4359, [ne      , ne       , {te,1}                                                   ], []},
    101. 

  101.      { { 10, 1020,3}, 4359, [ne      , ne       , {te,1}                                                   ], []},
    102. 

  102.      { {  2, 1020,4}, 3359, [ne      , ne       , ne     , {te,1}                                          ], []},
    103. 

  103.      { {  4, 1020,4}, 3359, [ne      , ne       , ne     , {te,1}                                          ], []},
    104. 

  104.      { {  6, 1020,4}, 3359, [ne      , ne       , ne     , {te,1}                                          ], []},
    105. 

  105.      { {  8, 1020,4}, 3359, [ne      , ne       , ne     , {te,1}                                          ], []},
    106. 

  106.      { {  2, 1020,6}, 2359, [ne      , ne       , ne     , ne      , ne      , {te,1}                      ], []},
    107. 

  107.      { {  4, 1020,6}, 2359, [ne      , ne       , ne     , ne      , ne      , {te,1}                      ], []},
    108. 

  108.      { {  6, 1020,6}, 2359, [ne      , ne       , ne     , ne      , ne      , {te,1}                      ], []},
    109. 

  109.      { {  2,  500,1}, 1359, [{te,1}                                                                        ], []},
    110. 

  110.      { {  4,  500,2}, 5959, [ne      , {te,1}                                                              ], []},
    111. 

  111.      { {  6,  500,3}, 4859, [ne      , ne       , {te,1}                                                   ], []},
    112. 

  112.      { {  8,  500,4}, 3759, [ne      , ne       , ne     , {te,1}                                          ], []},
    113. 

  113.      { { 10,  500,6}, 2359, [ne      , ne       , ne     , ne      , ne      , {te,1}                      ], []},
    114. 

  114.      { {  2,  400,1}, 4359, [{te,1}                                                                        ], []},
    115. 

  115.      { {  4,  400,2}, 3359, [ne      , {te,1}                                                              ], []},
    116. 

  116.      { {  6,  400,3}, 2359, [ne      , ne       , {te,1}                                                   ], []},
    117. 

  117.      { {  8,  400,4}, 1359, [ne      , ne       , ne     , {te,1}                                          ], []},
    118. 

  118.      { { 10,  400,6}, 3359, [ne      , ne       , ne     , ne      , ne      , {te,1}                      ], []},
    119. 

  119.      { {  2,  300,1}, 2359, [{te,1}                                                                        ], []},
    120. 

  120.      { {  4,  300,2}, 1359, [ne      , {te,1}                                                              ], []},
    121. 

  121.      { {  6,  300,3}, 0959, [ne      , ne       , {te,1}                                                   ], []},
    122. 

  122.      { {  8,  300,4}, 0359, [ne      , ne       , ne     , {te,1}                                          ], []},
    123. 

  123.      { { 10,  300,6}, 1959, [ne      , ne       , ne     , ne      , ne      , {te,1}                      ], []},
    124. 

  124.      { {  2,  200,1}, 0859, [{te,1}                                                                        ], []},
    125. 

  125.      { {  4,  200,2}, 0759, [ne      , {te,1}                                                              ], []},
    126. 

  126.      { {  6,  200,3}, 0659, [ne      , ne       , {te,1}                                                   ], []},
    127. 

  127.      { {  8,  200,4}, 0559, [ne      , ne       , ne     , {te,1}                                          ], []},
    128. 

  128.      { { 10,  200,6}, 0459, [ne      , ne       , ne     , ne      , ne      , {te,1}                      ], []},
    129. 

  129.      { { 10,   40,2}, 0459, [ne      , {te,1}                                                              ], []}
    130. 

  130.   ];
    131. 

  131. 

  132. tournament_matrix(game_tavla) ->
    133. 

  133.     [%% Quota Pl.No  Fund    1          2         3         4         5         6         7         8
    134. 

  134.      { { 10,   16,4}, 54,   [{te,  1} , {te,  1}, {te,  1}, {te,  1}                                       ], ["1.ler","1.ler","1.ler","Final"]}
    135. 

  135.     ].
    136. 

  136.