|
: josephus(n, k)
|
|
| prisoners killed i |
|
|
n seq asListBuffer ->prisoners
|
|
ListBuffer newSize(n) ->killed
|
|
|
|
0 n 1- loop: i [
|
|
k 1- + prisoners size mod dup 1+ prisoners removeAt
|
|
killed add
|
|
] drop
|
|
|
|
System.Out "Killed : " << killed << "\nSurvivor : " << prisoners << cr
|
|
;
|