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/Increment-a-numerical-string/Vedit-macro-language/increment-a-numerical-string-1.vedit
+++ b/Task/Increment-a-numerical-string/Vedit-macro-language/increment-a-numerical-string-1.vedit
@ -0,0 +1 @@
+itoa(atoi(10)+1, 10)
--- a/Task/Increment-a-numerical-string/Vedit-macro-language/increment-a-numerical-string-2.vedit
+++ b/Task/Increment-a-numerical-string/Vedit-macro-language/increment-a-numerical-string-2.vedit
@ -0,0 +1,16 @@
+EOL
+do {
+    if (At_BOL) {
+	Ins_Char('1')		// add new digit
+	Break
+    }
+    Char(-1)
+    #1 = Cur_Char+1		// digit
+    #2 = 0			// carry bit
+    if (#1 > '9') {
+	#1 = '0'
+	#2 = 1
+    }
+    Ins_Char(#1, OVERWRITE)
+    Char(-1)
+} while (#2)			// repeat until no carry