dc (程序)

dc
原作者	Robert Morris（英語：Robert Morris (cryptographer)）; （於AT&T貝爾實驗室）; Lorinda Cherry（英語：Lorinda Cherry）
開發者	各種開源和商業開發者
程式語言	B, C
作業系統	Unix, 類Unix, Plan 9
平台	跨平台
類型	命令

dc（desk calculator：桌面計算機）是採用逆波蘭表示法的跨平台計算機，它支援任意精度算術^[1]。它是Robert Morris（英語：Robert Morris (cryptographer)）在貝爾實驗室工作期間書寫的^[2]，作為最老的Unix 實用工具，先於C語言的發明。像那個年代的其他實用工具一樣，它有著一組強力的特徵和簡潔的語法^[3]^[4]。傳統上，採用中綴表示法的bc計算機程式是在dc之上實現的。

歷史

dc是倖存的最老的Unix語言^[2]。在貝爾實驗室收到第一台PDP-11的時候，用B語言寫成的dc是在這個新機器上執行的第一個語言，甚至在組譯器之前^[5]。

基本運算

在dc中要做4和5的乘法：

$ dc
4 5 *
p
20
q

這可轉譯為「把4和5壓入棧頂，通過乘法算符，從棧中彈出兩個元素，將二者相乘並把結果壓回棧頂」。接著使用p命令列印棧頂的元素。使用q命令退出此次呼叫的dc實例。注意數值相互間必須以空白分隔，但某些算符可以不必如此。還可以用如下命令得到這個結果：

$ dc -e '4 5 * p'
20
$ echo "4 5 * p" | dc
20
$ dc -
4 5 *pq
20
$ cat <<EOF > cal.txt
4 5 *
p 
EOF
$ dc cal.txt
20

使用命令k來變更算術精度，它設定算術運算的小數位數。因為預設精度是0，例如：

$ dc -e '10946 6765 / p'
1

通過使用命令k調整精度，可以產生任意數目的小數數位，例如：

$ dc -e '7k 10946 6765 / p'
1.6180339

dc有科學計算機的基本運算功能，比如求黃金分割率 ${\textstyle {\frac {{\sqrt {5}}+1}{2}}}$ 的值：

$ dc -e '7k 5 v 1 + 2 / p'
1.6180339

dc將輸入數值的前導_辨識為負號，命令^計算冪，命令v計算平方根。

d命令用於複製棧頂元素。r命令用於對棧頂和僅次棧頂的兩個元素進行對換。z命令用於壓入當前棧深度，即執行z命令前棧中元素的數目。

輸入/輸出

使用?命令，從stdin讀取一行並執行它。這允許從宏中向使用者要求輸入，故而此輸入必須是語法上正確的，並且這有潛在的安全問題，因為dc的!命令可以執行任意系統命令。

前面提及過，p命令列印棧頂元素，帶有隨後的一個換行。n命令彈出棧頂元素並輸出它，沒有尾隨換行。f命令列印整個棧，從棧頂到棧底並且一項一行。

dc還支援控制輸入和輸出的底數。o命令設定輸出底數，輸出底數必須大於等於2。i命令彈出棧頂元素並將它用作輸入底數，輸入底數必須在2和16之間，十六進制數字必須大寫以避免和dc命令衝突。要記住輸入底數將影響對後面的所有數值的分析，所以通常建議在設定輸入底數之前先設定輸出底數。例如將二進制轉換成十六進制：

$ echo '16o2i 10011010101111001101111011110000 p' | dc
9ABCDEF0

要讀取設定的這些數值，K、I和O命令將壓入當前精度、輸入基數和輸出基數到棧頂。

語言特徵

除了上述的基本算術和棧操作，dc包括了對宏、條件和儲存結果用於以後檢索的支援。

暫存器

暫存器在dc中是有著單一字元名字的存貯位置，它可以分別通過命令s和l來儲存和檢索，它是宏和條件的底層機制：sc彈出棧頂元素並將它儲存入暫存器c，而lc將暫存器c的值壓入棧頂。例如：

