RosettaCodeData/Task/Josephus-problem/PARI-GP/josephus-problem.parigp

2 lines
71 B
Plaintext

Josephus(n, k)=if(n<2, n>0, my(t=(Josephus(n-1, k)+k)%n); if(t, t, n))