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() ->
R = random:uniform(),
- if R =< 0.5 ->
+ if R =< 0.1 ->
[];
true ->
Messages = lists:map(fun(#minichat{id = Id}) -> Id end, euphorik_bd:messages(8)),
if
- R > 0.5 andalso R =< 0.8 ->
+ R > 0.1 andalso R =< 0.8 ->
tire_element_rand(1, Messages);
R > 0.8 andalso R =< 0.95 ->
tire_element_rand(2, Messages);