Initial data commit

Task/Josephus-problem/Yabasic/josephus-problem.basic

@@ -0,0 +1,15 @@
+n = 41 //prisoners
+k = 3  //order of execution
+
+print "n = ", n, "\tk = ", k, "\tfinal survivor = ", Josephus(n, k, 0)
+end
+
+sub Josephus(n, k, m)
+    local lm
+	
+	lm = m
+	for i = m + 1 to n
+		lm = mod(lm + k, i)
+	next
+	return lm
+end sub