爱吱声

标题: 【跟风】我的递归程序经历 [打印本页]
作者: testjhy    时间: 2025-1-20 00:13
标题: 【跟风】我的递归程序经历
本帖最后由 testjhy 于 2025-1-20 00:13 编辑
' m* U- m: r1 r1 G7 ?6 n
; y; w2 t( b* T- B7 u@沉宝同学[用汇编语言实现递归]可以看出他是有很好的计算机专业童子功的
$ W* d; t9 z# h5 D2 t+ F8 x我大学专业核反应堆工程，小专业是反应堆控制，当年三里岛、切尔诺贝利核电站出事后，国内核电也被压制，我也逃到控制专业去读研究生，没考好被搞人工智能的导师拣了过去。人工智能当年的编程语言是Lisp，读研究生课程时，我大学时学了点Fortran，对Lisp这种什么Lamda表达等等这种计算机或者数理逻辑思维很难转弯，考试混过70多分及格算过关。最重要的是研究生院机房很小，几乎没有上机实习的机会。
% F& M' [3 }: G/ a- ^, k7 l
9 @! ]% q1 @6 _" U; O来到导师身边，科研条件大幅改善，主要是老师从美国回国时带来了一台IBM PC，当时整个学院机房才有那么几台PC，老师们都要分配机时，学生几乎没有可能使用，所以我们组的学生特别幸福，除去做理论的几个学生，大约只有三四个学生可以轮流使用。我在核反应堆工作时经常上夜班，所以除了正常排班使用电脑，后半夜也是我的天下。
* |0 K1 |" v, J" Y2 h& `/ d% l6 g- l( ?8 D
我有一个好师兄，虽然来导师身边比我稍晚，但我读硕士他读的是博士，就象沉宝同学一样有很好的童子功，他辅导我用Lisp，他写汇编的能力很强，一是把反汇编Lisp语言，把英文版的Lisp汉化，在学术圈里推广。二是可能第一批写反病毒程序的，记得当年第一个计算机病毒是“Ping Pong”病毒，中毒后屏幕上有一个小球在弹跳。师兄把病毒反汇编后，找到消除或抑制它的方法，这个是商业行为，为他挣到第一桶金。多说几句，我以为他会往创业方向发展，结果他的个性有点游戏人生，在学术和市场之间行走，过几年研究方向转变为科技金融，这可是2000年早期，可惜英年早逝，经常令我无限追思。/ \& M" y$ K, {, T

/ ^5 l- z% i; N7 ?3 X7 B* v4 o在师兄的帮助下，我的Lisp语言能力可以吹牛：突飞猛进。过一二年时间，在学院我师兄以下，我不惧其他别人。我其实最得意的，就是递归用得贼好。那时候，内存是512K，硬盘是10M，硬盘要被6-7个人占用，记得硬盘空间一紧张，大家都可以去别人目录下把OBJ，exe，还有常用程序删除了。递归用得好，程序就小，为了这十几K，100K的空间还斤斤计较。
  G- @: z4 B6 G- k
& R8 p/ i5 c* v' K当时我写的Lisp程序，别人看了都说妙，有些递归调用，师弟们说看得懂，要自己编起来，可能就按流程写一大堆代码。我往往是在某个关键点，设一个全局变量作为开关，直接调用自己，省略不少重复性过程，靠全局变量控制相似过程的不同部分。
. r; I& ?. X5 Y" ?
  z* J( Y  j( b& M- V4 H2 N记得我研究过专家系统(后发展成知识系统)的开发工具，给师弟们甚至我的早期学生们讲课时，一讲到推理机，他们都觉得神秘而又好奇，都说师兄或老师你把你的推理机程序给我们看看吧。我给他们看后，发现所谓推理机实际上也就2-300行代码，利用递归写得很精炼。推理机实际上就是“搜索-验证-执行”的递归调用，象搜索部分、验证部分和执行部分也是总控下的递归调用。说完代码的思想，他们对推理机有个基本了解和破除了神秘感，对推理机深入研究和实现有了基础支撑。
  r( l! L4 M* p! e% {, y6 Z9 ?
: ^* K9 v+ ?2 a' H  e# _- @! |Lisp是解释性语言，必须在Lisp环境下运行，这对推广应用极为不利。我又转到C，C的递归调用很方便，特别是用指针方式，可能是最接近汇编的过程，但出错要检查出来也是不容易。这个阶段是Borland公司编程工具兴旺的年代，我又试着用Turbo Pascal，Pascal程序的规范性忒好，就是不支持递归。我是码农底色的研究者，后来又转到微软的Visual Studio环境，VC，VC++，甚至VB，我都写过比较大的程序，但可能此时已经偏向神经网络了，对递归程序的印象不深。
! b1 G2 w4 I; L/ x* h: X  }6 U0 i) l/ C9 U% ^- B9 N% Q- _
好像在IBM PC时代，递归调用也是受限的，主要是堆栈和寄存器空间有限，我因为没有汇编经历，所以没有体会，而Lisp语言是解释型的，所以，它的递归调用是在Lisp内部实现的，依稀记得师兄告诉过我，Lisp启动后，首先是把PC很大一部分内存(即“堆”)圈成自己的运行空间，在这个空间上模拟出Lisp运行堆栈等人工智能程序需要加强的资源，所以我的复杂递归程序象A*算法的实现，基本没受资源限止而卡死等现象。但解释型程序与编绎执行型程序相比，速度至少要慢3-4倍，递归执行因为压栈和弹出等附加因素，比象C语言要慢得多，我有另外一个搞计算机图形学的师兄弟，当时看他的C语言编绎的程序，输出显示一行一行极快，基本上无法看清。而我们Lisp输出，感觉就是电传打印机似的，在显示器上噼里啪啦一个字一个字蹦出来。唉，回想起来既温馨又怀念。0 {" c! {/ s- Z8 d* i/ k: O9 J1 o
作者: 数值分析    时间: 2025-1-20 03:04
本帖最后由 数值分析 于 2025-1-20 03:12 编辑
: \7 y0 F0 C! e& R9 q; w. J- F6 T! y: y) I" h
看到最后一段，想起了当年和内存较劲的时候0 T1 T% x: @# w0 k6 w! N
还记得DOS的最开始的640k内存叫基本内存，因为“640kB should be enough for anyone”。再往上384k叫扩充内存，本来是保留给系统和驱动程序用的，用户用不了。但后来基本内存不够用，可以用EMM386.EXE把内存驻留程序映射到扩充内存运行。这样基本内存就可以留下大概600k来运行程序。7 E" C4 _: m4 I: ]+ m2 }
再往上就是扩展内存，需要先加载HIMEM.SYS驱动才能使用。1 P% V% b$ l% L, P! D. O
我没有用过LISP解释器，但猜想LISP解释器的堆栈是软件实现的，不受实模式堆栈段大小默认为1kb的限制，那自然是大多了。' ]2 A4 H7 S# v8 u- U5 a
真是好久之前的事儿了。。。
作者: 马鹿    时间: 2025-1-20 04:05
本帖最后由 马鹿 于 2025-1-19 17:19 编辑
& k1 M. X/ N* {% P5 ]5 s; e7 w
. ?# G6 }/ Z6 ^9 T; W6 P我读书时候编程不惧任何人，主要是我接触编程很早，上小学就用过我爹的那个能编程basic的计算器。本科毕业我的毕业论文就有根据数据拟合的曲线 ， 论文也附上了我写的code， 现在简直太容易了， 但是当时还是看起来很高级的， 我还用这个给人家攒了篇在职博士论文，所以在当年本科毕业论文是优秀毕业论文， 永久保存。4 X/ l& \/ N( h( w' M
, e# T( m4 H: h! p9 }1 v0 H* U
作者: testjhy    时间: 2025-1-20 09:46
马鹿 发表于 2025-1-20 04:05. Q+ D- m6 s  M! i0 W- ~' r
我读书时候编程不惧任何人，主要是我接触编程很早，上小学就用过我爹的那个能编程basic的计算器。本科毕业 ...
$ Y# M# g) \, Q% e& E' f+ i( e
我在反应堆上工作的时候，也有这么个可编程计算器，细长型，好象是casio的，要上千元。但那时也没玩编程，离开单位时上缴了。我孩子是不是跟你小时候一样，5、6年级学Basic编程，把数学应用题做了一遍，觉得太简单了，看不上这个专业，还顺带鄙视老爸老妈，
作者: testjhy    时间: 2025-1-20 09:52
数值分析 发表于 2025-1-20 03:04
: d  ]: C) |$ U4 J2 y! Y8 N看到最后一段，想起了当年和内存较劲的时候
4 V! V- T3 F1 n$ j) B3 V9 F8 `还记得DOS的最开始的640k内存叫基本内存，因为“640kB should b ...
: x$ X4 Z" V4 n9 `2 S
我们组里最初的PC内存只有512K，后来配置的有1M内存，能用到640K，硬盘也有20M了，扩充内存还有一个重要用途，虚拟硬盘，把程序用到的硬盘文件先拷贝到虚拟硬盘，程序调虚拟硬盘的文件速度贼快，
作者: 马鹿    时间: 2025-1-20 09:59
testjhy 发表于 2025-1-19 20:46
0 O& E3 i% G1 S5 p我在反应堆上工作的时候，也有这么个可编程计算器，细长型，好象是casio的，要上千元。但那时也没玩编程 ...
$ A/ G' U: k0 f, O5 G! m7 \
3 W; y5 `* z) U5 R% l; h' }( R4 ~
对，是长方形的， 挺精致的。
: O( m& g" v  d: u3 j- `$ d7 X1 c4 Y
7 ~0 ]. ]6 S4 Z- q6 ?) \我当年倒是想报计算机专业， 家里不同意， 父母觉得计算机这东西只能算工具， 不算技术。
作者: 黄序    时间: 2025-1-20 10:39
Pascal语言支持递归啊。我当年学Pascal的时候有一个大作业是那个河内塔问题，就是用递归解决的。上机调程序是在贵校的计算中心，当时学校里为数不多的空调机房，进去前还要换拖鞋穿白大褂。当时大多数男生白大褂下穿的是短裤，看上去有一种莫名的性感。/ [% G$ o! T& ?! y! J$ g8 M

, ?" e$ H1 s7 h当时计算中心里的主机有DEC的PDP-11小型机，还有一台Honeywell的忘了啥型号。也忘了我们是用哪台调的程序。
1 w+ |! v, a2 w  W
作者: 黄序    时间: 2025-1-20 10:42
本帖最后由 黄序 于 2025-1-19 21:03 编辑 9 t$ w7 P$ @, B$ C* F
! V$ M5 z- x. Z" s6 L
上研究生时你们隔壁的教研室里也有台IBM PC，由一个也做人工智能编程的哥们儿独享，不过他用的是Prolog语言。( m# n+ \! w/ }* H1 w/ }
5 C: Z, R& l4 j; S3 ]. I# I
当然编程之余也玩玩儿游戏，当时已经有DOS环境下的那个挖金子游戏。晚上教研室走廊里经常可以听到威廉退尔序曲的声音。$ |3 K, w  v+ G
+ v# l8 b+ t# u# U* i: z
http://www.youtube.com/watch?v=l0yQfyJlqdA&t=141s
作者: 黄序    时间: 2025-1-20 10:52
高中时我第一次接触可以编程的计算机，用的是我妈为单位保管的Sharp PC-1500，本身还带一个小型打印机，被我用来打了不少函数曲线。
( o) V  N, ?8 q3 c: E7 X5 g6 h3 i: y$ r
- O! u3 V* ^) C. A8 s1 b7 M我妈算是单位里最早接触编程的技术员，开始用的是打孔卡，所以后来科室的PC-1500就由她负责保管了，我算是近水楼台。
, J) P$ v- o* ^# t% L5 l$ ~; j% R* C
说起来当年最早编程的人员里女同志比例挺高。我大学同学里有两位，各自的母亲分别是贵校和空工院计算机专业的主力，还分别主持编写了微机原理教材，在当时还流行颇广。+ O2 L* K# U# R; x  z