3 sc 4 lc * p

暫存器還被當作次要棧，可以使用S和L命令在它們和主要棧之間壓入和彈出數值。儲存棧頂元素到暫存器中並把這個元素留在棧頂，需要聯合使用ds命令。

字串

字串是包圍在[和]之中的字元，可以被壓入棧頂和存入暫存器。使用x命令從棧頂彈出字串並執行它，使用P命令從棧頂彈出並列印字串，無尾隨換行。a命令可以把數值的低位位元組轉換成ASCII字元，或者在棧頂是字串時把它替換為這個字串的第一個字元。此外沒有方法去建造字串或進行字串操縱。

#字元開始一個注釋直到此行結束。

宏

通過允許暫存器和棧專案像數值一樣儲存字串，從而實現了宏。一個字串可以被列印，也可以被執行，就是說作為dc命令的序列而傳遞。例如可以把一個宏「加1並接著乘以2」儲存到一個暫存器M中：

[1+ 2*]sM

下面的命令將一個數值3壓入棧頂，使用x命令執行儲存在暫存器M中的宏，並列印留在棧頂的結果：

3 lMx p

條件

最後提供了有條件執行宏的機制。命令=M將從棧頂彈出兩個值，如果二者相等，則執行儲存在暫存器M中的宏。如下命令序列將在原棧頂元素等於5的條件下列印字串equal。

[[equal]p]sM d5=M

這裡使用了d命令保留原棧頂元素。其他條件有>、!>、<、!<、!=，如果棧頂元素分別大於、不大於（小於等於）、小於、不小於（大於等於）、不等於僅次於棧頂的元素，則執行指定的宏。注意不同於Forth、PostScript和Factor，在不等式比較中的運算元的次序同在算術中的次序相反，5 3 - 等價於中綴表示法的5-3，然而5 3< R在3<5時執行暫存器R的內容。下面是有條件執行宏的範例：

$ echo 5 | dc -e '? [[equal]p]sM d5=M'
equal
$ echo 4 | dc -e '? [[equal]p]sM d5=M'
$

這裡的命令在棧頂元素等於5之時有相應的輸出，在它不等於5之時沒有輸出。

如果要實現一般程式語言中表達分支控制流程的條件運算子 ?:或條件語句，則需要2個宏構造，例如：

$ echo 5 | dc -e '? [[equal]p q]sM [d5=M [not equal]p]x'
equal
$ echo 4 | dc -e '? [[equal]p q]sM [d5=M [not equal]p]x'
not equal

這裡的命令在棧頂元素等於5和不等於5之時都有相應的輸出。

q命令退出2層宏，如果宏少於2層則退出dc。Q命令從棧頂彈出一個值作為退出宏的層數，比如2Q命令退出2層宏，它永不導致退出dc。

遞迴範例

通過定義進行有條件的遞迴呼叫的宏，可以實現遞迴過程和迭代運算。

階乘

下面是對棧頂元素計算階乘 ${\textstyle n!=n\cdot (n-1)!}$ 的遞迴過程：

# F(x):
#   x > 1 ? x * F(x-1) : x
# F()

本文中的虛擬碼儘量採用條件運算子 ?:，只在確有兩個分支之時採用條件語句。這裡的F(x):是過程定義，過程F消費在棧頂的命名為x的一個值；這裡的F(x-1)是過程呼叫，在呼叫過程F之前先將x-1的結果值壓入棧頂；這裡的F()也是過程呼叫，在呼叫過程F之前不需要向棧頂壓入一個值。

這個過程在x > 0時有效，它可直接轉寫為互遞迴形式：

# F(x):
#   x > 1 ? G(x) : x
# G(x):
#   x * F(x-1)
# F()

它可實現為：

[d 1- lFx *]sG [d1<G]dsFx

計算階乘還可以採用這個條件表達式的等價形式：

# F(x):
#   x <= 1 ? x : x * F(x-1)
# F()

它可實現為：

[q]sQ [d1!<Q d 1- lFx *]dsFx

這個遞迴過程可以進一步採用尾呼叫寫為：

