[erlang] 一个时间复杂度为O(n)的取列表随机N元素算法

你采不起的野花

已于 2022-03-27 20:18:50 修改

阅读量520

点赞数 1

分类专栏： erlang 文章标签： erlang

于 2022-03-27 20:17:15 首次发布

本文链接：https://blog.csdn.net/ap114/article/details/123780394

版权

erlang 专栏收录该内容

23 篇文章 3 订阅

订阅专栏

-module(t).
-export([rand/1,rand2/1]).

rand2(List)->
	rand2(List,[],[]).

rand2([H|T],Result,Surplus)->
	case rand:uniform() > 0.5 of
		true -> rand2(T,[H|Result],Surplus);
		_ -> rand2(T,Result,[H|Surplus])
	end;
rand2(_,Result,Surplus)->
	Result++Surplus.



rand(List) ->
	Len = length(List),
	rand_list(List,Len-1,Len,[]).

rand_list(_,0,_,Result) ->
	Result;
rand_list([H|T],SelectNum,Len,Result) ->
	case rand:uniform() =< SelectNum / Len of
		true ->
			rand_list(T,SelectNum-1,Len-1,[H|Result]);
		_ ->
			rand_list(T,SelectNum,Len-1,Result)
	end.

一个时间复杂度为O(n)的取列表随机N元素算法