配列の要素を参照する

Question

前提・実現したいこと

学校のレポートで、LISPを使って、配列の要素を取得する関数valを作らないといけません。
valは(val l n)の形で呼び出すことができ、例えば

> (val '(yoru hosi sora) 2)
HOSI

のようにリストのn番目の要素(リストの先頭を1番目と数えます)を返します。

これを実現する為に、
n=1の時はcarを使ってリストの先頭を返し、
n>1の時はn-1回だけcdrを使ってリストの先頭以外の部分を取ってからcarを使って要素を取り出す
という事をしたいです。(nがリストの要素数を超えた時などの例外処理は後で実装します)

この関数を書いたのですが、n=1の時以外が以下のようなメッセージが出ます。
これはどのように書き換えればいいのでしょうか。

該当のソースコード

(defun val (l n)
  (cond ((= n 1) (car l))
      (t  (val((cdr l) - n 1)))))

エラーメッセージ

(val '(kawa umi hosi sima) 2)

Error: (CDR L) is invalid as a function.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by COND.
Backtrace: system:universal-error-handler > evalhook > val > cond > VAL

Broken at COND.

Answer 1

発想は正しいんだと思いますが、構文がめちゃくちゃなのでは？

書き直すとたぶんこんな感じ。

(defun val (l n)
  (cond ((= n 1) (car l))
        (t       (val (cdr l) (- n 1)))))

Comments

[waribashi]

ありがとうございます。できました！