# F(x):
#   x
#   x > 1 ? G(x) : x
# G(x):
#   F(x-1)
# H(x, acc):
#   x := x * acc
#   z() > 1 ? H() : x
# H(F())

這裡的虛擬碼中的H(x, acc):是過程定義，過程H消費在棧頂的命名為acc的一個值，和緊鄰其下的命名為x的另一個值；這裡的H()是過程呼叫，在呼叫過程H之前不需要向棧頂壓入一個值。它可實現為：

[1- lFx]sG [d d1<G]dsFx [* z1<H]dsHx

這裡的運算由兩個步驟串接而成，首先將遞減的整數壓入堆疊形成整數集 $\mathbb {Z}$ 上偏序關係 $\geq$ 的區間 $[n,1]$ ，然後在這個數列上進行初始值為 $1$ 的應用乘法運算的右側歸約，最終得出一個結果值。這裡的命令z，將當前的堆疊深度即堆疊中元素數目壓入棧頂。還可以進一步增加針對初始的棧頂元素x的x ≤ 0情況的預處理，即執行x := x-x+1來實現x := 1。下面是其執行範例：

$ echo 0 | dc -e '? [d-1+]sAd0!<A [1- lFx]sG [d d1<G]dsFx [* z1<H]dsHx p'
1
$ echo 9 | dc -e '? [d-1+]sAd0!<A [1- lFx]sG [d d1<G]dsFx [* z1<H]dsHx p'
362880

下面的例子採用迭代法列印出階乘 ${\textstyle n!=\prod _{i=1}^{n}i}$ 的前n項的數列：

# n := x
# i := 1
# F(x):
#   x := x * i 
#   p(x)
#   i := i + 1
#   i <= n ? F() : x
# F(1)

這裡n := x中的x指稱初始的棧頂元素。這裡的迭代過程F(x)不同於一般的遞迴過程之處，是在呼叫自身之時仍採用當前棧頂元素為參數而不向堆疊壓入新元素。這裡所迭代的是需要初始化的堆疊中的自動變數x，它是 $n!$ ，其初始值1是 $0!$ ；i既是迭代的遞增計數器，也是迭代二元運算（英語：Iterated binary operation）的運算元，其遞增形成整數集 $\mathbb {Z}$ 上偏序關係 $\leq$ 的區間 $[1,n]$ ，同步地在這個數列上進行輸出中間值的初始值為 $1$ 的應用乘法運算的左側歸約，逐項輸出中間結果形成數列，這裡的x所起到的作用也被稱為累加器（accumulator），其含義為「累計」或「累積」而不必然採用加法或乘法。它可實現為：

sn 1si 1 [lid1+si *p liln!<F]dsFx

下面是其執行範例：

$ echo 6 | dc -e '? sn 1si 1 [lid1+si *p liln!<F]dsFx'
1
2
6
24
120
720

可以將它改為計算單個的階乘：

$ echo 0 | dc -e '? sn 1si 1 [lid1+si * liln!<F]dsFx p'
1
$ echo 9 | dc -e '? sn 1si 1 [lid1+si * liln!<F]dsFx p'
362880

斐波那契數

下面是對棧頂元素計算斐波那契數 $F_{n}=F_{n-1}+F_{n-2}$ 的遞迴過程：

# F(x):
#   x > 1 ? F(x-1) + F(x-2) : x
# F()

這個過程在x ≥ 0時有效，它可直接轉寫為互遞迴形式：

# F(x):
#   x > 1 ? G(x) : x
# G(x):
#   F(x-1) + F(x-2)
# F()

它可實現為：

[d 2- lFx r 1- lFx +]sG [d1<G]dsFx

這裡的r命令反轉（交換）棧頂元素和僅次於棧頂的元素二者的次序。下面是其執行範例，並展示了通過給它加列印斷點來觀察其遞迴呼叫的規模：

