ALGOL 68

维基百科,自由的百科全书
跳到导航 跳到搜索
ALGOL 68
编程范型多范式指令式并发
設計者A. van Wijngaarden英语Adriaan van Wijngaarden, B.J. Mailloux英语Barry J. Mailloux, J.E.L. Peck英语John E. L. Peck, C.H.A. Koster英语Cornelis H.A. Koster等人
发行时间最终报告: 1968年,​55年前​(1968
型態系統静态强类型安全结构化
網站Revised Report on the Algorithmic Language ALGOL 68
主要實作產品
ALGOL 68C英语ALGOL 68C, ALGOL 68 Genie(新近[1]), ALGOL 68R英语ALGOL 68R, ALGOL 68RS英语ALGOL 68RS, ALGOL 68S英语ALGOL 68S, FLACC英语FLACC, Алгол 68 Ленинград, Odra ALGOL 68英语Odra (computer)
衍生副語言
ALGOL 68/FR (Final Report: 1968), Algol 68/RR (Revised Report: 1973)
啟發語言
ALGOL 60, ALGOL Y英语ALGOL Y
影響語言
C[3][5]C++[6]Bourne shellKornShellBashSteelman英语Steelman language requirementsAdaPython[7]Seed7英语Seed7Mary英语Mary (programming language)S3英语S3 (programming language)

ALGOL 68(源自英語:ALGOrithmic Language 1968的縮寫),一種指令式程式語言,為ALGOL家族的成員,被認為是ALGOL 60的後繼者。它設計的目標,是提供更廣泛的應用,以及更嚴格的語法定義。

概論[编辑]

ALGOL 68由IFIP Working Group 2.1負責設計。1968年12月20日,Working Group 2.1 通過了這個語法規範,並提交IFIP大會通過。它的主要架構者為阿德里安·范·韦恩加登英语Adriaan van Wijngaarden

代码样例[编辑]

下面的样例代码实现了埃拉托斯特尼筛法来找到小于等于100的所有素数NIL是ALGOL 68中同其他语言中“空指针”的类似者。表示法x OF y访问STRUCT y的成员x

BEGIN # Algol-68素数筛法,函数式风格 #
  
  PROC error = (STRING s) VOID:
     (print(( newline, " error: ", s, newline)); GOTO stop);
  PROC one to = (INT n) LIST:
     (PROC f = (INT m,n) LIST: (m>n | NIL | cons(m, f(m+1,n))); f(1,n));
  
  MODE LIST = REF NODE;
  MODE NODE = STRUCT (INT h, LIST t);
  PROC cons = (INT n, LIST l) LIST: HEAP NODE := (n,l);
  PROC hd   = (LIST l) INT: ( l IS NIL | error("hd NIL"); SKIP | h OF l );
  PROC tl   = (LIST l) LIST: ( l IS NIL | error("tl NIL"); SKIP | t OF l );
  PROC show = (LIST l) VOID: ( l ISNT NIL | PRINT((" ",whole(hd(l),0))); show(tl(l)));
  
  PROC filter = (PROC (INT) BOOL p, LIST l) LIST:
     IF l IS NIL THEN NIL
     ELIF p(hd(l)) THEN cons(hd(l), filter(p,tl(l)))
     ELSE filter(p, tl(l))
     FI;
  
  PROC sieve = (LIST l) LIST:
     IF l IS NIL THEN NIL
     ELSE
        PROC not multiple = (INT n) BOOL: n MOD hd(l) ≠ 0;
        cons(hd(l), sieve( filter( not multiple, tl(l) )))
     FI;
  
  PROC primes = (INT n) LIST: sieve( tl( one to(n) ));
  
  show( primes(100) )
END

註釋[编辑]

  1. ^ ALGOL 68 Genie. [2020-04-22]. (原始内容存档于2020-08-14). 
  2. ^ Dennis Ritchie. The Development of the C Language (PDF). April 1993 [2007-04-26]. (原始内容 (PDF)存档于2005-06-29). 
  3. ^ Influence on C: types, structures, arrays, pointers and procedures – Dennis Ritchie[2]
  4. ^ Dennis Ritchie. C and Algol 68. June 1988 [2006-09-15]. (原始内容存档于2009-08-27). 
  5. ^ Influence on C: union, structure, syntax and long precision – Dennis Ritchie[4]
  6. ^ A History of C++: 1979−1991 (PDF). Page 12, 2nd paragraph: Algol68 [gave] operator overloading(§3.3.3), references (§3.3.4), and the ability to declare variables anywhere in a block (§3.3.1). March 1993 [2008-05-06]. (原始内容存档 (PDF)于2006-12-10). 
  7. ^ Interview with Guido van Rossum. July 1998 [2007-04-29]. (原始内容存档于2007-05-01). 

外部链接[编辑]