二つの数列の内積を計算する関数の作成。これは簡単。 ;;; Exercise 1.5 (defun dot-product (x y) (apply #'+ (mapcar #'* x y))) (dot-product '(10 20) '(3 4)) ;==> 110 模範解答には3つの方法（再帰、ループ、mapcar/apply）が載っていて、同じことをや…