$ echo 0 | dc -e '? [d 2- lFx r 1- lFx +]sG [d1<G]dsFx p'
0
$ echo 20 | dc -e '? [d 2- lFx r 1- lFx +]sG [d1<G]dsFx p'
6765
$ echo 20 | dc -e '? [p d 2- lFx r 1- lFx +]sG [d1<G]dsFx' | wc -l
10945
$ echo 21 | dc -e '? [d 2- lFx r 1- lFx +]sG [d1<G]dsFx p'
10946

這個過程可以進一步採用記憶化而寫為：

# i := 1
# F(x):
#   x > 1 ? M(x) : x
# M(x):
#   if x <= i
#     a[x]
#   else 
#     temp := G(x)
#     i := i + 1
#     a[i] := temp 
#     temp
# G(x):
#   F(x-1) + F(x-2)
# F()

基於陣列的儲存命令:和訪問命令;，它可實現為：

1si [d 2- lFx r 1- lFx +]sG [;a q]sN [dli!<N lGx dli1+dsi:a]sM [d1<M]dsFx

在遞迴定義 $F_{n}=F_{n-1}+F_{n-2}$ 中，正在計算並要記憶其結果的是 $F_{n}$ ，即將它的結果儲存在這裡的a[n]中，其下標為n，而當前已儲存過的最大下標是n-1，將要儲存的下標是已經儲存的最大下標的增加1。這裡的i是陣列a的已儲存過的最大下標，它的初始值是1，即假定a[0]和a[1]已經儲存了數值。這裡的F(x)在被遇到0和1這兩個參數之時，直接在代碼中返回數值，而不會用它們作為下標去訪問陣列。

這個過程可以更一般化的寫為：

# a[0] := 0
# a[1] := 1
# i := 1
# F(x):
#   if x <= i
#     a[x]
#   else
#     S(x, b)    
#     temp := G(x)
#     x := L(b)
#     i := x
#     a[x] := temp 
#     temp
# G(x):
#   F(x-1) + F(x-2)
# F()

這裡的虛擬碼中的S(x, b)表示複製主棧的棧頂元素x並把它壓入棧b的棧頂，L(b)表示彈出棧b的棧頂元素並把它壓入主棧的棧頂。基於暫存器關聯棧的儲存命令S和裝載命令L，它可實現為：

0 0:a 1 1:a 1si [d 2- lFx r 1- lFx +]sG [;a q]sN [dli!<N dSb lGxd Lbdsi:a]dsFx

在遞迴定義 $F_{n}=F_{n-1}+F_{n-2}$ 的遞迴呼叫中，隨著 $F_{n}$ 的索引n的遞減，而遞迴下降至被計算出來並儲存的第一項 $F_{2}=F_{1}+F_{0}$ ，然後沿著呼叫鏈逐級返回。在遞迴的每個步驟中都要計算並儲存 $F_{n}$ ，它所需要的 $F_{n-1}$ 和 $F_{n-2}$ 這兩項之中：

如果首先進行 $F_{n-2}$ 遞迴呼叫並從其返回，則 $F_{n-1}$ 也需要計算並儲存，為此需要先後訪問已儲存的 $F_{n-3}$ 和 $F_{n-2}$ ；
如果首先進行 $F_{n-1}$ 遞迴呼叫並從其返回，則需要訪問已儲存的 $F_{n-2}$ 。

下面是其執行範例，展示了通過給它加列印斷點來觀察其遞迴呼叫的具體步驟，其中連續突顯標示出在呼叫棧中一個過程從開始被呼叫直到它結束返回：

$ echo 8 | dc -e '? 0 0:a 1 1:a 1si [d 2- lFx r 1- lFx +]sG [;a q]sN [[Level]nzn[ F]np dli!<N dSb lGxd Lbdsi:a]dsFx'
Level1 F8
Level2 F6
Level3 F4
Level4 F2
Level5 F0
Level5 F1
Level4 F3
Level5 F1
Level5 F2
Level3 F5
Level4 F3
Level4 F4
Level2 F7
Level3 F5
Level3 F6
$ echo 8 | dc -e '? 0 0:a 1 1:a 1si [d 1- lFx r 2- lFx +]sG [;a q]sN [[Level]nzn[ F]np dli!<N dSb lGxd Lbdsi:a]dsFx'
Level1 F8
Level2 F7
Level3 F6
Level4 F5
Level5 F4
Level6 F3
Level7 F2
Level8 F1
Level8 F0
Level7 F1
Level6 F2
Level5 F3
Level4 F4
Level3 F5
Level2 F6

