2009-07-05から1日間の記事一覧

mapcarでsum-of-squaresを書き直す

mapcarを覚えたので、sum-of-squaresを書き直してみました。こんな便利なものがあるんだったら早く使えば良かった・・・。 (defun sum-of-squares (x) (if (null x) 0 (+ (* (first x) (first x)) (sum-of-squares (rest x))))) 上記のコードがもともとのsum…