aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Josephus-problem/MoonRock/josephus-problem.moonrock Normal file
View file

@ -0,0 +1,22 @@
' Josephus problem
BEGIN DEF
pointer word JosephusPtr~
SUB CalcJosephus(N%, K%, M%, JosephusPtr~)
BEGIN CODE
N% = 41
K% = 3
M% = 0
CALL CalcJosephus(N%, K%, M%, VARPTR(Josephus%))
PRINT "N = " + N% + ", K = " + K% + ", Final survivor = " + Josephus% + "\n"
END
SUB CalcJosephus(N%, K%, M%, JosephusPtr~)
[JosephusPtr~] = M%
MPl1% = M% + 1
FOR A% = Mpl1% TO N%
[JosephusPtr~] = [JosephusPtr~] + K%
[JosephusPtr~] = [JosephusPtr~] MOD A%
NEXT
END SUB