Solve Josephus Problem Using Erlang

最新推荐文章于 2023-05-28 16:59:12 发布

Genesislive

最新推荐文章于 2023-05-28 16:59:12 发布

阅读量812

点赞数

CC 4.0 BY-SA版权

分类专栏：数据结构和算法 Erlang 文章标签：算法 Erlang

本文链接：https://blog.youkuaiyun.com/Genesislive/article/details/8726795

Erlang 同时被 2 个专栏收录

7 篇文章

订阅专栏

数据结构和算法

3 篇文章

订阅专栏

本文介绍了一种通过递归和模运算解决约瑟夫问题的数学方法，详细解释了如何使用函数来实现这一过程，适用于不同人数的情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Josephus（约瑟夫）问题的数学方法

%%%----------------------------------------------------------------
%%% @author Genesislive <genesislive@126.com>
%%% 	[https://]
%%% @copyright 2013 
%%% @doc josephus problem
%%% @end
%%%----------------------------------------------------------------
-module(josephus).
 
-export([josephus_it/2, josephus/2]).
 
%%-----------------------------------------------------------------
%% @doc solve josephus problem
%%		fun(1) = 0,	一个人；
%%		fun(n) = (fun(n - 1) + m) % n,  n个人
%% @spec josephus_it(N, M) -> integer()
%% where
%%  N:integer() number of people
%%  M:integer() mth people	
%% @end
%%-----------------------------------------------------------------
josephus_it(1, _) -> 0;
josephus_it(N, M) ->
	(josephus_it(N - 1, M) + M) rem N.
 
%%-----------------------------------------------------------------
%% @doc
%% @end
%%-----------------------------------------------------------------
josephus(N, M) ->
	lists:foldl(fun(I, S) ->
				   % io:format("~p~n", [((S + M) rem I)]),
				   ((S + M) rem I)
				end, 0, lists:seq(2, N)).