闲着没事干，写了一个sed程序实现加法（没有去使用e命令）

cjaizss

当然可以利用e来实现，然而位数自然是有上限的，我的脚本是没有上限的

1. 
   
2. # ./add.sed
   
3. 123243254456456564564565435545345  1254543345465099645656945435
   
4. 123244508999802029664211092490780
   
5. # expr 123243254456456564564565435545345 + 123243254456456564564565435545345
   
6. expr: 123243254456456564564565435545345: Numerical result out of range
   

复制代码

以下为sed脚本
注：只支持非负十进制整数
另外，乘法还在考虑中

1. 
   
2. #!/bin/sed -nrf
   
3. s/^[ \t]*([0-9]+)[ \t]+([0-9]+)[ \t]*$/\1a\2b0/
   
4. tb
   
5. d
   
6. :b
   
7. /^[0-9]+a/!d
   
8. /^0[0-9]/d
   
9. /a[0-9]+b/!d
   
10. /a0[0-9]/d
    
11. :c
    
12. s/^([^a]*)0(a.*)0b0/\1a0\2b0/;tc
    
13. s/^([^a]*)0(a.*)0b1/\1a1\2b0/;tc
    
14. s/^([^a]*)0(a.*)1b0/\1a1\2b0/;tc
    
15. s/^([^a]*)0(a.*)1b1/\1a2\2b0/;tc
    
16. s/^([^a]*)0(a.*)2b0/\1a2\2b0/;tc
    
17. s/^([^a]*)0(a.*)2b1/\1a3\2b0/;tc
    
18. s/^([^a]*)0(a.*)3b0/\1a3\2b0/;tc
    
19. s/^([^a]*)0(a.*)3b1/\1a4\2b0/;tc
    
20. s/^([^a]*)0(a.*)4b0/\1a4\2b0/;tc
    
21. s/^([^a]*)0(a.*)4b1/\1a5\2b0/;tc
    
22. s/^([^a]*)0(a.*)5b0/\1a5\2b0/;tc
    
23. s/^([^a]*)0(a.*)5b1/\1a6\2b0/;tc
    
24. s/^([^a]*)0(a.*)6b0/\1a6\2b0/;tc
    
25. s/^([^a]*)0(a.*)6b1/\1a7\2b0/;tc
    
26. s/^([^a]*)0(a.*)7b0/\1a7\2b0/;tc
    
27. s/^([^a]*)0(a.*)7b1/\1a8\2b0/;tc
    
28. s/^([^a]*)0(a.*)8b0/\1a8\2b0/;tc
    
29. s/^([^a]*)0(a.*)8b1/\1a9\2b0/;tc
    
30. s/^([^a]*)0(a.*)9b0/\1a9\2b0/;tc
    
31. s/^([^a]*)0(a.*)9b1/\1a0\2b1/;tc
    
32. s/^([^a]*)1(a.*)0b0/\1a1\2b0/;tc
    
33. s/^([^a]*)1(a.*)0b1/\1a2\2b0/;tc
    
34. s/^([^a]*)1(a.*)1b0/\1a2\2b0/;tc
    
35. s/^([^a]*)1(a.*)1b1/\1a3\2b0/;tc
    
36. s/^([^a]*)1(a.*)2b0/\1a3\2b0/;tc
    
37. s/^([^a]*)1(a.*)2b1/\1a4\2b0/;tc
    
38. s/^([^a]*)1(a.*)3b0/\1a4\2b0/;tc
    
39. s/^([^a]*)1(a.*)3b1/\1a5\2b0/;tc
    
40. s/^([^a]*)1(a.*)4b0/\1a5\2b0/;tc
    
41. s/^([^a]*)1(a.*)4b1/\1a6\2b0/;tc
    
42. s/^([^a]*)1(a.*)5b0/\1a6\2b0/;tc
    
43. s/^([^a]*)1(a.*)5b1/\1a7\2b0/;tc
    
44. s/^([^a]*)1(a.*)6b0/\1a7\2b0/;tc
    
45. s/^([^a]*)1(a.*)6b1/\1a8\2b0/;tc
    
46. s/^([^a]*)1(a.*)7b0/\1a8\2b0/;tc
    
47. s/^([^a]*)1(a.*)7b1/\1a9\2b0/;tc
    
48. s/^([^a]*)1(a.*)8b0/\1a9\2b0/;tc
    
49. s/^([^a]*)1(a.*)8b1/\1a0\2b1/;tc
    
