September Morn Update

Task/Josephus-problem/Visual-Basic-.NET/josephus-problem.visual

@@ -0,0 +1,25 @@
+Module Module1
+
+    'Determines the killing order numbering prisoners 1 to n
+    Sub Josephus(n As Integer, k As Integer, m As Integer)
+        Dim p = Enumerable.Range(1, n).ToList()
+        Dim i = 0
+
+        Console.Write("Prisoner killing order:")
+        While p.Count > 1
+            i = (i + k - 1) Mod p.Count
+            Console.Write(" {0}", p(i))
+            p.RemoveAt(i)
+        End While
+        Console.WriteLine()
+
+        Console.WriteLine("Survivor: {0}", p(0))
+    End Sub
+
+    Sub Main()
+        Josephus(5, 2, 1)
+        Console.WriteLine()
+        Josephus(41, 3, 1)
+    End Sub
+
+End Module