14 lines
309 B
Plaintext
14 lines
309 B
Plaintext
local fn Josephus( n as int, k as int, m as int ) as int
|
|
int lm = m
|
|
for int i = m + 1 to n
|
|
lm = (lm + k) % i
|
|
next
|
|
end fn = lm
|
|
|
|
int n : n = 41 // prisoners
|
|
int k : k = 3 // order of execution
|
|
|
|
printf @"Prisoners: %d\nOrder of execution: %d\nFinal survivor: No. %d", n, k, fn Josephus( n, k, 0 )
|
|
|
|
HandleEvents
|