50. s/^([^a]*)1(a.*)9b0/\1a0\2b1/;tc
    
51. s/^([^a]*)1(a.*)9b1/\1a1\2b1/;tc
    
52. s/^([^a]*)2(a.*)0b0/\1a2\2b0/;tc
    
53. s/^([^a]*)2(a.*)0b1/\1a3\2b0/;tc
    
54. s/^([^a]*)2(a.*)1b0/\1a3\2b0/;tc
    
55. s/^([^a]*)2(a.*)1b1/\1a4\2b0/;tc
    
56. s/^([^a]*)2(a.*)2b0/\1a4\2b0/;tc
    
57. s/^([^a]*)2(a.*)2b1/\1a5\2b0/;tc
    
58. s/^([^a]*)2(a.*)3b0/\1a5\2b0/;tc
    
59. s/^([^a]*)2(a.*)3b1/\1a6\2b0/;tc
    
60. s/^([^a]*)2(a.*)4b0/\1a6\2b0/;tc
    
61. s/^([^a]*)2(a.*)4b1/\1a7\2b0/;tc
    
62. s/^([^a]*)2(a.*)5b0/\1a7\2b0/;tc
    
63. s/^([^a]*)2(a.*)5b1/\1a8\2b0/;tc
    
64. s/^([^a]*)2(a.*)6b0/\1a8\2b0/;tc
    
65. s/^([^a]*)2(a.*)6b1/\1a9\2b0/;tc
    
66. s/^([^a]*)2(a.*)7b0/\1a9\2b0/;tc
    
67. s/^([^a]*)2(a.*)7b1/\1a0\2b1/;tc
    
68. s/^([^a]*)2(a.*)8b0/\1a0\2b1/;tc
    
69. s/^([^a]*)2(a.*)8b1/\1a1\2b1/;tc
    
70. s/^([^a]*)2(a.*)9b0/\1a1\2b1/;tc
    
71. s/^([^a]*)2(a.*)9b1/\1a2\2b1/;tc
    
72. s/^([^a]*)3(a.*)0b0/\1a3\2b0/;tc
    
73. s/^([^a]*)3(a.*)0b1/\1a4\2b0/;tc
    
74. s/^([^a]*)3(a.*)1b0/\1a4\2b0/;tc
    
75. s/^([^a]*)3(a.*)1b1/\1a5\2b0/;tc
    
76. s/^([^a]*)3(a.*)2b0/\1a5\2b0/;tc
    
77. s/^([^a]*)3(a.*)2b1/\1a6\2b0/;tc
    
78. s/^([^a]*)3(a.*)3b0/\1a6\2b0/;tc
    
79. s/^([^a]*)3(a.*)3b1/\1a7\2b0/;tc
    
80. s/^([^a]*)3(a.*)4b0/\1a7\2b0/;tc
    
81. s/^([^a]*)3(a.*)4b1/\1a8\2b0/;tc
    
82. s/^([^a]*)3(a.*)5b0/\1a8\2b0/;tc
    
83. s/^([^a]*)3(a.*)5b1/\1a9\2b0/;tc
    
84. s/^([^a]*)3(a.*)6b0/\1a9\2b0/;tc
    
85. s/^([^a]*)3(a.*)6b1/\1a0\2b1/;tc
    
86. s/^([^a]*)3(a.*)7b0/\1a0\2b1/;tc
    
87. s/^([^a]*)3(a.*)7b1/\1a1\2b1/;tc
    
88. s/^([^a]*)3(a.*)8b0/\1a1\2b1/;tc
    
89. s/^([^a]*)3(a.*)8b1/\1a2\2b1/;tc
    
90. s/^([^a]*)3(a.*)9b0/\1a2\2b1/;tc
    
91. s/^([^a]*)3(a.*)9b1/\1a3\2b1/;tc
    
92. s/^([^a]*)4(a.*)0b0/\1a4\2b0/;tc
    
93. s/^([^a]*)4(a.*)0b1/\1a5\2b0/;tc
    
94. s/^([^a]*)4(a.*)1b0/\1a5\2b0/;tc
    
95. s/^([^a]*)4(a.*)1b1/\1a6\2b0/;tc
    
96. s/^([^a]*)4(a.*)2b0/\1a6\2b0/;tc
    
97. s/^([^a]*)4(a.*)2b1/\1a7\2b0/;tc
    
98. s/^([^a]*)4(a.*)3b0/\1a7\2b0/;tc
    
99. s/^([^a]*)4(a.*)3b1/\1a8\2b0/;tc
    
