|
本文成篇的起因于社长的一条记录 链接
& \9 P" v, j' N' M D; e+ n3 R) | O- R! m8 b3 l
递归是计算机科学中一种解决问题的重要方法。所谓递归,通俗地说就是自己调用自己,它在很多语言和环境下都可以实现。以社长的工作场景为例,根据爱坛上的信息,大概是两个关键词:Unix和汇编。本人条件有限,只能用Linux模拟,汇编也只限于x86汇编。下面就是用汇编语言编写的,用递归方法计算阶乘的示范程序。
/ {5 B7 w3 b7 B" H, F2 x7 V- LEN_OF_OUTPUT equ 10
" C8 P* K8 z6 }6 Y g F - . |2 t% k4 m! Q/ o; i
- section .data ;
2 k. A0 _* Z% h D - userMsg db 'Please enter a single-digit number: ' ;
9 m4 L9 Y/ s& b. ]! ` - lenUserMsg equ $-userMsg ;
* R. }" l# K" E- p3 q3 _7 @) d7 @ - disp1Msg db 'The factorial of ', c( ^6 v" }9 G; \5 R
- lenDisp1Msg equ $-disp1Msg
% p4 e9 f( m0 Z1 `7 x2 ^7 S5 S9 g - disp2Msg db ' is '
. V( c, d5 s' s% l - lenDisp2Msg equ $-disp2Msg
L5 X: w# @6 a4 @: i - errMsg db 'Wrong input. Only one-digit number can be accepted.',0x0a
) \1 W4 q/ @+ D, a/ [2 v - lenErrMsg equ $-errMsg ( }" v' h4 X( d: M
% w7 G6 @4 Z& u; I( [& G- section .bss ;% b$ }. u0 `% @$ q
- num resb 12 O, E1 R3 E" S1 N" g4 J, [
- result resd 1# X" d8 \) Z7 s! b* L
- buffer resb LEN_OF_OUTPUT+1. z0 p% R$ b; N6 l+ t$ m$ J
- : `7 f- }* l, w7 ^% I, M; M
- section .text ;0 Y+ [# V9 ~* [' J- V% o' ]
- global _start
% l* L7 U1 W1 h -
& N5 T F! U1 z f4 ^' \ - _start: ;5 N& `4 x1 @# w5 A; L0 p9 D
- mov eax, 4' K: S# W1 W) D( ~! ~& m4 K1 v5 h
- mov ebx, 1
! B8 x! _0 g5 [# @6 | - mov ecx, userMsg! h! p0 i- t; t! I- x
- mov edx, lenUserMsg
8 n6 }# u, L2 X2 { - int 80h# f$ ?$ }' R3 [( q2 t& @
- ' h! a0 }7 ~4 Q0 S& _3 K, E7 C' I9 \
- ; read user's input6 z, G* t4 d0 }; F5 y" C- Y) h
- mov eax, 3
7 [3 u3 m: w: f' Y - mov ebx, 01 w. N& ^5 _* q& Q0 [3 t d2 r8 q
- mov ecx, num
0 V, V6 \, B2 Q - mov edx, 1 ; length of input buffer
% Q0 \6 _" f- M* j9 q) Q- V4 I4 t - int 80h, d( @0 ~% x5 j
- 7 s2 L8 u2 {6 n+ Z7 J
- mov eax, [num]
8 C, O; t7 ~1 ]# ^& N9 @/ m/ A/ y ~ - and eax, 0xFF% [' z+ l* V# W( a* N4 t; R4 p# [
- sub eax, 0x308 p; s' ]( O" u* c7 W& Y
- jl ERROR
& d; q& e% u; ?7 | - cmp eax, 10" ]0 D! d6 w0 e* O
- jl DO_CALC; _' T8 |& b! E9 j: Z6 }* _3 H. k
- ERROR:
4 U _. E1 e+ ?$ z - mov eax, 4. f: g4 x( i, C% i
- mov ebx, 1
. E( u! E: R5 i" t: C% i8 [! L" X6 r - mov ecx, errMsg
5 c; h* A6 v& v: N& P4 a - mov edx, lenErrMsg
! i8 y7 j2 n% U' o {4 } - int 80h 2 Q q' C# A9 s% D, b2 s
- jmp EXIT
$ ]5 t& U' v) @
; ^" H9 c6 L; h# Y: E/ `7 n* |: V" M- 7 k2 h" H2 X) ^; C
- DO_CALC:
3 `6 W, C8 ]- ~* N4 O; U - call factorial9 s# t0 s% j `$ b1 v7 G
- ; The parameter is in eax. After calling, the result will be stored in eax.6 k4 F- v3 H8 l& r
- mov [result], eax ; Save the result
/ g7 W- Y, ], U2 ?0 q - & I1 {" U( @1 p& o" O, h
- ; print result% s; K: I# W5 S
- mov eax, 4
/ h) `" j& C! `+ h3 h" ? ~ - mov ebx, 1
- C u' h6 J7 F ]3 D - mov ecx, disp1Msg
2 Z4 g' y8 T, m; m- h2 |6 I - mov edx, lenDisp1Msg; S. l9 m6 X0 [/ E; {
- int 80h 5 U1 k" i3 c( n% d: f0 u; ~
- mov eax, 4
* Y' J' M: m, G. F - mov ebx, 1
( ?9 K0 i" @& Q$ q4 W3 h9 U( t$ _ - mov ecx, num. Z8 o, Z b. \; }$ r. j6 J" e: I
- mov edx, 1
. T$ K1 [: t1 z& M# f+ k - int 80h
5 S& o$ z8 Q) x5 n - mov eax, 4
8 z0 I$ l8 {) { - mov ebx, 18 c! w4 U8 d/ b! G' B& T3 U
- mov ecx, disp2Msg( |6 S' H$ ?7 ^: p' I% F) F4 a, u$ d
- mov edx, lenDisp2Msg
% s' k6 m* ~3 ?8 u0 ~. a - int 80h " u% i! X. I2 j6 J+ `' n0 G( w
- 6 J" _9 s; d! T$ S6 C) Z
- ; output number( o4 v0 h! ~) N0 i
- mov eax, [result] ; VALUE THAT I WANT TO CONVERT AND DISPLAY
0 E5 X; A0 {9 Q# t - mov byte [buffer+LEN_OF_OUTPUT],0x0a' v! G$ G; k B2 W* ]: t
- lea esi,[buffer+LEN_OF_OUTPUT]
& d$ t# } r$ l' z- U; }) A, H - mov ebx,10
# h5 `' {# c# S( i" H# B+ N" o/ z - ASC_LOOP:
% I* x* ^9 ^- T) B W - mov edx,0 ; clear dx prior to dividing edx:eax by bx
" C0 K3 o; m2 M1 C, |7 S, A% w3 N - div ebx ;DIV EAX/10+ W& R w- y0 [) C* H, r
- add edx,0x30 ;ADD 48 TO REMAINDER TO GET ASCII CHARACTER OF NUMBER , H. q1 n3 u. T
- dec esi ; store characters in reverse order
$ y# G9 O+ @$ Q5 y3 |+ K, R1 d) @! t - mov [esi],dl" R. y* q& q$ n- l- a! e! z3 [
- cmp eax,0
- E3 u5 G9 ]6 g3 T1 c. ^ - jz END_ASC ;IF AX=0, END THE PROCEDURE OF NUMBER TO ASCII
1 |- M, J' Z, Z - jmp ASC_LOOP ;ELSE REPEAT
5 W6 p+ E, R. r W - END_ASC:" g; T% ?3 ~8 E; N0 x* l
- mov eax, 41 d, ] h8 ^4 R+ w0 r' _2 R8 C. @
- mov ebx, 1* B$ `$ I; R' f- [6 O% w
- mov ecx, esi4 ^( x. k( H' M6 [' G& V4 ]9 X+ A. }
- lea edx,[buffer+LEN_OF_OUTPUT+1]
|9 i+ D1 r [9 G& A J N1 a ?. ] - sub edx, ecx
) t) |3 G- |) K1 {# S# [2 p V - int 80h
3 o7 ~4 h. n1 r3 l1 j- U6 }3 T -
+ ~: @1 [, I# E8 f }4 p) r! B+ x `6 C - ; Exit code
" c5 W, L7 g' b) {: n7 r& V' a - EXIT:
. a1 P U9 h- q* ]( }" h - mov eax, 1
' A0 P/ O5 e% _7 f# p) i3 u6 U - mov ebx, 0
/ @) ]9 _" N1 K& n - int 80h$ l) H: |9 B3 K/ q& e! W* \
, }5 q& A# e2 x& H
& o; a0 y( O$ A. w8 F, p- 3 c: t: D9 X" \# B6 j6 N
- ; Factorial function using recursion, o% M; P2 H( } ~
- factorial:
8 x$ z' K! [" ]2 d - ; Check if eax is 0 (base condition)# y! B( _* R% s$ Z: |3 a+ _8 c
- cmp eax, 01 Z6 J' d/ m: ]" Y. _
- jz end_recursion
3 n5 Z6 U+ M# F/ e
& B! a( q& Y4 e$ [- ; Save the current value of eax- u( A" T* g, {! k" R+ H7 B
- push eax
9 `4 h" M1 `2 }& r, u( T - 4 G6 P( v% f/ N
- ; Decrement eax and call factorial function recursively
8 {* O# x% r, O" \( H4 j( T - dec eax3 I: @# R4 |" G; ^9 j
- call factorial
" o3 Z; [* [! H6 |/ C! W% a
" f K, z0 Q: g: _7 Y' U5 ^- ; Multiply the result returned in eax with the saved value of eax
. ^- }: M' o4 O3 G - pop ebx1 y& T: q' Y- e: E E& Q; x( T9 d
- imul eax, ebx
- J. j: q3 [- b' l, D
D, s/ i1 P" Z; p- ret* \, f/ e; D0 Q- ]
- ; ?. Q) P5 P! s) j
- end_recursion:* ]% {6 K" j( D' Q1 c# j
- ; Return 1 when eax is 0 (base condition); f, N/ Y# }- ]( b8 P" Y' L& U: i7 m
- mov eax, 1
2 W$ K: i. m* q5 G - ret
复制代码
" E& v+ F0 `& P* C* D, F' ^3 n% r程序在nasm编译器下通过并成功运行。相应的命令行如下,有兴趣的童鞋可以自行验证。: b( V% t( S: z3 `, P2 h
- nasm -f elf factorial.asm
' u. }/ D, l$ j* s0 r - ld -m elf_i386 -s -o factorial factorial.o1 R* J1 n+ F( S
- ./factorial; A3 x r# o; {& t) o2 `
复制代码
1 G& P( [8 P& z$ l( d由于汇编不擅长处理I/O,所以程序限制输入仅限于一位数字(0-9),以免过于喧宾夺主。其实程序中真正紧扣主题的就最后一小段:( ?- i3 N; P: s
- ; Factorial function using recursion
% u, x1 i8 G2 X' y! w6 s - factorial:: e6 e2 N: j4 i, `& ` f
- ; Check if eax is 0 (base condition)
8 M: s) u3 c2 @2 u4 K - cmp eax, 0- u- m) }0 k/ n
- jz end_recursion
; \0 s! \+ h3 y& Q2 Q8 g2 v - " n. o$ h- k( ?7 w2 h! X& u" ]" O
- ; Save the current value of eax, h9 D" S, U! V
- push eax
+ k. w9 d$ N2 A - * v" P$ N* U: O4 A' V
- ; Decrement eax and call factorial function recursively
* Z3 s( J; G8 [5 Q' o& ^$ L - dec eax
' ]: I2 f$ m* J* ?+ H+ o( { - call factorial5 a, u* _+ S9 P3 c$ c1 f% F+ n
- 7 L+ o1 b. v9 R7 `9 u- z F; t3 O
- ; Multiply the result returned in eax with the saved value of eax
' c) ^6 `4 ?, X2 g# _$ u* x - pop ebx2 n* g# b0 ^0 m! O6 e$ t! b. z
- imul eax, ebx# T' Z# n M8 [2 ?% o
- ) F6 v6 i, \- ?, q0 _
- ret
4 D. |6 Q' M0 b5 R7 z i, A - 0 W; K. \6 ^, N7 d- Y9 B$ ~
- end_recursion:8 O) C/ w2 m3 \1 s% R* ?5 D
- ; Return 1 when eax is 0 (base condition)
, f ?1 V; B r2 H2 D - mov eax, 1" ~4 E7 Z$ c( u2 S: W
- ret
复制代码 可以清晰看出函数在其函数体中调用了它本身。
M/ V3 z# n9 Q$ }: X9 `- A! p2 {
" K* ? ~! G m E8 p9 C9 n以上证明了汇编语言不是实现递归的障碍。推而广之,所有中低级语言都可以轻松实现递归。某些高级语言反而不能做递归是人为强制规定的,换而言之是原作者权衡利弊的结果。 v# H0 f. ^9 d* l
# i" Q& Y0 L. T
世界上没有免费的午餐,递归在编写程序的时候简洁优雅,但运行过程中要付出极大的代价,甚至有可能是灾难。由于是函数反复调用自己,那么所有的中间结果都要暂时保留在栈(stack)上,直到最后一层函数调用完毕才能逐步清除。这既低效,又不安全。栈式计算是一个古老的概念,它与现代的多寄存器和流水线等都格格不入,难以优化提速。递归对栈空间的占用更可怕,占用量与调用函数次数线性相关(套用复杂度的概念就是O(n)),递归次数多了之后,很容易超出栈容量,从而导致栈溢出。具体到社长的工作中可能还有很多实时任务,一大堆高优先级的中断响应程序可不会等着递归函数运行完了再启动,这会让栈空间雪上加霜。想一想某个核电控制程序突然栈溢出了,那场面,哈哈哈。: C, L0 ^/ I9 [& z0 u
6 N- q% S1 z) p2 B2 P* ~这可以解释,为什么条件上有可能,但社长很长时间里都没有接触到递归编程。无论用C还是用汇编,都强调的是速度与可靠性。社长实战出发,不需要知道回字的4种写法。至于Python,整个编程思想都变了,Python假定计算机的计算速度远远超过了需求,编程者无需为性能而操心。 Python语言的设计初衷,也不是为关键任务而生,而是想让更多的门外汉用起计算机来。所以在Python程序中容易见到递归。8 b, _, B( ~- S% A0 J8 k
; \, t3 u7 P% d
有很多时候,递归用作概念性算法表达。真到了用代码实现的时候,再换用其它方法。比如说将递归转化成迭代(iteration)。
3 ^/ R7 G4 ?5 a. [% [: v* Q9 o( F1 [2 x; _: D1 F
另外,汇编语言作为一种低级编程语言,在不考虑时间成本的前提下,没有什么是它做不了的。本期课后作业:如何用汇编语言实现继承(Inheritance)和多态(Polymorphism)?请写出示范程序。我们知道继承和多态是面向对象编程(Object-oriented programming)的两个基本点,有了它们就可以实现汇编语言的面向对象编程。
2 k# `3 E, z- h, m3 u' b' m$ E& _- M1 G. S2 l% Y+ V
|
评分
-
查看全部评分
|