ここのところちょっとやる気が出ないので、違うことをして気分転換してみている。
計算機プログラムの構造と解釈本のサンプルはSchemeだけど、これをelisp(Meadow)で解いていくことにした（たまにHaskellでも解いてみたいが）。
1.3 3つの数を引数としてとり、大きい2つの数の二乗の和
(defun sq (a b c) (+ (if (> a b) (* a a) (* b b)) (if (> b c) (* b b) (* c c)))) (sq 4 2 3) 25 (sq -1 -2 -3) 5
elispだとdefun,setqと分けるけど、Schemeだとどちらもdefineという同じ構文を使う。