100. s/^([^a]*)4(a.*)4b0/\1a8\2b0/;tc
     
101. s/^([^a]*)4(a.*)4b1/\1a9\2b0/;tc
     
102. s/^([^a]*)4(a.*)5b0/\1a9\2b0/;tc
     
103. s/^([^a]*)4(a.*)5b1/\1a0\2b1/;tc
     
104. s/^([^a]*)4(a.*)6b0/\1a0\2b1/;tc
     
105. s/^([^a]*)4(a.*)6b1/\1a1\2b1/;tc
     
106. s/^([^a]*)4(a.*)7b0/\1a1\2b1/;tc
     
107. s/^([^a]*)4(a.*)7b1/\1a2\2b1/;tc
     
108. s/^([^a]*)4(a.*)8b0/\1a2\2b1/;tc
     
109. s/^([^a]*)4(a.*)8b1/\1a3\2b1/;tc
     
110. s/^([^a]*)4(a.*)9b0/\1a3\2b1/;tc
     
111. s/^([^a]*)4(a.*)9b1/\1a4\2b1/;tc
     
112. s/^([^a]*)5(a.*)0b0/\1a5\2b0/;tc
     
113. s/^([^a]*)5(a.*)0b1/\1a6\2b0/;tc
     
114. s/^([^a]*)5(a.*)1b0/\1a6\2b0/;tc
     
115. s/^([^a]*)5(a.*)1b1/\1a7\2b0/;tc
     
116. s/^([^a]*)5(a.*)2b0/\1a7\2b0/;tc
     
117. s/^([^a]*)5(a.*)2b1/\1a8\2b0/;tc
     
118. s/^([^a]*)5(a.*)3b0/\1a8\2b0/;tc
     
119. s/^([^a]*)5(a.*)3b1/\1a9\2b0/;tc
     
120. s/^([^a]*)5(a.*)4b0/\1a9\2b0/;tc
     
121. s/^([^a]*)5(a.*)4b1/\1a0\2b1/;tc
     
122. s/^([^a]*)5(a.*)5b0/\1a0\2b1/;tc
     
123. s/^([^a]*)5(a.*)5b1/\1a1\2b1/;tc
     
124. s/^([^a]*)5(a.*)6b0/\1a1\2b1/;tc
     
125. s/^([^a]*)5(a.*)6b1/\1a2\2b1/;tc
     
126. s/^([^a]*)5(a.*)7b0/\1a2\2b1/;tc
     
127. s/^([^a]*)5(a.*)7b1/\1a3\2b1/;tc
     
128. s/^([^a]*)5(a.*)8b0/\1a3\2b1/;tc
     
129. s/^([^a]*)5(a.*)8b1/\1a4\2b1/;tc
     
130. s/^([^a]*)5(a.*)9b0/\1a4\2b1/;tc
     
131. s/^([^a]*)5(a.*)9b1/\1a5\2b1/;tc
     
132. s/^([^a]*)6(a.*)0b0/\1a6\2b0/;tc
     
133. s/^([^a]*)6(a.*)0b1/\1a7\2b0/;tc
     
134. s/^([^a]*)6(a.*)1b0/\1a7\2b0/;tc
     
135. s/^([^a]*)6(a.*)1b1/\1a8\2b0/;tc
     
136. s/^([^a]*)6(a.*)2b0/\1a8\2b0/;tc
     
137. s/^([^a]*)6(a.*)2b1/\1a9\2b0/;tc
     
138. s/^([^a]*)6(a.*)3b0/\1a9\2b0/;tc
     
139. s/^([^a]*)6(a.*)3b1/\1a0\2b1/;tc
     
140. s/^([^a]*)6(a.*)4b0/\1a0\2b1/;tc
     
141. s/^([^a]*)6(a.*)4b1/\1a1\2b1/;tc
     
142. s/^([^a]*)6(a.*)5b0/\1a1\2b1/;tc
     
143. s/^([^a]*)6(a.*)5b1/\1a2\2b1/;tc
     
144. s/^([^a]*)6(a.*)6b0/\1a2\2b1/;tc
     
145. s/^([^a]*)6(a.*)6b1/\1a3\2b1/;tc
     
146. s/^([^a]*)6(a.*)7b0/\1a3\2b1/;tc
     
147. s/^([^a]*)6(a.*)7b1/\1a4\2b1/;tc
     
148. s/^([^a]*)6(a.*)8b0/\1a4\2b1/;tc
     
149. s/^([^a]*)6(a.*)8b1/\1a5\2b1/;tc
     
