Lisp プログラムの質問です。

Lisp プログラムの質問です。（１） 6歳から14歳の子は3000円を，15歳から21歳の子は5000円をもらえて，これ以外の年齢の人はもらえないと決まっているとする．年齢 xを引数として， x歳の子がもらえるお年玉の額を返す関数．ifを組み合わせて作る．
実行例 > (otoshidama 3) 0

(otoshidama 10) 3000
(otoshidama 18) 5000
(otoshidama 30) 0

（２）リストy が(品目1 金額1 ... 品目 n 金額n) の形式になっている時，品目xの金額pをみつけて， pが予算z以内ならzからpを引いた金額を返す． pが予算zを超えていれば， yosan-overを返す．品目xがリストになければ，not-found を返す．
実行例

(setq y0 '(ateishoku 450 bteishoku 400 cteishoku 380)) (ATEISHOKU 450 BTEISHOKU 400 CTEISHOKU 380)
(kaimono 'bteishoku y0 1000) 600
(kaimono 'ateishoku y0 400) YOSAN-OVER
(kaimono 'tendon y0 1000) NOT-FOUND

よろしくお願いします。

行動規範の内容に同意します

回答2件

課題かなんかであるなら、ご自分で考えるべきものです。
わからないことがあるなら、赤の他人にではなく講師にお尋ねください

＃その講師がここを見てなければいいのですがｗ

投稿2021/05/23 05:11

y_waiwai

総合スコア87800

全部教えては意味が無いので、ヒントだけ書いておきます。

（１）の不完全な答え

lisp
1* (defun otoshidama (age)
2    (if (and (>= age 6) (<= age 14)) 3000 0))
3WARNING: redefining COMMON-LISP-USER::OTOSHIDAMA in DEFUN
4OTOSHIDAMA
5* (otoshidama 7)
63000
7* (otoshidama 20)
80
9

あとは自分で考えてください。

（２）のヒント

lisp
1* (setq y0 '(ateishoku 450 bteishoku 400 cteishoku 380))
2* (print (car y0))
3
4ATEISHOKU
5ATEISHOKU
6* (print (cdr y0))
7
8(450 BTEISHOKU 400 CTEISHOKU 380)
9(450 BTEISHOKU 400 CTEISHOKU 380)