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

2 lines
71 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Josephus(n, k)=if(n<2, n>0, my(t=(Josephus(n-1, k)+k)%n); if(t, t, n))