Data commit

Task/Josephus-problem/Gambas/josephus-problem.gambas

@@ -0,0 +1,19 @@
+Public Sub Main()
+
+  Dim n As Integer = 41 'prisoners
+  Dim k As Integer = 3  'order of execution
+
+  Print "n = "; n, "k = "; k, "final survivor = "; Josephus(n, k, 0)
+
+End
+
+Function Josephus(n As Integer, k As Integer, m As Integer) As Integer
+
+  Dim lm As Integer = m
+
+  For i As Integer = m + 1 To n
+    lm = (lm + k) Mod i
+  Next
+  Return lm
+
+End Function