' g, O( \; d8 w% j$ D
作者: 黄序    时间: 2025-1-20 10:58
4 E& V: n9 o" R" o4 H8 a
高中临毕业时家父结束在美国的进修回国，带回一台这个Commodore SX-64： - U: R9 h% J! j) G% @
9 `- |, |, y2 p' U5 B

+ v0 w8 d9 l3 T2 Z& j2 t6 U0 Y0 m# R/ w- W( W4 F2 z; ~5 ^
内存64K，有个五吋软驱，五吋彩色显示器。可以用Basic编程，也可以接游戏杆打游戏。那个支架可以转动成为一个提手，这个型号貌似是最早的带彩显的“便携式”个人电脑。. i) H1 ^3 o. `9 C4 {
, L$ i' Q" s+ s8 f( f! l. O
( t. `9 `, E& O  ~
作者: testjhy    时间: 2025-1-20 12:54
黄序 发表于 2025-1-20 10:52
1 U+ v7 I7 p, q) m8 T高中时我第一次接触可以编程的计算机，用的是我妈为单位保管的Sharp PC-1500，本身还带一个小型打印机，被 ...

& c6 h0 q8 _" D+ f4 T: mSharp PC-1500，yes!，我就是这个，
作者: testjhy    时间: 2025-1-20 12:56
黄序 发表于 2025-1-20 10:42" ~: N. ?" H, W/ A) R2 q( d
上研究生时你们隔壁的教研室里也有台IBM PC，由一个也做人工智能编程的哥们儿独享，不过他用的是Prolog语言 ...

9 k7 s9 H, h" n: n$ w* {/ w你再把警察抓小偷给找回来，，记得还有一个十项全能。
作者: testjhy    时间: 2025-1-20 12:58
黄序 发表于 2025-1-20 10:39
6 N5 @6 Z# y9 m) V6 ZPascal语言支持递归啊。我当年学Pascal的时候有一个大作业是那个河内塔问题，就是用递归解决的。上机调程序 ...

; v" D4 c* o- c7 {是turbo pascal吗？我怎么印象中不支持自我调用。
作者: 黄序    时间: 2025-1-20 13:38
testjhy 发表于 2025-1-19 22:58: R" l4 C! W3 G6 I; _6 T
是turbo pascal吗？我怎么印象中不支持自我调用。
0 K& M/ j$ l8 t# `/ Q3 _- E9 H
不是turbo pascal
作者: 齐若散    时间: 2025-1-29 00:22
作者: 我爱潜水    时间: 2025-1-29 00:23
作者: 皇家骑警总监    时间: 2025-1-29 00:23
新年快乐
作者: jellobean    时间: 2025-1-29 00:24
作者: 北京阿新    时间: 2025-1-29 00:25
6666666666666666666666666
作者: mezhan    时间: 2025-1-29 00:28
作者: 数值分析    时间: 2025-1-29 00:28
谢谢红包                 
作者: 赫然    时间: 2025-1-29 00:31
作者: 清凉山    时间: 2025-1-29 00:34
作者: 喜欢    时间: 2025-1-29 00:43
作者: wbxy436    时间: 2025-1-29 00:52
作者: ccqi    时间: 2025-1-29 00:53
谢谢大红包
作者: 黄序    时间: 2025-1-29 00:58
作者: helloworld    时间: 2025-1-29 01:00
作者: pcb    时间: 2025-1-29 01:03
作者: indy    时间: 2025-1-29 01:17
作者: 无言    时间: 2025-1-29 01:50
作者: semtex    时间: 2025-1-29 02:18

. I- f0 C- H6 ?- S0 b新年快乐！
作者: 沉宝    时间: 2025-1-29 02:31
Lisp启动后，首先是把PC很大一部分内存(即“堆”)圈成自己的运行空间，在这个空间上模拟出Lisp运行堆栈等人工智能程序需要加强的资源
# T4 K( e4 a! V0 P2 e5 a
这是必须的。PC资源有限，按照缺省配置肯定没有办法用。
% v+ z" ~/ _" e- I+ a+ ~9 W2 P5 W! q$ H4 y( P% T* r9 {3 X
Lisp是基于栈（stack）的，如果计算机的硬件架构也是栈式的，当然有利于Lisp的充分发挥。可惜目前主流计算机无一例外都是寄存器型，stack machine只停留于理论中。寄存器型计算机进行栈运算，很多常用的加速手段都受到制约，比如寄存器重命名、流水线、大规模并行等等。
作者: 松叶牡丹    时间: 2025-1-29 02:39
新春快乐！蛇年大吉！
作者: 嘉洲    时间: 2025-1-29 02:50
作者: landlord    时间: 2025-1-29 03:04
作者: heinsect    时间: 2025-1-29 04:16
蛇年安康！大吉大利！
作者: IceCow    时间: 2025-1-29 04:23
新春快乐！
作者: 方恨少    时间: 2025-1-29 07:05
作者: 黄序    时间: 2025-1-29 07:53
作者: togo    时间: 2025-1-29 08:03
作者: holycow    时间: 2025-1-29 08:15
作者: 逍遥探花    时间: 2025-1-29 08:23
作者: 旺旺的考拉熊    时间: 2025-1-29 08:52
满满的回忆
作者: johnsonjian    时间: 2025-1-29 09:42
作者: 忧郁金桥    时间: 2025-1-29 09:45
祝坛友们蛇年快乐，万事如意
作者: laser    时间: 2025-1-29 09:49
作者: 宁娜    时间: 2025-1-29 09:53
作者: zhouzp    时间: 2025-1-29 10:45
新年快乐，健康幸福！
作者: 老财迷    时间: 2025-1-29 11:09
哈，想起我还学过Lisp，一堆的括号，实在是学不下去
作者: 希宝    时间: 2025-1-29 11:23
作者: 常挨揍    时间: 2025-1-29 11:45
作者: 雷达    时间: 2025-1-29 12:52

& [' n# n$ l3 h( K8 z9 p' O春节快乐！
作者: 老爷王    时间: 2025-1-29 13:10
作者: 宝贝小猪    时间: 2025-1-29 20:51
新年快乐！
作者: 长叶林    时间: 2025-1-29 23:22
作者: moletronic    时间: 2025-1-29 23:57
作者: 喜欢    时间: 2025-1-30 00:14
作者: 宁娜    时间: 2025-1-30 06:21
作者: 野草魂    时间: 2025-1-30 06:48
恭喜新春
作者: 逍遥探花    时间: 2025-1-30 07:00
作者: Greatsnow    时间: 2025-1-30 08:15
作者: zhouzp    时间: 2025-1-30 15:13
作者: longcheng    时间: 2025-1-30 21:06
由递归程序见编程功底



欢迎光临 爱吱声 (http://129.226.69.186/bbs/) Powered by Discuz! X3.2