RosettaCodeData/Task/Josephus-problem/PARI-GP/josephus-problem.pari
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

1 line
71 B
Text

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