150. s/^([^a]*)6(a.*)9b0/\1a5\2b1/;tc
     
151. s/^([^a]*)6(a.*)9b1/\1a6\2b1/;tc
     
152. s/^([^a]*)7(a.*)0b0/\1a7\2b0/;tc
     
153. s/^([^a]*)7(a.*)0b1/\1a8\2b0/;tc
     
154. s/^([^a]*)7(a.*)1b0/\1a8\2b0/;tc
     
155. s/^([^a]*)7(a.*)1b1/\1a9\2b0/;tc
     
156. s/^([^a]*)7(a.*)2b0/\1a9\2b0/;tc
     
157. s/^([^a]*)7(a.*)2b1/\1a0\2b1/;tc
     
158. s/^([^a]*)7(a.*)3b0/\1a0\2b1/;tc
     
159. s/^([^a]*)7(a.*)3b1/\1a1\2b1/;tc
     
160. s/^([^a]*)7(a.*)4b0/\1a1\2b1/;tc
     
161. s/^([^a]*)7(a.*)4b1/\1a2\2b1/;tc
     
162. s/^([^a]*)7(a.*)5b0/\1a2\2b1/;tc
     
163. s/^([^a]*)7(a.*)5b1/\1a3\2b1/;tc
     
164. s/^([^a]*)7(a.*)6b0/\1a3\2b1/;tc
     
165. s/^([^a]*)7(a.*)6b1/\1a4\2b1/;tc
     
166. s/^([^a]*)7(a.*)7b0/\1a4\2b1/;tc
     
167. s/^([^a]*)7(a.*)7b1/\1a5\2b1/;tc
     
168. s/^([^a]*)7(a.*)8b0/\1a5\2b1/;tc
     
169. s/^([^a]*)7(a.*)8b1/\1a6\2b1/;tc
     
170. s/^([^a]*)7(a.*)9b0/\1a6\2b1/;tc
     
171. s/^([^a]*)7(a.*)9b1/\1a7\2b1/;tc
     
172. s/^([^a]*)8(a.*)0b0/\1a8\2b0/;tc
     
173. s/^([^a]*)8(a.*)0b1/\1a9\2b0/;tc
     
174. s/^([^a]*)8(a.*)1b0/\1a9\2b0/;tc
     
175. s/^([^a]*)8(a.*)1b1/\1a0\2b1/;tc
     
176. s/^([^a]*)8(a.*)2b0/\1a0\2b1/;tc
     
177. s/^([^a]*)8(a.*)2b1/\1a1\2b1/;tc
     
178. s/^([^a]*)8(a.*)3b0/\1a1\2b1/;tc
     
179. s/^([^a]*)8(a.*)3b1/\1a2\2b1/;tc
     
180. s/^([^a]*)8(a.*)4b0/\1a2\2b1/;tc
     
181. s/^([^a]*)8(a.*)4b1/\1a3\2b1/;tc
     
182. s/^([^a]*)8(a.*)5b0/\1a3\2b1/;tc
     
183. s/^([^a]*)8(a.*)5b1/\1a4\2b1/;tc
     
184. s/^([^a]*)8(a.*)6b0/\1a4\2b1/;tc
     
185. s/^([^a]*)8(a.*)6b1/\1a5\2b1/;tc
     
186. s/^([^a]*)8(a.*)7b0/\1a5\2b1/;tc
     
187. s/^([^a]*)8(a.*)7b1/\1a6\2b1/;tc
     
188. s/^([^a]*)8(a.*)8b0/\1a6\2b1/;tc
     
189. s/^([^a]*)8(a.*)8b1/\1a7\2b1/;tc
     
190. s/^([^a]*)8(a.*)9b0/\1a7\2b1/;tc
     
191. s/^([^a]*)8(a.*)9b1/\1a8\2b1/;tc
     
192. s/^([^a]*)9(a.*)0b0/\1a9\2b0/;tc
     
193. s/^([^a]*)9(a.*)0b1/\1a0\2b1/;tc
     
194. s/^([^a]*)9(a.*)1b0/\1a0\2b1/;tc
     
195. s/^([^a]*)9(a.*)1b1/\1a1\2b1/;tc
     
196. s/^([^a]*)9(a.*)2b0/\1a1\2b1/;tc
     
197. s/^([^a]*)9(a.*)2b1/\1a2\2b1/;tc
     
198. s/^([^a]*)9(a.*)3b0/\1a2\2b1/;tc
     