遞迴過程的返回值之間形成了遞推關係，每個 $F_{n}$ 的值被用到一次或兩次，首次是從遞迴呼叫直接返回，再次是對其已儲存的值進行訪問，每個步驟要麼訪問兩項並儲存兩項，要麼訪問一項並儲存一項。故而它可以進一步寫為：

# i := 1
# F(x):
#   x > 1 ? M(x) : x
# M(x):
#   if x <= i
#     a[x%2]
#   else 
#     temp := G(x)
#     i := i + 1
#     a[i%2] := temp 
#     temp
# G(x):
#   F(x-1) + F(x-2)
# F()

它可實現為：

1si [d 2- lFx r 1- lFx +]sG [2%;a q]sN [dli!<N lGx dli1+dsi2%:a]sM [d1<M]dsFx

在遞迴定義 $F_{n}=F_{n-1}+F_{n-2}$ 的上述兩種求值次序中，首先進行 $F_{n-1}$ 遞迴呼叫的這種形式，其記憶化實現從一開始就持續進行遞迴呼叫直到首次遞迴返回，然後就逐級遞迴返回而不再進行遞迴呼叫，故而它可以進一步寫為：

# a := 0
# F(x):
#   x > 1 ? G(x) : x
# G(x):
#   temp := F(x-1)
#   prev := a 
#   a := temp
#   temp + prev
# F()

這裡的a被初始化為 $F_{0}$ 的值0，x在步入遞迴呼叫之後，除了在被遞減至 $F_{1}$ 的值1之時作為呼叫結果來返回之外，沒有參與到後續的加法運算之中，而主要起到了遞減計數器的作用。它可實現為：

0sa [1- lFx la r dsa +]sG [d1<G]dsFx

下面的例子採用迭代法列印出斐波那契數列的不含第0項的前n項：

# i := x
# a := 1
# F(x):
#   prev := a
#   a := x
#   x := x + prev
#   p(x)
#   i := i - 1
#   i > 0 ? F() : x
# i > 0 ? F(0) : 0

這裡i := x中的x指稱初始的棧頂元素。這裡的迭代過程F(x)不同於一般的遞迴過程之處，是在呼叫自身之時仍採用當前棧頂元素為參數而不向堆疊壓入新元素。針對遞推關係 $F_{n}=F_{n-1}+F_{n-2}$ ，它總共進行n次迭代運算得出 $F_{1}$ 到 $F_{n}$ 。這裡的i是進行迭代的遞減計數器，所迭代的是需要初始化的兩個變數x和a：在堆疊中的自動變數x，先是被迭代的 $F_{n-1}$ ，再是迭代出來的 $F_{n}$ ，其初始值0是 $F_{0}$ ，它所起到的作用也被稱為累加器；作為全域變數的a，以 $F_{1}-F_{0}$ 所得的1作為初始值，在首次迭代之後它是始於 $F_{0}$ 的 $F_{n-2}$ 。它可實現為：

si 1sa [lardsa +p li1-si li0<F]sF 0 li0<F

下面是其執行範例：

$ echo 6 | dc -e '? si 1sa [lardsa +p li1-si li0<F]sF 0 li0<F'
1
1
2
3
5
8

可以將它改為計算單個的斐波那契數：

$ echo 0 | dc -e '? si 1sa [lardsa + li1-si li0<F]sF 0 li0<F p'
0
$ echo 9 | dc -e '? si 1sa [lardsa + li1-si li0<F]sF 0 li0<F p'
34

參見

參照

