langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Josephus-problem/Vedit-macro-language/josephus-problem.vedit
+++ b/Task/Josephus-problem/Vedit-macro-language/josephus-problem.vedit
@ -0,0 +1,20 @@
+#1 = 41		// number of prisoners
+#2 = 3		// step size
+#3 = 1		// number of survivors
+
+Buf_Switch(Buf_Free)
+for (#5=0; #5<#1; #5++) {
+    Ins_Text("prisoner ") Num_Ins(#5, LEFT)
+}
+
+BOF
+#4=1
+while (#1 > #3) {
+    if (#4++ % #2 == 0) {
+	Del_Line(1)
+        #1--
+    } else {
+	Line(1)
+    }
+    if (At_EOF) { BOF }
+}