2012-03-31から1日間の記事一覧
CommonLisp : member関数の定義。atom, car で再帰の条件を トップレベルに一致する要素があるか調べる。 member関数 (defun mymember (x y) (cond (( null y) nil) ((atom (car y)) (if (eql x (car y)) (car y) (mymember x (cdr y)))) ( (mymember x (cd…
CommonLisp : member関数の定義。atom, car で再帰の条件を トップレベルに一致する要素があるか調べる。 member関数 (defun mymember (x y) (cond (( null y) nil) ((atom (car y)) (if (eql x (car y)) (car y) (mymember x (cdr y)))) ( (mymember x (cd…