-module(bio).
-compile(export_all).
  
init(N) ->
  Pid = spawn(bio,redMax,[N,-1]),
  creerMapLgSyr(N,Pid).

creerMapLgSyr(0,_) -> ok;
creerMapLgSyr(N,Pid)->
  spawn(bio,lgSyrInit,[N,Pid]), 
  creerMapLgSyr(N-1,Pid).

lgSyrInit(N,Pid)->
  R=lgSyr(N),
  Pid ! R.
  
lgSyr(1)-> 0 ;
lgSyr(N) when N rem 2 =:= 0 -> 1 + lgSyr(N div 2) ;
lgSyr(N) -> 1+lgSyr(3*N+1).

redMax(0,M) ->
  io:format('~p ~n',[M]);  
redMax(N,M) ->
  receive L when L > M -> redMax(N-1,L);
     _ -> redMax(N-1,M) end.