頗具藝術感的程式碼

程式設計真是蘊藏著無窮的想象，好的程式設計師就像藝術家一樣雕刻他的程式碼，keyboard就是羅丹手中的小刀，一行行的程式碼就是陳列著的雕像。

程式設計到底是不是藝術已經快變成繼程式語言和Emacs vs Vi之後另一Flame War話題。有興趣的可以去看。且看Joe Marshall論證一段程式碼。

實現一個帶三個引數的函式。這個函式返回三個引數中最大的兩個引數的平方和。

題目用來訓練學生對條件分支的理解。常規的解法是

(define (sum-square-largest x y z)
  (cond ((and (> y x) (> z x)) ;; y and z are largest
         (+ (* y y) (* z z)))
        ((and (> x y) (> z y)) ;; x and z are largest
         (+ (* x x) (* z z)))
        ((and (> x z) (> y z)) ;; x and y are largest
         (+ (* x x) (* y y)))))

改成C：

但Joe老大給出了一個非常漂亮的解法。簡潔直觀，巧妙地利用遞迴大幅簡化判斷。

define (sum-square-largest x y z)
(cond ((and (< x y) (< x z)) ;; x is smallest
(+ (* y y) (* z z)))
(else (sum-square-largest y z x))))

改成c就是：

這段程式碼符合Joe對判斷一件作品是否是藝術的四個標準：

• 這段程式碼非人不能寫出，富於想象力。
• 這段程式碼除了實現既定功能外，具有高度的表現力。
• 這段程式碼很美。
• 這段程式碼傳遞的美感和思想超越了它自身。

Joe Garvin給出了另外一個解法，不過沒有Marshall的直觀漂亮：

真是巧思，是不是藝術品，由君思考。

[@more@]