檢視 BCPL 的原始碼

'''基本組合編程語言'''（英語：Basic Combined Programming Language）， 是一種電腦程式設計語言，閣較早的 CPL 語言，一九六七年由劍橋大學的馬丁 ・ 理察德所發展出來的
。

==概述==

Richards 試咧徙掉矣 CPL 中上複雜的組成，第一支 BCPL compiler 佇咧 IBM 七千空九十四電腦當中完成。身為較早程式的語言的 BCPL，如今已經無咧廣泛使用，但是伊的影響煞是深遠的，今仔日流行的 C 語言就是參考矣 BCPL 所設計的。BCPL 予人認定做第一个花括號程式語言，做為 BCPL 後代語言，C 語言使用花括號來表示一塊結構。

==範例==

下列是馬丁查理斯的 BCPL 發行中的範例。

列印階乘：

` ` `
GET " LIBHDR "

LET START ( )=VALOF $ (
FOR I=一 TO 五 DO
WRITEF ( " % N !=% I 四 * N " , I , FACT ( I ) )
RESULTIS 零
$ )

AND FACT ( N )=N=零-> 一 , N * FACT ( N-一 )
` ` `

N 個皇后問題：

` ` `
GET " LIBHDR "

GLOBAL $ (
COUNT : 兩百
ALL : 兩百空一
$ )

LET TRY ( LD , ROW , RD ) BE
TEST ROW=ALL THEN
COUNT  :=COUNT + 一
ELSE $ (
LET POSS=ALL & ~ ( LD | ROW | RD )
UNTIL POSS=零 DO $ (
LET P=POSS &-POSS
POSS  :=POSS-P
TRY ( LD + P < < 一 , ROW + P , RD + P > > 一 )
$ )
$ )

LET START ( )=VALOF $ (
ALL  :=一
FOR I=一 TO 十二 DO $ (
COUNT  :=零
TRY ( 零 , 零 , 零 )
WRITEF ( " % I 二-QUEENS PROBLEM HAS % I 五 SOLUTIONS * N " , I , COUNT )
ALL  :=二 * ALL + 一
$ )
RESULTIS 零
$ )
` ` `

==引用==

==參考文獻==

* Martin Richards , _ The BCPL Reference Manual _ ( Memorandum M 被三百五十二 , Project MAC , Cambridge , July , 一千九百六十七 )
* Martin Richards , _ BCPL-a tool for compiler writing and systems programming _ ('''Proceedings of the Spring Joint Computer Conference''', Vol 三十四 , pp 五百五十七石五百六十六 , 一千九百六十九 )
* Martin Richards , Arthur Evans , Robert F . Mabee , _ The BCPL Reference Manual _ ( MAC TR 抹一百四十一 , Project MAC , Cambridge , 一千九百七十四 )
* Martin Richards , C . Whitby-Strevens , _ BCPL , the language and its compiler _ ( Cambridge University Press , 一千九百八十 ) ISBN 空抹五百二十一鋪二二七八千六百八十一鋪六

[[分類: 待校正]]