Data update

Task/Josephus-problem/Prolog/josephus-problem-1.pro

@@ -0,0 +1,15 @@
+josephus(N, K, Survivors) :- josephus(N, K, 1, Survivors).
+
+:- table josephus/4.
+josephus(N, K, M, Survivors) :-
+    K > 0,
+    N > 0,
+    N0 is N - 1,
+    (   M = N
+    ->  numlist(0, N0, Survivors)
+    ;   josephus(N0, K, M, Survivors0),
+        findall(Survivor, (
+            member(Survivor0, Survivors0),
+            Survivor is (Survivor0 + K) mod N
+        ), Survivors)
+    ).

Task/Josephus-problem/Prolog/josephus-problem-2.pro

@@ -0,0 +1,5 @@
+?- josephus(41, 3, Survivors).
+Survivors = [30].
+
+?- josephus(41, 3, 5, Survivors).
+Survivors = [3, 15, 21, 30, 34].