/army/hwh/fm_box.erl

http://erlbattle.googlecode.com/ · Erlang · 56 lines · 52 code · 3 blank · 1 comment · 0 complexity · d8d91d5e91050af8d8a4a5632ab8eaae MD5 · raw file 

    

  1. -module(hwh.fm_box).

    2. 

  2. -compile(export_all).

    3. 

  3. 

    4. 

  4. 

    5. 

  5. 

    6. 

  6. %%{ID, X, Y}

    7. 

  7. type(triangle2) ->

    8. 

  8. 	.io:format("triangle2~n", []),

    9. 

  9. 	[

    10. 

  10. 		{1, 0, 2},

    11. 

  11. 			{2, 1,3},

    12. 

  12. 				{3, 2,4},

    13. 

  13. 			{4, 1,5},

    14. 

  14. 		{5, 0,6},

    15. 

  15. 		{6, 0,7},

    16. 

  16. 			{7, 1,8},

    17. 

  17. 				{8, 2,9},

    18. 

  18. 			{9, 1,10},

    19. 

  19. 		{10, 0,11}

    20. 

  20. 	];

    21. 

  21. type(double_w) ->

    22. 

  22. 	.io:format("double_w~n", []),

    23. 

  23. 	[

    24. 

  24. 			{1, 1, 2},

    25. 

  25. 		{2, 0, 3},

    26. 

  26. 			{3, 1, 4},

    27. 

  27. 		{4, 0, 5},

    28. 

  28. 			{5, 1, 6},

    29. 

  29. 			{6, 1, 7},

    30. 

  30. 		{7, 0, 8},

    31. 

  31. 			{8, 1, 9},

    32. 

  32. 		{9, 0, 10},

    33. 

  33. 			{10, 1, 11}

    34. 

  34. 	];

    35. 

  35. type(crane) ->

    36. 

  36. 	.io:format("crane~n", []),

    37. 

  37. 	[

    38. 

  38. 					{1, 3, 2},

    39. 

  39. 				{2, 2, 3},

    40. 

  40. 			{3, 1, 4},

    41. 

  41. 		{4, 0, 5},

    42. 

  42. 			{5, 1, 6},

    43. 

  43. 			{6, 1, 7},

    44. 

  44. 		{7, 0, 8},

    45. 

  45. 			{8, 1, 9},

    46. 

  46. 				{9, 2, 10},

    47. 

  47. 					{10, 3, 11}

    48. 

  48. 	];

    49. 

  49. type(random) ->

    50. 

  50. 	L = [triangle2, double_w, crane],

    51. 

  51. 	N = .random:uniform(length(L)),

    52. 

  52. 	type(.lists:nth(N, L));

    53. 

  53. type(random2) ->

    54. 

  54. 	L = [triangle2, double_w, crane, triangle2, double_w, crane],

    55. 

  55. 	N = .random:uniform(length(L)),

    56. 

  56. 	type(.lists:nth(N, L)).
    57.