1. 以下の式をletや*letを使わないで、しかも1つの式が2度評価されることがないような等価な式に書き換えよ。 (a) (let ((x (car y))) (cons x x)) letはlambdaで置き換えられるので、 (setf y '(a b c)) (let ((x (car y))) (cons x x)) ((lambda (y) (cons…