不限语言解决“约瑟夫问题”

;约瑟夫问题(一维数组) Algo
;Code By 老刘
;环境：MASM32 SDK
;编译指令：ml /coff 约瑟夫问题(一维数组).asm /link /subsystem:console
;参数：总人数、保留人数、每n个人杀一次的n（小于总人数）。
;参数最大值：999999。
;参考：MHL批处理标准教程之约瑟夫问题。


Include masm32rt.inc
Main Proto

.Data?
	bBuffer DB 999999 Dup (?)
	dwAll DD ?
	dwPersist DD ?
	bBuffer2 DB 11 Dup (?)
	dwCrLfZero DD ?
	dwJumpPlusOne DD ?
;End Data?

.Code
	Main Proc
		;获得参数
		Invoke ArgClC,1,Offset bBuffer2
		Sub Esp,4
		Invoke atodw_ex,Offset bBuffer2
		Add Esp,4
		Mov dwAll,Eax
		Invoke ArgClC,2,Offset bBuffer2
		Sub Esp,4
		Invoke atodw_ex,Offset bBuffer2
		Add Esp,4
		Mov dwPersist,Eax
		Invoke ArgClC,3,Offset bBuffer2
		Sub Esp,4
		Invoke atodw_ex,Offset bBuffer2
		Add Esp,4
		Mov dwJumpPlusOne,Eax
		
		;开始标记
		Lea Ebx,bBuffer
		Add Ebx,dwAll
		Mov Edx,dwAll
		Lea Esi,bBuffer
		Mov Edi,Esi
		Xor Eax,Eax
		.While Edx != dwPersist
			Mov Ecx,dwJumpPlusOne
			.Repeat
				LodSB
				Add Ecx,Eax
				.If Esi == Ebx
					Mov Esi,Edi
				.EndIf
			.UntilCxZ
			.If Esi == Edi
				Mov Byte Ptr [Ebx-1],1
			.Else
				Dec Esi
				Mov Byte Ptr [Esi],1
				Inc Esi
			.EndIf
			Dec Edx
		.EndW
		
		;输出
		Mov dwCrLfZero,000D0AH
		Xor Ecx,Ecx
		Lea Esi,bBuffer
		Dec Esi
		.While Ecx != dwAll
			Inc Ecx
			.If Byte Ptr [Esi+Ecx] == 0
				Pushad
				Invoke dw2a,Ecx,Offset bBuffer2
				Invoke StdOut,Offset bBuffer2
				Invoke StdOut,Offset dwCrLfZero
				Popad
			.EndIf
		.EndW
		
		Ret
	Main EndP
	
	Start:
		Call Main
		Invoke ExitProcess,NULL
	End Start
End
复制代码

;约瑟夫问题(单向循环链表) Algo
;Code By 老刘
;环境：MASM32 SDK
;编译指令：ml /coff 约瑟夫问题(单向循环链表).asm /link /subsystem:console
;参数：总人数、保留人数、每n个人杀一次的n（小于总人数）。
;参数最大值：1227。
;参考：MHL批处理标准教程之约瑟夫问题。


Include masm32rt.inc
Main Proto

OneWayLinkedList Struct
	Data DWord ?
	Next DWord ?
OneWayLinkedList EndS

.Data?
	dwAll DD ?
	dwPersist DD ?
	dwJump DD ?
	bBuffer2 DB 11 Dup (?)
	dwCrLfZero DD ?
	dwLinkedListHead DD ?
;End Data?

.Code
	Main Proc
		;获得并处理参数
		Invoke ArgClC,1,Offset bBuffer2
		Sub Esp,4
		Invoke atodw_ex,Offset bBuffer2
		Add Esp,4
		Mov dwAll,Eax
		Invoke ArgClC,2,Offset bBuffer2
		Sub Esp,4
		Invoke atodw_ex,Offset bBuffer2
		Add Esp,4
		Mov dwPersist,Eax
		Invoke ArgClC,3,Offset bBuffer2
		Sub Esp,4
		Invoke atodw_ex,Offset bBuffer2
		Add Esp,4
		Dec Eax
		Mov dwJump,Eax
		
		;创建链表
		Assume Ebx:Ptr OneWayLinkedList
		Assume Eax:Ptr OneWayLinkedList
		Invoke Alloc,SizeOf OneWayLinkedList
		Mov dwLinkedListHead,Eax
		Mov Ecx,dwAll
		Dec Ecx
		Xor Edx,Edx
		.Repeat
			Mov Ebx,Eax
			Inc Edx
			Push Ecx
			Push Edx
			Invoke Alloc,SizeOf OneWayLinkedList
			Pop Edx
			Pop Ecx
			Mov [Ebx].Next,Eax
			Mov [Ebx].Data,Edx
		.UntilCxZ
		Mov Ebx,Eax
		Inc Edx
		Push dwLinkedListHead
		Pop [Ebx].Next	;指向链表结点1
		Mov [Ebx].Data,Edx
		;此时Ebx指向尾结点
		
		;开始标记
		Mov Edx,dwAll
		.While Edx != dwPersist
			Mov Ecx,dwJump
			.If Ecx != 0
				.Repeat
					Mov Ebx,[Ebx].Next
				.UntilCxZ
			.EndIf
			Mov Eax,[Ebx].Next
			Mov Ecx,[Eax].Next
			Mov [Ebx].Next,Ecx
			Push Edx
			Invoke Free,Eax
			Pop Edx
			Dec Edx
		.EndW
		
		;遍历链表并输出
		Mov dwCrLfZero,000D0AH
		Mov Ecx,Ebx
		.Repeat
			Pushad
			Invoke dw2a,[Ebx].Data,Offset bBuffer2
			Invoke StdOut,Offset bBuffer2
			Invoke StdOut,Offset dwCrLfZero
			Popad
			Mov Ebx,[Ebx].Next
		.Until Ebx == Ecx
		Assume Ebx:Nothing
		Assume Eax:Nothing
		
		Ret
	Main EndP
	
	Start:
		Call Main
		Invoke ExitProcess,NULL
	End Start
End
复制代码

[int] $total=Read-Host -Prompt "请输入人数：";
[int] $remain=Read-Host -Prompt "请输入保留人数：";
[int] $step=Read-Host -Prompt "每隔几个人？：";
$counter=$step;
$arr=[int]1..$total;
$arrcount=$arr.Count;

while($total -gt $remain)
{
	for($i=0;$i -lt $arrcount;$i++) {
        if($arr[$i] -ne 0){$counter--}
        if($counter -eq 0){
            $arr[$i]=[int] 0;
            $counter=$step;
            $total--;
        }
        if($total -le $remain){break}
    }
}

foreach($s in $arr){
    if($s -ne 0){$s}
}
pause;
复制代码