199. s/^([^a]*)9(a.*)3b1/\1a3\2b1/;tc
     
200. s/^([^a]*)9(a.*)4b0/\1a3\2b1/;tc
     
201. s/^([^a]*)9(a.*)4b1/\1a4\2b1/;tc
     
202. s/^([^a]*)9(a.*)5b0/\1a4\2b1/;tc
     
203. s/^([^a]*)9(a.*)5b1/\1a5\2b1/;tc
     
204. s/^([^a]*)9(a.*)6b0/\1a5\2b1/;tc
     
205. s/^([^a]*)9(a.*)6b1/\1a6\2b1/;tc
     
206. s/^([^a]*)9(a.*)7b0/\1a6\2b1/;tc
     
207. s/^([^a]*)9(a.*)7b1/\1a7\2b1/;tc
     
208. s/^([^a]*)9(a.*)8b0/\1a7\2b1/;tc
     
209. s/^([^a]*)9(a.*)8b1/\1a8\2b1/;tc
     
210. s/^([^a]*)9(a.*)9b0/\1a8\2b1/;tc
     
211. s/^([^a]*)9(a.*)9b1/\1a9\2b1/;tc
     
212. 
     
213. 
     
214. :d
     
215. /^a.*ab0$/ {
     
216. :e
     
217.         s/[ab]|0$//g
     
218.         p
     
219.         d
     
220. }
     
221. /^a.*ab1$/ {
     
222.         s/^/1/
     
223.         s/[ab]|1$//g
     
224.         p
     
225.         d
     
226. }
     
227. /^a.*b0$/ {
     
228.         s/^(.*)a([0-9]+)b/\2\1/
     
229.         s/a|0$//g
     
230.         p
     
231.         d
     
232. }
     
233. /^a.*b1$/ {
     
234. :f
     
235.         h
     
236.         s/.*a([0-9]+)b.*/\1/
     
237.         badd1
     
238. :back
     
239.         H
     
240.         x
     
241.         s/^(.*)1\n(.*)/\2\1/
     
242.         s/a[^a]+$//
     
243.         s/a//g
     
244.         p
     
245.         d
     
246. }
     
247. /b0$/be
     
248. /b1$/ {
     
249.         s/^([0-9]+)(a.*)b/\2\1b/
     
250.         bf
     
251. }
     
252. 
     
253. 
     
254. 
     
255. :add1
     
256. s/9*$/x&/
     
257. :a
     
258. s/x(0*)9/x\10/
     
259. ta
     
260. s/1x/2/
     
261. s/2x/3/
     
262. s/3x/4/
     
263. s/4x/5/
     
264. s/5x/6/
     
265. s/6x/7/
     
266. s/7x/8/
     
267. s/8x/9/
     
268. s/^x|0x/1/
     
269. bback
     
270. 
     

复制代码

[ 本帖最后由 cjaizss 于 2008-3-10 23:55 编辑 ]

ly5066113

佩服！
可惜是gnu sed，俺测试不了。

dbcat

太厉害了！很期待你乘法的实现！

nuclearxin

测试成功了
"没有去使用e命令",这个是什么意思?
e命令是啥
sed -e
?

nuclearxin

分析末尾数字 和进位 和 结果.结果 插在 a 与 a之间;  
过程中数据 ,模式应该是 类似与 / a xx a xx a xx a bxx/   xx代表数字是吧此情况  两位数长度相等的情况

无声无息

很厉害，测试成功
等待你的乘法？

waker

牛叉

另可参 http://sed.sourceforge.net/grabbag/scripts/add_decs.sed

beauty2003

太牛了!

cjaizss

我调试sed的手段还是我一贯最喜欢用的print大法，没有借助别的工具：
s/^/test1\n/;s/^[^\n]+//;p
但要注意，这两个s是必然成功的，要注意对t的影响。

qmaoting

回复 1# cjaizss


    根据cjaizss提供的代码思路，稍加改编，简化了下代码～那个lookup table是用shell脚本生成的，语法与之前的一样～

1. #!/bin/sed -nrf
   
2. 
   
3. s/^0*([0-9]+)\s+0*([0-9]+)\s*$/m\1xm\2ymamb/;ta
   
4. s/.*/input error/;by
   
5. :a
   
6. s/mxmy//;td
   
7. s/mx/mx/;tc
   
8. s/my/my/;tb
   
9. #the length of two number is equal
   
10. s/m([0-9]*)(.)xm([0-9]*)(.)ym([0-9]*)am([0-9]*)b/m\1xm\3ym\2\5am\4\6b/;ta
    
