四次元殺法コンビｷﾀｰｰｰ
とりあえず再帰と答えた香具師、>>323 貴様だ、貴様。
貴様はとりあえずリストの要素に関数を適用する部分を抽象化して
($sum (lambda (x) (* x x)) '(1 2 3)) == 14
みたいな $sum を作ってこい！もちろん >>320 で apply つかった実装は
既出なのでそれ以外の方法でな。

つまり問 2 を
(defun A-1 (lst) ($sum #'identity lst))
(defun A-2 (lst) ($sum #'(lambda (x) (* x x)) lst))
みたいに書けるようにするわけだ。どうｳﾏｰなのか説明できるとなお良し。