Cond

提供:GizmoLabs - だいたい CAD LISP なサイト
2009年10月26日 (月) 12:51時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成: ; 構文 : (cond [''(test result ...)'' ...]) ; 機能 : LISP の多分岐条件関数としての機能を果たす。 ; 引数 :* 任意の数のリスト(test result ...)…)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(cond [(test result ...) ...])


機能
LISP の多分岐条件関数としての機能を果たす。
引数
  • 任意の数のリスト(test result ...)。
  • 各リストの先頭の項目を評価し、それが nil 以外の値を返すまで、各リストの先頭項目の評価を続ける。そして、先頭項目の評価結果が nil 以外だったリストの2 番目以降の式を評価する。
戻り値
サブリストの最後の式の値。 サブリストの中に式が 1 つしかない(つまり result が存在しない)場合は、test 式の値を返す。引数が与えられていない場合、cond 関数は nil を返す。


サンプル
次の例では、cond 関数を使用して絶対値の計算を行っている。
(cond  
   ((minusp a) (- a))  
   (t a) 
)  
* 変数 a に値 -10 が代入されていると、10 を返す。
次に示すように、cond 関数は多分岐型の関数として使用される。通常は最後の(既定値の)test 式には T を使用する。次に簡単な例を示す。変数 s にユーザが入力した文字列を与えると、cond 関数はその文字列をテストし、Y か y か Y(全角) なら 1 を、N か n か N(全角) なら 0(ゼロ)を、それ以外の場合は nil を返す。
(cond 
   ((= s "Y") 1)  
   ((= s "y") 1)  
   ((= s "Y") 1)  
   ((= s "N") 0)
   ((= s "n") 0)  
   ((= s "N") 0)
   (t nil) 
)