^ dc(1): an arbitrary precision calculator – Linux使用者命令（User Commands）手冊頁
^ ^2.0 ^2.1 Brian Kernighan and Ken Thompson. A nerdy delight for any Vintage Computer Fest 2019 attendee: Kernighan interviewing Thompson about Unix. YouTube. 事件發生在 29m45s. [September 3, 2019]. （原始內容存檔於2022-02-01）.
^ The sources for the manual page for 7th Edition Unix dc. [2020-09-25]. （原始內容存檔於2019-09-24）.
^ Ritchie, Dennis M. The Evolution of the Unix Timesharing System. Sep 1979 [2019-05-31]. （原始內容存檔於2010-05-06）.
^ McIlroy, M. D. A Research Unix reader: annotated excerpts from the Programmer's Manual, 1971–1986 (PDF) (技術報告). CSTR. Bell Labs. 1987 [2019-05-31]. 139. （原始內容存檔 (PDF)於2019-11-30）.

外部連結

軟體套件dc（頁面存檔備份，存於網際網路檔案館）在Debian GNU/Linux倉庫中
bc的原生Windows移植包括了dc
嵌入到網頁中的dc（頁面存檔備份，存於網際網路檔案館）
The unix dc(1) command, this is the esoteric language that "made it big". （頁面存檔備份，存於網際網路檔案館）

[1] dc(1): an arbitrary precision calculator – Linux使用者命令（User Commands）手冊頁

[KenThompson-2] 2.0 ^2.1 Brian Kernighan and Ken Thompson. A nerdy delight for any Vintage Computer Fest 2019 attendee: Kernighan interviewing Thompson about Unix. YouTube. 事件發生在 29m45s. [September 3, 2019]. （原始內容存檔於2022-02-01）.

[3] The sources for the manual page for 7th Edition Unix dc. [2020-09-25]. （原始內容存檔於2019-09-24）.

[4] Ritchie, Dennis M. The Evolution of the Unix Timesharing System. Sep 1979 [2019-05-31]. （原始內容存檔於2010-05-06）.

[reader-5] McIlroy, M. D. A Research Unix reader: annotated excerpts from the Programmer's Manual, 1971–1986 (PDF) (技術報告). CSTR. Bell Labs. 1987 [2019-05-31]. 139. （原始內容存檔 (PDF)於2019-11-30）.

[1]

[2]

[3]

[4]

[5]

閱論編 Unix 命令列程式和shell內建指令
檔案系統	cat chmod chown chgrp cksum cmp cp dd du df file fsck fuser ln ls mkdir mount mv pax（英語：pax (Unix)） pwd rm rmdir size split stat tee touch type（英語：type (Unix)） umask（英語：umask）
程式	at bg chroot cron fg kill killall（英語：killall） nice pgrep pkill（英語：pkill） ps pstree（英語：pstree） time top
使用者環境	clear env exit history（英語：history (Unix)） id logname mesg（英語：mesg） passwd su sudo uptime talk（英語：talk (software)） tput（英語：tput） uname w wall（英語：wall (Unix)） who whoami write（英語：write (Unix)）
文字編輯	awk banner（英語：banner (Unix)） basename comm（英語：comm） csplit（英語：csplit） cut diff dirname ed ex fmt（英語：fmt） fold（英語：fold (Unix)） head（英語：head (Unix)） iconv join（英語：join (Unix)） less more nl（英語：nl (Unix)） paste（英語：paste (Unix)） printf（英語：printf (Unix)） read（英語：read (Unix)） sed sort（英語：sort (Unix)） spell（英語：spell (Unix)） strings（英語：strings (Unix)） tail tr uniq（英語：uniq） vi wc xargs
殼層內建	alias cd echo export test（英語：test (Unix)） unset wait
網路（英語：Network utility）	dig host ifconfig inetd（英語：inetd） netcat netstat nslookup ping rdate（英語：rdate） rlogin（英語：rlogin） route ssh traceroute
搜尋	find grep locate whatis（英語：whatis） whereis
文件	apropos（英語：apropos (Unix)） help（英語：help (command)） man
軟體開發	ar ctags lex make nm strip yacc
雜項	bc cal dc expr lp（英語：lp (Unix)） lpr sleep true和false yes
Unix實用程式列表