creer_users(N, []).
creer_users(0, Ids) -> lists:map(fun(#user{id = Id}) -> Id end, Ids);
creer_users(N, Ids) ->
- creer_users(N - 1, [euphorik_bd:nouveau_user(mot_rand(random:uniform(4) + 4), "", "") | Ids ]).
+ creer_users(N - 1, [euphorik_bd:nouveau_user(mot_rand(random:uniform(4) + 4), "", "", #profile{}) | Ids ]).
% crée un message aléatoire et le renvoie
% Tire au hasard de 0 à 3 messages sur les 10 derniers postés, renvoie une liste de int()
% répartition :
-% 0 : 0.5
-% 1 : 0.3
+% 0 : 0.1
+% 1 : 0.7
% 2 : 0.15
% 3 : 0.05
messages_id_rand() ->
- Messages = lists:map(fun(#minichat{id = Id}) -> Id end, euphorik_bd:messages(30)),
R = random:uniform(),
- if R =< 0.5 -> [];
- R > 0.5 andalso R =< 0.8 ->
- tire_element_rand(1, Messages);
- R > 0.8 andalso R =< 0.95 ->
- tire_element_rand(2, Messages);
+ if R =< 0.1 ->
+ [];
true ->
- tire_element_rand(3, Messages)
+ Messages = lists:map(fun(#minichat{id = Id}) -> Id end, euphorik_bd:messages(8)),
+ if
+ R > 0.1 andalso R =< 0.8 ->
+ tire_element_rand(1, Messages);
+ R > 0.8 andalso R =< 0.95 ->
+ tire_element_rand(2, Messages);
+ true ->
+ tire_element_rand(3, Messages)
+ end
end.