11. :b
    
12. #the second number is shorter, append 0 before it
    
13. s/m([0-9]*)(.)xmym([0-9]*)am([0-9]*)b/m\1xmym\2\3am0\4b/;ta
    
14. :c
    
15. #the first number is shorter, append 0 before it
    
16. s/m([0-9]*)(.)ym([0-9]*)am([0-9]*)b/m\1ym0\3am\2\4b/;ta
    
17. :d
    
18. 
    
19. #lookup table
    
20. s/(.*)/\10d\
    
21. 000a0b0d010a1b0d020a2b0d030a3b0d040a4b0d050a5b0d060a6b0d070a7b0d080a8b0d090a9b0d\
    
22. 011a0b0d021a1b0d031a2b0d041a3b0d051a4b0d061a5b0d071a6b0d081a7b0d091a8b0d101a9b0d\
    
23. 022a0b0d032a1b0d042a2b0d052a3b0d062a4b0d072a5b0d082a6b0d092a7b0d102a8b0d112a9b0d\
    
24. 033a0b0d043a1b0d053a2b0d063a3b0d073a4b0d083a5b0d093a6b0d103a7b0d113a8b0d123a9b0d\
    
25. 044a0b0d054a1b0d064a2b0d074a3b0d084a4b0d094a5b0d104a6b0d114a7b0d124a8b0d134a9b0d\
    
26. 055a0b0d065a1b0d075a2b0d085a3b0d095a4b0d105a5b0d115a6b0d125a7b0d135a8b0d145a9b0d\
    
27. 066a0b0d076a1b0d086a2b0d096a3b0d106a4b0d116a5b0d126a6b0d136a7b0d146a8b0d156a9b0d\
    
28. 077a0b0d087a1b0d097a2b0d107a3b0d117a4b0d127a5b0d137a6b0d147a7b0d157a8b0d167a9b0d\
    
29. 088a0b0d098a1b0d108a2b0d118a3b0d128a4b0d138a5b0d148a6b0d158a7b0d168a8b0d178a9b0d\
    
30. 099a0b0d109a1b0d119a2b0d129a3b0d139a4b0d149a5b0d159a6b0d169a7b0d179a8b0d189a9b0d\
    
31. 010a0b1d020a1b1d030a2b1d040a3b1d050a4b1d060a5b1d070a6b1d080a7b1d090a8b1d100a9b1d\
    
32. 021a0b1d031a1b1d041a2b1d051a3b1d061a4b1d071a5b1d081a6b1d091a7b1d101a8b1d111a9b1d\
    
33. 032a0b1d042a1b1d052a2b1d062a3b1d072a4b1d082a5b1d092a6b1d102a7b1d112a8b1d122a9b1d\
    
34. 043a0b1d053a1b1d063a2b1d073a3b1d083a4b1d093a5b1d103a6b1d113a7b1d123a8b1d133a9b1d\
    
35. 054a0b1d064a1b1d074a2b1d084a3b1d094a4b1d104a5b1d114a6b1d124a7b1d134a8b1d144a9b1d\
    
36. 065a0b1d075a1b1d085a2b1d095a3b1d105a4b1d115a5b1d125a6b1d135a7b1d145a8b1d155a9b1d\
    
37. 076a0b1d086a1b1d096a2b1d106a3b1d116a4b1d126a5b1d136a6b1d146a7b1d156a8b1d166a9b1d\
    
38. 087a0b1d097a1b1d107a2b1d117a3b1d127a4b1d137a5b1d147a6b1d157a7b1d167a8b1d177a9b1d\
    
39. 098a0b1d108a1b1d118a2b1d128a3b1d138a4b1d148a5b1d158a6b1d168a7b1d178a8b1d188a9b1d\
    
40. 109a0b1d119a1b1d129a2b1d139a3b1d149a4b1d159a5b1d169a6b1d179a7b1d189a8b1d199a9b1d\
    
41. cc/
    
42. 
    
43. 
    
44. :e
    
45. #plus two numbers from the end of themselves
    
46. s/(.)am([0-9]*)(.)b(.)d(.*)(.)(.)\1a\3b\4d(.*)c(.*)c/am\2b\6d\5\6\7\1a\3b\4d\8c\7\9c/;te
    
47. :x
    
48. #get the result
    
49. s/^mamb(.)d.+c(.+)c/\1\2/;tx
    
50. #remove leading zero
    
51. s/^0*//;ty
    
52. :y
    
53. p
    

复制代码