作者EdisonX (闭上眼的鱼)
站内Programming
标题[问题] 请问此为何程式语言?
时间Tue Nov 22 22:38:53 2011
抱歉,想半天还是觉得标题这麽下最恰当。
最近看一本觉得写得不错的好书，
Combinatorial Algorithms, For Computer and Calculators.
观念讲得蛮清楚的, Pseudo Code 看起来有点乱, 不过有用程式语言示之,
但偏偏不知道是哪种程式语言, 虽本意可由语法猜出一、二，
但实际用 C 替代时，有时就会卡卡的。
不期望能有将 (X语言 翻译成 C语言) 之工具，
唯希望有经验之版友能予以意见，告知为何种程式语言，
小弟感激不尽。
以 power set , NEX_SUB 为例。
---
SUBROUTINE NEXTSUB(N, IN, MTC, NCARD, J)
INTEGER IN(N)
LOGICAL MTC
IF(MTC) GO TO 20
DO 11 I=1, N
11 IN(I)=0
NCARD=0
MTC = .TRUE.
RETURN
12 J=1
IF (MOD (NCARD,2) ).EQ. 0) GOTO 40
C IF (J .GT. N) J=N
30 IN(J) = 1 - IN(J)
NCARD = NCARD+2*IN(J)-1
MTC = NCARD .NE. IN(N)
RETURN
END
--
If there is no tomorrow,
I want to see u last time.
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.177.78.41
1F：→ tomnelson:Fortran? COBOL?112.104.103.107 11/22 22:49
2F：→ MOONRAKER:阿就FORTRAN 66嘛218.160.180.116 11/22 22:54
3F：→ EdisonX:感谢 t 大与 M 大回覆,非常感谢！！ 180.177.78.41 11/22 23:00
4F：→ EdisonX:( FORTRAN66...感觉很老了耶 XD ) 180.177.78.41 11/22 23:01
5F：→ MOONRAKER:还有行号 老叩叩喽218.160.180.116 11/22 23:50
6F：→ MOONRAKER:基本上你知道他DO的用法和一些关系运算218.160.180.116 11/22 23:52
7F：→ MOONRAKER:子的意思 如.GT. .NE.等等 就可以转换218.160.180.116 11/22 23:52
8F：→ MOONRAKER:但是他回圈很原始只有goto218.160.180.116 11/22 23:54
9F：→ EdisonX:谢谢M大补充,那些都还好,就真的是goto看到 180.177.78.41 11/23 00:13
10F：→ EdisonX:整个爆!! 要转 loop 倒是要花点时间.感谢. 180.177.78.41 11/23 00:14
11F：→ MOONRAKER:看来你都很清楚了 XD 其实不在乎难看的218.160.180.116 11/23 02:27
12F：→ MOONRAKER:话，也可以用一下Ｃ的goto XP218.160.180.116 11/23 02:28
13F：推 tren:Fortran 128.138.44.18 12/01 02:04