Cumulative standard deviation: Difference between revisions

Content added Content deleted
Line 843: Line 843:
task() ->
task() ->
Pid = create(),
Pid = create(),
[add_print(Pid, X) || X <- [2,4,4,4,5,5,7,9]],
[add_print(Pid, X, add_sample(Pid, X)) || X <- [2,4,4,4,5,5,7,9]],
destroy( Pid ).
destroy( Pid ).






add_print( Pid, N ) ->
add_print( Pid, N, _Add ) -> io:fwrite( "Standard deviation ~p when adding ~p~n", [get(Pid), N] ).
add_sample( Pid, N ),
io:fwrite( "Standard deviation ~p when adding ~p~n", [get(Pid), N] ).


loop( Ns ) ->
loop( Ns ) ->