ベストアンサー

LISPのブロック？処理？

2007/05/27 17:10

LISPで (if (条件) (真の処理) (偽の処理) )のうち、真の処理には１つの関数？しか、書けないのでしょうか？ (if (条件) (setq x "○") (setq x "×") ) ======A====== 複数関数書きたい。 Aの部分は(progn ...)とするのでしょうか？

Lusaka1
お礼率2% (2/76)

その他（プログラミング・開発）
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

koko_u_
ベストアンサー率18% (459/2509)

2007/05/27 19:47 回答No.1

>Aの部分は(progn ...)とするのでしょうか？そう。

関連するQ&A

lispのwhile

lispの特殊形式whileを以下のように定義します。 (while 判定条件本体…) 第一引数である判定条件を評価し真ならば本体を評価しもういちど判定条件を評価、偽ならば本体を評価しない。この時次のコードでよくわからない部分があります (defmacro image (var list &rest forms) `(let (($list$ ,list) ($r$ nil) (,var nil) ) (while ($list$ (nreverse $r$)) (setq ,var (pop $list$)) (push (progn ,@forms) r) ))) ($list$ (nreverse $r$)) この文は偽（つまりnil）になりえるのですか？ $list$はpopを繰り返すのでループを繰り返せばnilになるでしょう。しかし (nreverse $r$) はpushを繰り返すのでnilにはなりえないと思います。また、もしnilになりえたとしても (while (nil nil)) は (while (nil)) と同値なのでしょうか？ちなみにこれはlispの参考書のコードそのままです。読み進めていくうちにだんだん難しくなってきました。もうどれだけ考えてもわからないので、気持ち悪い思いはしながらもどんどん先に進んでいます。こんな勉強法でいいんでしょうか？不安になります。
LISPで連想配列の操作？

(setq ary '((A . 1) (B . 2) (C . 3))) で、perlでの $ary{'A'}++; や $ary{'B'}='X' や $ary{'C'}=$ary{'A'}+5; ということをさせたいのですが、LISPではどう書くのでしょうか？ (assoc 'A ary) 2 (assoc 'B ary) X (assoc 'C ary) 7 という結果が欲しいです。また、一度にaryの内容を表示させる Data::DumperのようなものはLISPにあるのでしょうか？処理系はCommon LISPです。
Lispにおける最大値関数

Lispで括弧の入れ子の中身も含めた最大値を求める関数を自分なりに作ったのですが、条件によってはうまくいきません。なぜだか教えていただけないでしょうか？ (defun max1 (n) (cond ((atom n) n) (t (if (null (cdr n)) (max1 (car n)) (progn (let ((local_max (max1 (cdr n)))) (if (> (car n) local_max) (car n) local_max))))))) > (max1 '(1 2 6 (3 4))) 6 > (max1 '(1 2 (6) ((3 4)))) >: (6) is not a REAL
AIは使う人の年齢や市場にも影響する？人工知能の可能性

OKWAVE コラム
LISPの間違いを指摘して欲しいのですが・・・

(setq a 1) (setq b 2) (setq c 3) (setq d 4) (setq e 5) (setq f 6) (setq g 7) (setq h 8) (setq i 9) (setq j 10) (defun wa(q r s t u v w x y z) (+ q r s t u v w x y z)) (wa a b c d e f g h i j ) 55 １から10までの合計値を求める”LISP”のプログラムを作りたいのですが上記を作ってみましたがうまくいきません。どこが悪いのでしょうか？
lispに関する質問

最近lispを勉強し始めたのですが、 Newton法を使った平方根を求めるプログラムがうまく書けず困っています。 (defun isqrt(n &aux x0 x1) (setq x0 (expt 2 (floor (integer-length n) 2))) (loop (setq x1 (floor (+ x0 (floor n x0)) 2)) (print x1) (cond ((= x0 x1)(return)) (t (setq x0 x1)))) x0) このように書くとnの値が３や８や１５の時にx0、x1の値が無限に出てきてしまいます。何でおかしいのでしょうか？直すにはどうしたら良いですか？わかる方教えて下さい。よろしくお願いします。
Lisp

Lisp 今リリカルLispをやっているのですが、詰まってしまって答えがないので困っています。問題は (s n)を評価すると１＋２＋・・・＋ｎが返るように関数をsiを定義する（ただしsは次のように定義されている define (s n) (si n 0) ) という問題です。一応自分なりに考えたのが (define si (lambda (n x) (if (= n 1) (x) (si (- n 1) (+ n x))))) なんですが無限ループのようになるのかこれを実行すると固まって落ちてしまいます。ご指摘よろしくお願いします。
lispについて質問です

assoc関数と同じ動作をする関数（ただし、文字列も扱えるようにする）を作成したいと考えています具体的には、 (setq S '(("1" "a")("2" "b"))) とあったときに、自作した関数（assoc_mojiとします） (assoc_moji "1" S) と実行したら ("1" "a") となるような関数ですまた、無い場合はnilを返します条件分岐で関数を組み込み、成功した場合は結果を返しそのほかの場合はnilを返すというところまではわかりますが、その条件分岐で定義する式が全くわかりません。 memberや、equalを使って、リストに含まれていれば、または指定した文字列が一緒ならば、返すなどしましたがまったくうまくいきませんでした。どなたか、こういう関数を使ってこういう処理をさせればよいという風なヒントだけでもいいので、ご教授お願いします
Lispについてわからないことが(Scheme)

あるLispの勉強ソフトで、「関数lを『引数としてxを受け取ると、xの要素の数を返す関数』として定義しなさい。」という問題があるのですが、私は以下のようにしました。 (define l (lambda (x) (if (= x null?) 0 (+ 1 (l (cdr x)))))) しかしこれだとオーバーフローと表示されて強制終了されてしまいました。そこで答えをネットで検索したところ以下のものが見つかりました。 (define l (lambda (x) (cond ((null? x) 0) (else (+ 1 (l (cdr x))))))) これが正解なようですが、この2つのリストの違いがわかりません。初歩的なことですがifの使い方を間違っているんでしょうか？
emacs lispで別のバッファを制御する方法

emacs lispのプログラミングをしていて、現在のバッファにあるファイル名と行番号を取得して別のwindowにそのファイルのその行を表示させたいのですが、以下の様にしてファイルのオープンは出来るのですが行の移動が出来ません。どの様にしたら良いのでしょうか？ ------------------------ (defun elx-display-source () (interactive) (elx-link-to-source) ; <--この関数でfile-nameとline-noに値がセットされる (setq log-buffer (current-buffer)) <-- 今のバッファ ( if file-name (progn (setq rtl-buffer (find-file-noselect file-name)) <-- 新しいファイルを開く(OK) (display-buffer rtl-buffer) ; (switch-to-buffer rtl-buffer) ; (goto-line line-no) ; <-- ここで行をジャンプさせたいがしない。。。 (switch-to-buffer log-buffer))) ) ---------------------
MSExcel2003で条件分岐の方法

今まで、条件AまたはBである時は真・それ以外は偽を返す式を作るとき =if(A1="A","真",if(A1="B","真","偽")) という式を作ってきました。これをor記号を使って =if(A="A"or"B","真","偽") というように作り替えたいのですが，うまくいきません。今は二つの条件に合わない場合は偽としていますが、これが５つくらいになってくるとこの方法補煩雑で間違いが多くなり使えないのですが、どうすれば上手な条件分岐をすることができますか？
Lispの問題

lispを最近習い始めた初心者です。以下の問題【2】つが解けないので回答をお願いします。【1】 ;;; CONS CL-USER(1): (cons 'a 'b) (A . B) ; ドッティドペア ;;; (1 2 3) ;;; (1 . 2) 関数 CONS は上に並べたある関数の特別な場合と同じと見ることができるそれは何か? 以下の ◇ は何に相当するか? ;;; (cons a b) ≡ (◇ a b) 【2】関数 PRINC を利用し、リストをドッティドペアとしてプリントする関数を定義してみよです。【2】の問題は (dotted-print '(1 2 3)) => (1 . (2 . (3 . NIL))) が例としてあるのですが、理解できません。例についても解説していただけると助かります。【1】,【2】単体の回答でもどうかご教授御願いします。後lisp初心者にオススメなサイトなどあったら教えてください。
エクセルでの時間の大小関係

A1というセルに　23:00　の数値が入っています。それで、=IF(A1>"20:00","真","偽")　という関数を使っても　偽　と表示されます。この式は間違っているのでしょうか？よろしくお願いします。
エクセル関数　ISNUMBERについて

こんにちは。 ISNUMBER と IF関数を用いてセルに"真"か "偽"を表示させたいのですが・・・例えば、セルに特定の数値が入力されれば“真”を表示する。ということです。どうやら、数字の「1」は「10」「12」なども　「1」が含まれていると認識するようで、困っています。また、他のセルの関数を参照していることからどのような式を組めばよいのか分かりません。詳しく説明すると以下のようになります。 ((　))はセルに入力されている関数です。　　　　　　　A 　　　　　　　　B　　　　　　　　　C 1　　　　2009/01/20 　 2　　　　　　1 　　　((　=MONTH(A1)　)) 3　　　　　4、10月　　　((　文字列　　)) 4　　　　　真　　　((　= IF(ISNUMBER(SEARCH(A1,A3)),"真", "偽")　)) A1　シリアル値で入力された日付 A2　その日付より“月”だけ取り出して表示 A3　真か偽かを判断する為の基本となるデータを入力 A4　 ISNUMBER関数　→　A2の数値がA3に含まれていれば“真”をそうでないらな“偽”を表示する。上記のように　1　は　10月　とは異なるので“偽”としたいのですが、10月の　10　の　1　を読み取ってしまうようで　“真”と　なってしまいます。 11月、12月　等も　1、2、と　読み取ってしまうようで・・・・ 1は　1月のみ“真”と表示。　2は2月のみ“真”と表示。というようにするにはどうしたら良いのでしょうか？宜しくお願いします。
「初めての人のためのLISP[増補改訂版]」で

「初めての人のためのLISP[増補改訂版]」のP.46の練習問題をやっていくと (setq A nil) nil (setq B '(87 58 90)) (87 58 90) (setq C '(I B M)) (I B M) (null t) nil (null A) t (null (null A)) nil (cadr B) 58 (+ (car B) (caddr B)) 177 (cadr C) B (set (car C) (cdr B)) (58 90) (car C) I (atom C) nil となりますが、なぜ (atom C) でnilが返ってくるのですか？ "C"はアトムではないのですか？
IF VBA　１つの条件で複数の処理

IF関数で、１つの条件（セルに特定の文字があったら）セルA1＝B1＋C1 セルB1＝D1＋E１のように２つの処理を行ないたい場合、どんな構文を作成したらいいでしょうか。 IF～Then ElseIf～Then End　If というのが基本構文ですが、条件が複数あるのではなく条件１つで処理は２つというのが分かりません。
perlの質問です

論理演算子複数の条件を組み合わせて、より複雑な条件を表すときに使います。 &&,and かつ ($a>=10)&&($a<50) $aは10以上かつ50未満 ||,or または ($a==1)||($a==100) $aは1または100 !,not ～ではない !($a==100) $aは100ではない $aは5以上1000未満である (5<=$a)&&($a<1000) $aは0でも1でもない !(($a==0)||($a==1)) $a=0または$a=1ではない !($a==0)&& !($a==1) $=0ではなく、$b=1でもない ($a!=0)&&($a!=1) $a≠0かつ$a≠1である条件付き実行条件式&&処理条件式が真なら処理を行い、偽なら処理を行いません。条件式||処理条件式が真なら処理を行わず、偽なら処理を行います。 $a=4; 変数$aに4を代入する。 ($a<10)&&(print "\$aは10未満\n"); 変数$aに4を入れると条件式が真なので　$aは10未満　を表示させる。 ($a<10)||(print "\$aは10以上\n"); 変数$aに4を入れてくらべると条件式は真なので処理は行いません。 $a=($a!=0)&&($a*2); ($a==10)&&(print "\$aの値は10\n"); 変数$aは8なので条件式は偽であるため処理は行われない。 ($a !=8)||(print "\$aの値は8\n"); 変数$aは8なので条件式は偽のため　$aの値は8　を表示させる。あっていますでしょうか。それから　$a=($a!=0)&&($a*2);　の意味がわかりません。実行してみたら一応動きます。
IF関数の計算式について教えてください

以下の式の場合、「真の場合」として扱われません。 [条件] セルA1=0.9 セルA2=0.9(=0.6+0.3で入力) [計算式] =IF(A1-A2>=0,"真","偽") 通常の計算であれば「0」となるため、「真」が返るはずなのですが「偽」が返ってしまいます。「真」が返る方法ありますか？
【Excel2003VBA】セルの文字で条件分岐

基本的な質問で恐縮ですが、Excel2003のVBAで条件分岐をするときの方法について質問です。例えば、A1に文字列の「当選」と「あたり」があった場合は、真の処理を、それ以外の場合は偽の処理をする場合は条件式にどのように書けば良いのでしょうか？次の【条件式】に入る書き方を教えてください。 sub 条件分岐() 　　If　【条件式】 Then 　　　　真の場合　　Else 　　　　偽の場合 End sub
☆★☆ホワイトボックステストの条件網羅について質問です！☆★☆

☆★☆ホワイトボックステストの条件網羅について質問です！☆★☆ 判定条件網羅は、「判定文における真偽の分岐をいずれか少なくとも１回は実行する」となっており、例えば A and B の条件があれば、テストケースは No1 A=真 B=真 AandB=真 No2 A=真 B=偽 AandB=偽 No3 A=偽 B=真 AandB=偽 No3 A=偽 B=偽 AandB=偽となり要するに、判定条件網羅は「判定結果が真と偽になる結果をそれぞれ選べ！」と言うことで No1とNo2～No3のいずれかであると理解できます。・・・が、しかし条件網羅は、「複数の条件が組み合わさっている場合、それぞれの条件について少なくとも１回は実行する」と言った説明が教本ではされていましたがその答えが No2とNo3 となる理由が理解出来ません。どなたか、条件網羅がなぜ上記のような回答となるのかご説明を願いします。
NULLの定義について

C言語で、NULLとの比較を行う関数として、 strcmp関数を使用したいと考えています。ある、文字列変数に、 "あいうえお"が入っている場合、 ""（何もない）の場合、下記の例で真の処理と偽の処理、どちらを通るのでしょうか。当然、文字列変数が"あいうえお"の場合は、真の処理を通ると思いますが、 ""（何もない）の場合が分かりません。例として、～中略～ if( strcmp( 文字列変数, NULL ) != 0 ){ 真の処理 }else{ 偽の処理 } ～中略～の時です。言語によって、NULLは「0」と定義されていたような記憶もありますが・・したい事は、文字列変数が""の場合、偽の処理をするようにしたいです。プログラムの作り方を教えて下さい。

LISPのブロック？処理？

質問者が選んだベストアンサー

関連するQ&A

lispのwhile

LISPで連想配列の操作？

Lispにおける最大値関数

AIは使う人の年齢や市場にも影響する？人工知能の可能性

LISPの間違いを指摘して欲しいのですが・・・

lispに関する質問

Lisp

lispについて質問です

Lispについてわからないことが(Scheme)

emacs lispで別のバッファを制御する方法

MSExcel2003で条件分岐の方法

Lispの問題

エクセルでの時間の大小関係

エクセル関数　ISNUMBERについて

「初めての人のためのLISP[増補改訂版]」で

IF VBA　１つの条件で複数の処理

perlの質問です

IF関数の計算式について教えてください

【Excel2003VBA】セルの文字で条件分岐

☆★☆ホワイトボックステストの条件網羅について質問です！☆★☆

NULLの定義について

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

LISPのブロック？処理？

質問者が選んだベストアンサー

関連するQ&A

lispのwhile

LISPで連想配列の操作？

Lispにおける最大値関数

AIは使う人の年齢や市場にも影響する？人工知能の可能性

LISPの間違いを指摘して欲しいのですが・・・

lispに関する質問

Lisp

lispについて質問です

Lispについてわからないことが(Scheme)

emacs lispで別のバッファを制御する方法

MSExcel2003で条件分岐の方法

Lispの問題

エクセルでの時間の大小関係

エクセル関数 ISNUMBERについて

「初めての人のためのLISP[増補改訂版]」で

IF VBA １つの条件で複数の処理

perlの質問です

IF関数の計算式について教えてください

【Excel2003VBA】セルの文字で条件分岐

☆★☆ホワイトボックステストの条件網羅について質問です！☆★☆

NULLの定義について

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル関数　ISNUMBERについて

IF VBA　１つの条件で複数の処理

カテゴリ
一覧

専門家に質問してみよう
専門家登録