(memq obj1 list) (memv obj1 list) (assq obj alist) (assv obj alist)equal?は実装していないので、(member obj list) と (assoc obj alist)は後回し。

(eqv? obj1 obj2) (eq? obj1 obj2)結構適当に実装。細かい所が違うかもしれないが、それは後でテストスイートで拾う事にしよう。equal?は気持ちが乗らないので後で。

晒されたのでもう一度言っておきますが、大阪の丸ビルは丸いんです！

以下の関数を授業中に実装... (pair? obj) (cons obj1 obj2) (car pair) (cdr pair) (set-car! pair obj) (set-cdr! pair obj) (caar pair) (cadr pair) ... ... ... (cdddar pair) (cddddr pair) (null? obj) (list? obj) (list obj ...) (length list) (ap…