【入門】Common Lisp その３【質問よろず】

【入門】Common Lisp ..

259:デフォルトの名無しさん
07/07/14 23:18:09
んん？問題は良い問題なのになんか根本的に間違った方向にいってないか？

S-式は、リストと思わずに木(ツリー)と思った方がいい。
で、木の要素を順番に辿る。木の要素が atom か consp かで場合分け。
consp だったら、まず [ を出力し、hogehoge の処理をして最後に ] を出力する。
任意の入れ子になった木を出力できないと行けないんだから、
hogehoge は言わなくても分かるな？

260:デフォルトの名無しさん
07/07/15 00:39:44
要するにwrite相当を実装しろってことでしょ？

(defun write-list(exp)
(princ "[")
(loop (if (not (consp exp)) (return))
(write (car exp))
(setq exp (cdr exp))
(if (consp exp) (princ " ")
(if (not (null exp))
(progn (princ " . ") (write exp)))))
(princ "]"))

(write-list '(a b c . d))
[A B C . D]
write本体は自分で考なよおじさん

ちなみに俺もCommonLisp初めてなんだけど、
whileって無いみたいね。
上の(loop (if (not (consp exp)) (return)) ～ )
てかなりﾏﾇｹな気がするんだけど、もっと簡単にできない？
whileがあれば(while (consp exp) ～)で済むのに

261:デフォルトの名無しさん
07/07/15 00:40:40
doがあるよ

262:デフォルトの名無しさん
07/07/15 00:44:46
これでしょ？
(defmacro while (condition &body body)
`(do () ((not ,condition)) ,@body))

でもdoはなんとなくｷﾓｲんだよな…

263:デフォルトの名無しさん
07/07/15 01:57:06
ループの話題で思い出したけど、
最新版のSBCLで以下のコードがn=5000程度で死ぬんですが、
末尾再帰の最適化はしてくれないんでしょうか？
(defun w(n)
(labels ((x (n) (write n) (if (> n 0) (y (- n 1)) ))
(y (n) (write n) (if (> n 0) (z (- n 1)) ))
(z (n) (write n) (if (> n 0) (x (- n 1)) )))
(x n)))
(w 5000) ;程度で死ぬ

schemeでは
(define (w n)
(letrec ((x (lambda (n) (write n) (if (> n 0) (y (- n 1)))))
(y (lambda (n) (write n) (if (> n 0) (z (- n 1)))))
(z (lambda (n) (write n) (if (> n 0) (x (- n 1))))))
(x n)))
(w 10000000000) ;nをいくら大きくしてもOK

264:デフォルトの名無しさん
07/07/15 02:46:34
>>258
3 章までとか言われてもよくわかんないけど、princ くらいはあるのかな？
考え方：
0. リストがわたってくる
1. [ を表示
2. 各要素を表示
2-1. 要素がもうないなら終わり
2-2. 要素を一個表示して 2. へ
3. ] を表示

(defun show-list (lst)
(princ "[") ; 1
(show-list-contents lst) ; 2
(princ "]")) ; 3

(defun show-list-contents (lst)
(cond ((null lst) ; 2-1
nil)
(t ; 2-2
(princ (car lst))
(show-list-contents (cdr lst)))))

265:264
07/07/15 02:48:28
264 のリスト内のリストも [] で表示するのは課題としときます。
ヒント：要素がリストなのかアトムなのかを判定して…

>>260
while の内部実装が do でキモいというなら↓でどうでしょう。
(loop while (consp exp) do ....)
これも嫌なら素直に Scheme を使ったほうがいいと思います。

>>263
SBCL 1.0.7 で disassemble して末尾再帰の最適化もされている事を確認しました。
(w 10000000000) も普通に動いてるようですが。

266:デフォルトの名無しさん
07/07/15 03:24:34
>>263
ごめんWindows版だから1.0.6だった。
普通にインストーラで作成されるショートカットから起動して
>>263のコードをコピペ。
(w 10000)で

12840283928fatal error encountered in SBCL pid 2812:
GC invariant lost, file "gencgc.c", line 832

LDB monitor
ldb>
となって止まる。
今確認したら5000だとなんか完了したりもするので10000で。
6000辺りだとプロンプト'*'が連続表示して暴走した風になって、
タスクマネージャで見るとメモリをどんどん消費していくのが判る。
ほっとくとOS側(XP Pro. SP2)でメモリ不足のダイアログが出る。
Windows版特有なのかな・・？

267:デフォルトの名無しさん
07/07/15 03:25:23
ごめん上は>>265宛て

268:デフォルトの名無しさん
07/07/15 03:28:54
* (disassemble 'w)してみたけど、最適化掛かってるかわからないので
よければ鑑定お願いします。

; 0A626C8E: 8B45F0 MOV EAX, [EBP-16] ; no-arg-parsing e
ntry point
; C91: 8945F4 MOV [EBP-12], EAX
; C94: E9FB000000 JMP L14
; C99: L0: 8BDC MOV EBX, ESP
; C9B: 83EC0C SUB ESP, 12
; C9E: 8B55F4 MOV EDX, [EBP-12]
; CA1: 8B05586C620A MOV EAX, [#xA626C58] ; #<FDEFINITION object for WRITE>
; CA7: B904000000 MOV ECX, 4
; CAC: 896BFC MOV [EBX-4], EBP
; CAF: 8BEB MOV EBP, EBX
; CB1: FF5005 CALL DWORD PTR [EAX+5]
; CB4: 7302 JNB L1
; CB6: 8BE3 MOV ESP, EBX
; CB8: L1: 8B55F4 MOV EDX, [EBP-12]
; CBB: 31FF XOR EDI, EDI
; CBD: E84E979DF7 CALL #x2000410 ; GENERIC->

269:デフォルトの名無しさん
07/07/15 03:29:59
; CC2: 7302 JNB L2
; CC4: 8BE3 MOV ESP, EBX
; CC6: L2: 81FA0B001002 CMP EDX, 34603019
; CCC: 750F JNE L4
; CCE: BA0B001002 MOV EDX, 34603019
; CD3: L3: 8D65F8 LEA ESP, [EBP-8]
; CD6: F8 CLC
; CD7: 8B6DFC MOV EBP, [EBP-4]
; CDA: C20400 RET 4
; CDD: L4: 8B55F4 MOV EDX, [EBP-12]
; CE0: BF04000000 MOV EDI, 4
; CE5: E848959DF7 CALL #x2000232 ; GENERIC--
; CEA: 7302 JNB L5
; CEC: 8BE3 MOV ESP, EBX
; CEE: L5: 8955F4 MOV [EBP-12], EDX
; CF1: 8BDC MOV EBX, ESP
; CF3: 83EC0C SUB ESP, 12
; CF6: 8B55F4 MOV EDX, [EBP-12]
; CF9: 8B05586C620A MOV EAX, [#xA626C58] ; #<FDEFINITION object for WRITE>
; CFF: B904000000 MOV ECX, 4
; D04: 896BFC MOV [EBX-4], EBP
; D07: 8BEB MOV EBP, EBX
; D09: FF5005 CALL DWORD PTR [EAX+5]

270:デフォルトの名無しさん
07/07/15 03:31:13
; D0C: 7302 JNB L6
; D0E: 8BE3 MOV ESP, EBX
; D10: L6: 8B55F4 MOV EDX, [EBP-12]
; D13: 31FF XOR EDI, EDI
; D15: E8F6969DF7 CALL #x2000410 ; GENERIC->
; D1A: 7302 JNB L7
; D1C: 8BE3 MOV ESP, EBX
; D1E: L7: 81FA0B001002 CMP EDX, 34603019
; D24: 7507 JNE L8
; D26: BA0B001002 MOV EDX, 34603019
; D2B: EBA6 JMP L3
; D2D: L8: 8B55F4 MOV EDX, [EBP-12]
; D30: BF04000000 MOV EDI, 4
; D35: E8F8949DF7 CALL #x2000232 ; GENERIC--
; D3A: 7302 JNB L9
; D3C: 8BE3 MOV ESP, EBX
; D3E: L9: 8955F4 MOV [EBP-12], EDX
; D41: 8BDC MOV EBX, ESP
; D43: 83EC0C SUB ESP, 12
; D46: 8B55F4 MOV EDX, [EBP-12]
; D49: 8B05586C620A MOV EAX, [#xA626C58] ; #<FDEFINITION object for WRITE>
; D4F: B904000000 MOV ECX, 4
; D54: 896BFC MOV [EBX-4], EBP
; D57: 8BEB MOV EBP, EBX
; D59: FF5005 CALL DWORD PTR [EAX+5]

271:デフォルトの名無しさん
07/07/15 03:32:07
; D5C: 7302 JNB L10
; D5E: 8BE3 MOV ESP, EBX
; D60: L10: 8B55F4 MOV EDX, [EBP-12]
; D63: 31FF XOR EDI, EDI
; D65: E8A6969DF7 CALL #x2000410 ; GENERIC->
; D6A: 7302 JNB L11
; D6C: 8BE3 MOV ESP, EBX
; D6E: L11: 81FA0B001002 CMP EDX, 34603019
; D74: 750A JNE L12
; D76: BA0B001002 MOV EDX, 34603019
; D7B: E953FFFFFF JMP L3
; D80: L12: 8B55F4 MOV EDX, [EBP-12]
; D83: BF04000000 MOV EDI, 4
; D88: E8A5949DF7 CALL #x2000232 ; GENERIC--
; D8D: 7302 JNB L13
; D8F: 8BE3 MOV ESP, EBX
; D91: L13: 8955F4 MOV [EBP-12], EDX
; D94: L14: E900FFFFFF JMP L0
; D99: 90 NOP
; D9A: 90 NOP
; D9B: 90 NOP
; D9C: 90 NOP
; D9D: 90 NOP
; D9E: 90 NOP
; D9F: 90 NOP
; DA0: CC0A BREAK 10 ; error trap
; DA2: 02 BYTE #X02
; DA3: 18 BYTE #X18 ; INVALID-ARG-COUNT-ERROR
; DA4: 4D BYTE #X4D ; ECX
;
NIL

272:265
07/07/15 04:08:49
>>266
あーそゆことか。コードはちゃんと最適化されてるが GC 回りのバグですね。
SBCL の Windows 版はまだ試験的なものなんで安定してないんだよ。
Windows な開発者も少ないしね。ごめんね SBCL にかわってごめんね

273:デフォルトの名無しさん
07/07/15 04:44:16
うーむ、GC周りのバグってことは、ちゃんとプロテクトされてない
ってことかな？結構いい加減ですね・・。

ちなみにclisp(clisp-2.41-win32-mingw-without-readline.zip)で
同じ様にcompileして実行しても、
*** - Program stack overflow. RESET
と出るんですけど、こっちは何とかなりませんかね。

274:デフォルトの名無しさん
07/07/15 08:15:12
俺も初心者ですが、こんなので合ってますか。

(defun show-list (lst)
　 (cond
　　 ((atom lst)
　　　(format t "~A" lst))
　　 (t
　　　 (format t "[")
　　　 (show-list (car lst))
　　　 (show-rest (cdr lst)))))

(defun show-rest (lst)
　 (cond
　　 ((null lst)
　　　(format t "]"))
　　 ((atom lst)
　　　(format t " . ~A]" lst))
　　 (t
　　　 (format t " ")
　　　 (show-list (car lst))
　　　 (show-rest (cdr lst)))))

275:デフォルトの名無しさん
07/07/15 12:19:07
>>273
clisp について、(declare (optimize (speed 3))) とかしたらどうでしょうか。
URLﾘﾝｸ(www.lispworks.com)

今手元に環境がないんでちょっとあれでなにですが。

276:265
07/07/15 13:03:18
>>273
うーむ、experimental と明示されてる Windows 版をつかって、そゆこというのは
味付け前の料理をつまみ食いして「味が薄い!!」とシェフにクレームつけるようなもんだよ。
安定してる Linux/BSD プラットフォームでは動いてるし。原因も、そのメッセージだけじゃ
GC そのものかコンパイラの出力かは情報不足だしね。

>>275
ちょっとソースみてみたけど、CLISP のオプティマイザはそのケースを最適化しない。
選択肢としては商用のコンパイラを使うとか、スタイルを換えるとか…まぁ、素直に Scheme 使うといいと思います。

277:デフォルトの名無しさん
07/07/15 13:42:14
>>275
(defun w(n)
(declare (optimize (speed 3)))
(labels ((x (n) (write n) (if (> n 0) (y (- n 1)) ))
(y (n) (write n) (if (> n 0) (z (- n 1)) ))
(z (n) (write n) (if (> n 0) (x (- n 1)) )))
(x n))) としても
*** - Program stack overflow. RESET
は変わりませんでした。((optimize (space 3))等も試しました。)
(compile 'w)や、(compile-file "w.lisp")(load "w.fas")も同じ。
ソース中やdoc\impnotes.htmlにdeclare ～ speed
が見つからなかったので、対応してないのかな。

ちなみに
sbcl-1.0.7/src/runtime/gencgc.c:832 を見ると
gc_assert(alloc_region->start_addr == (page_address(first_page) + page_table[first_page].bytes_used));
で停止。ちょっと見ただけでは修正は無理そうです。
そもそも10000程度のループでgcが必要になるってのが、
よくわからない。本当に最適化が効いてるのか怪しいです。

例えば自作のscheme処理系では360セル程しか消費してないです。
その内式'(w 10000)のコンパイル時に必要になるのがほとんどで、
式そのものを実行する準備に6セル、(w 10000)実行中は消費量ゼロです。

278:デフォルトの名無しさん
07/07/15 14:25:37
よくわからない→これま末尾再帰の最適化が効いていないに違いない、ね…
SBCL 使ったことねーけど cons セルの消費は write のI/O 周りとか boxing だろ？

正直、末尾再帰に納得しても #' とか健全マクロとかで「～は○○できないんですか？僕の自作 Scheme なら…」
とか無限ループになりそうなのであなたは Scheme 使っていたほうがいいと思います。

279:デフォルトの名無しさん
07/07/15 14:55:31
(defun x (n) (write n) (if (> n 0) (y (- n 1)) ))
(defun y (n) (write n) (if (> n 0) (z (- n 1)) ))
(defun z (n) (write n) (if (> n 0) (x (- n 1)) ))
(x 10000)
(defun w(n)
(labels ((x (n) (write n) (if (> n 0) (x (- n 1)) )))
(x n)))
(x 10000)
(defun x(n) (write n) (if (> n 0) (x (- n 1)) ))
(x 10000)
どのパターンもおかしくなるみたいです。

というか今更気付いたんですが、
(gc)を単体実行しただけで戻ってこない場合がありました。
これはちょっと使えるというレベルではありませんね・・。

>>276
すいません。Winで使うことしか頭になかったので。
仕事で使えるかなと淡い期待を持ってたんですが、、
速さこそ正義なCLの思想は好きなんですが、
今までどうにも環境に恵まれないです。
cmuclが動く*NIXな仕事に着きたいなあ・・

280:デフォルトの名無しさん
07/07/15 15:23:56
>>278
そうですね。確認したらwriteが馬鹿食いしてるみたいです。
nがfixnum範囲ならばOKな様です。

今回は代表的なCL処理系でも末尾再帰スタイルが
実用上無理な物があると確認できただけでも収穫でした。
まあ心配されなくともschemeに戻るでしょう。

281:デフォルトの名無しさん
07/07/15 16:00:04
すげぇ結論だな。ふつうは開発中のものは実用に耐えないっすね、となりそうなもんだが。まぁ煽りたかっただけなんだろなぁ…

282:デフォルトの名無しさん
07/07/15 16:04:13
結論ありきですから

283:デフォルトの名無しさん
07/07/15 16:57:09
>>281
clispのことでは
事実をただの煽りとして受け取った時点で
これ以上何も言うつもりはないけどさ

284:デフォルトの名無しさん
07/07/15 16:59:07
lisp脳の他にschemerには再帰脳の恐怖もあるよな…

285:デフォルトの名無しさん
07/07/15 17:02:28
やっぱloopの話題になると荒れるね

286:デフォルトの名無しさん
07/07/15 17:19:40
主要な処理系てclisp のことなのかよ。じゃあ sbcI については誤解はとけたのね。商用も大丈夫だし、わさわざ出来ない環境さがしてんのかとオモタｮｺﾞﾒﾝﾈ

287:デフォルトの名無しさん
07/07/15 18:58:55
scheme最強

288:デフォルトの名無しさん
07/07/15 19:00:19
>>287
氏ね

289:デフォルトの名無しさん
07/07/15 21:06:04
いい加減にSchemeはゴミだって認めようよ。

290:デフォルトの名無しさん
07/07/15 21:36:36
CLerから出てくる語彙が精一杯考えて氏ねとかゴミなのはよくわかったよ

291:デフォルトの名無しさん
07/07/15 21:38:55
スルー推奨

292:デフォルトの名無しさん
07/07/15 23:28:14
Schemeは子供用のおもちゃみたいなもの

293:デフォルトの名無しさん
07/07/15 23:30:13
>>290
巣へお帰りください
ｽﾚﾘﾝｸ(tech板)

294:デフォルトの名無しさん
07/07/15 23:40:38
RHELユーザが「plan9はアプリが少ない」って言ってるようなもの

295:デフォルトの名無しさん
07/07/16 21:01:29
質問です。
2つのリストを、それぞれシンボルの集合とみなして、
左のリストと右のリストが一致するかどうかを判定し、
一致するなら右のリスト中のシンボルのそれぞれの
左に対応する位置インデックスを得たいのですが、
一個一個線形探索するより効率の良い方法はあるでしょうか？

(set-compare-pos '(a b c) '(b c a))
=>(0 2 1) ; 一致したのでそれぞれの位置インデックスを返す
(set-compare-pos '(a b c) '(b c a d))
=>nil ; 一致しない

296:デフォルトの名無しさん
07/07/16 21:07:04
ごめんなさい間違えました。
(set-compare-pos '(a b c) '(b c a))
=>(2 0 1) ; 一致したのでそれぞれの位置インデックスを返す。
これの意味は、
左の集合のaは、右の集合の2番目にある
左の集合のbは、右の集合の0番目にある
左の集合のcは、右の集合の1番目にある
です。

297:デフォルトの名無しさん
07/07/16 22:19:15
>>295
ハッシュテーブル使えば線形時間でできるんじゃないかな

298:297
07/07/16 22:27:48
重複がある可能性は考えてないけどこんなもんかな。
集合が一致してなきゃいけないってとこでややこしくなった。

(defun set-compare-pos (s1 s2)
　 (let ((table (make-hash-table :test 'eq)))
　　 (dolist (x s1)
　　　 (setf (gethash x table) nil))
　　 (do ((c 0 (1+ c))
　　　　　(s s2 (cdr s)))
　　　　 ((null s))
　　　 (if (cadr (multiple-value-list (gethash (car s) table)))
　　　　　 (setf (gethash (car s) table) c)
　　　　 (return-from set-compare-pos nil)))
　　 (mapcar (lambda (x) (or (gethash x table)
　　　　　　　　　　　　　　 (return-from set-compare-pos nil)))
　　　　　　 s1)))

299:デフォルトの名無しさん
07/07/16 22:57:19
ごめんなさい重複は無い物と考えてくださって結構です。
よって、一致する条件では左右の集合は同じ長さになります。
hashテーブルの存在忘れてました！
ありがとうございます。

300:デフォルトの名無しさん
07/07/17 00:26:34
300ゲットー
>>274
良さそうだ。ま、実質同じだけど、ちょっと手抜きで関数一個で書けばこんなかな。
(defun fn (s)
(if (atom s)
(format t " ~a" s)
(progn (format t "[")
(fn (car s))
(mapcar #'fn (cdr s))
(format t "]"))))

301:デフォルトの名無しさん
07/07/17 01:41:21
>>300
(fn '(a . b)) が失敗しちゃうよ。

302:300
07/07/17 21:01:51
>>301
見落としてました……出なおしてきますorz

303:デフォルトの名無しさん
07/07/18 22:34:36
>>98と同じ質問なのですが

CommonLispでCGIを書きたいのですが、
requireすると標準出力にダラダラと出力されてしまって
(何かコンパイルとかシステムをロードうんぬんみたいなメッセージ)
CGIなのでそれがHTML画面に表示されてしまいます。どうすべきでしょうか?

CGI自体はshで、

sbcl --noinform --load hoge.fasl

としています。

eval-whenとかを使えばよいのではないかと思いついて、
(eval-when (:compile-toplevel) (require ...))
とか、試してみたんですが、エラーになってしまう模様。
:load-toplevelでは意味ないですよね??load時にrequireしたら結局出力が出てしまう・・・

どうすべきなんでしょうか？そもそもeval-whenは関係ない?

304:デフォルトの名無しさん
07/07/18 23:00:28
何回か出ているが、SBCL で CGI というのはオススメできない。
FastCGI にするか、mod_lisp をつかうか、huchentoot をつかうか、
ソケット経由でリクエストを SBCL プロセスに投げる CGI を C で書くとか
いろいろやりかたはあるけど、SBCL そのものを CGI として呼び出すのはやめとけ。
無理矢理強行しても Java で CGI とか Rails/CGI みたいな悲しいパフォーマンスになる。

305:デフォルトの名無しさん
07/07/18 23:04:50
で、 require のメッセージを出したくない場合は、必要なものを全部 require した状態で
(save-lisp-and-die "hoge.core") としてイメージを生成して起動時に
sbcl --core hoge.core --noinform --load ... とかする。
しつこいかもしれないが、SBCL そのものを CGI として呼び出すのはやめとけよ。
スケーラビリティからインタラクティブなプログラミングのメリット台無しまであらゆる意味でオススメできない。

306:デフォルトの名無しさん
07/07/19 00:29:12
一般論として、いまどき CGI というもの自体あまりお勧めではない

307:デフォルトの名無しさん
07/07/19 02:50:20
じゃあ何よ

308:デフォルトの名無しさん
07/07/19 04:18:14
あ・・・あじゃ・・・・

（↓ここで「アジャコング」とか書こうと思ったけどやるせなさ過ぎて止める奴）

309:デフォルトの名無しさん
07/07/19 05:32:01
アジャコンゲ

310:デフォルトの名無しさん
07/07/19 07:32:57
つaserve
sbclでちゃんと動くかは知らないけど。

311:デフォルトの名無しさん
07/07/19 18:27:27
ここで満を持して kahua 登場！　うわなにをｓ

312:デフォルトの名無しさん
07/07/19 22:17:54
何もシネーよ

313:デフォルトの名無しさん
07/07/19 22:53:41
Kahua って 304 のいう
> ソケット経由でリクエストを SBCL プロセスに投げる CGI を C で書くとか
に相当するのかな？

314:デフォルトの名無しさん
07/07/20 03:03:43
しない

315:デフォルトの名無しさん
07/07/27 18:44:26
ずいぶん前に、Windows版のsbclで日本語(sjis)が使えるようになったって
うわさを聞いたのですが、今使おうとしてもエラーが出ます。
うわさはデマだったのでしょうか？

316:デフォルトの名無しさん
07/07/27 18:46:41
心のきれいな人にしか使えないんです

317:デフォルトの名無しさん
07/07/27 19:16:56
そういうこと

318:デフォルトの名無しさん
07/07/27 19:31:30
>>315
死ね

319:デフォルトの名無しさん
07/07/28 01:20:00
>>318
こういうひとには使えません

320:デフォルトの名無しさん
07/07/29 23:04:55 0
(setf *trans-code*
'(("add" . #'(lambda () (format t "add")))
　　("sub" . #'(lambda () (format t "sub")))
　　("mul" . #'(lambda () (format t "mul")))
　　("xor" . #'(lambda () (format t "xor")))))

(setf x (cdr (assoc "add" *trans-code*
:test #'string=)))

(funcall x)

こうすると"add"と表示されることを期待したのですが，
FUNCALL: #1=#'(LAMBDA NIL (FORMAT T "add")) is not a function name; try using a symbol instead
[Condition of type SIMPLE-TYPE-ERROR]
となってしまいます．これは何がおかしいのでしょうか？

321:デフォルトの名無しさん
07/07/29 23:26:53 0
>>320
#' が ' の中にあるのでクォーティングされてしまっておるのだね。
`(("add" . ,#'(lambda ...
みたくするべし。

322:デフォルトの名無しさん
07/07/30 12:22:00
>>321
ありがとうございました．追加で質問したいのですが，
なぜ>>320のコードではうまくいかないのか良くわかっておりません．
できれば解説などを加えていただければ...おねがいします．

323:デフォルトの名無しさん
07/07/30 20:52:26
>>322
replで一行づつ打ちこめば自明じゃないか？

324:デフォルトの名無しさん
07/07/30 20:55:40
>>322
(print x) して両者を比べてみよう
CLISP だったらこうなる

#'(LAMBDA NIL (FORMAT T "add"))
#<FUNCTION :LAMBDA NIL (FORMAT T "add")>

ちょっとわかりにくいかもしれないけど上は
(FUNCTION (LAMBDA NIL (FORMAT T "add")))
というリストで、下はクロージャ。

325:デフォルトの名無しさん
07/07/30 21:33:37
>>322
#' とか ' とかってのは省略系にすぎないことを思い出そう。
あとは自分が read や eval になった気分でよく考えてみよう。

326:デフォルトの名無しさん
07/07/31 00:04:11
　　　　　　　　　　∩＿
　　　　　　　　　　〈〈〈　ヽ
　　　　　　　　　　〈⊃　　}
　　 ∩＿＿＿∩　 |　　 |
　　 | ノ　　　　　ヽ !　　 !
　　/　　●　　　● |　　/
　 |　　　　( _●_)　ミ／＜こいつ最高にアホ
　彡､　　　|∪|　　／
/　＿＿　ヽノ　/
(＿＿＿）　　　/

327:デフォルトの名無しさん
07/07/31 00:33:32
とは言っても俺ほどじゃないと思うけどな

328:デフォルトの名無しさん
07/07/31 00:47:14
CommonLispでGUI作るときってどういう風にしてるの？

329:デフォルトの名無しさん
07/07/31 00:51:28
GUIなんかいらねーよ

330:デフォルトの名無しさん
07/07/31 01:13:00
>>328
CLX が最強

331:デフォルトの名無しさん
07/07/31 08:11:15
なんか荒れまくってるなぁ。 >>328 商用の処理系は GUI ライブラリがついてくる。Allegro や LispWorks には GUI ビルダーも附属してるね。
フリーの処理系は Tcl/Tk とか Win32 API とか CLX とか OpenGL とか SDL みたいな低レベル API でがんばる。

332:デフォルトの名無しさん
07/07/31 11:28:52
どこもかしこも夏の香りが漂ってるな

333:デフォルトの名無しさん
07/07/31 11:46:33
フリーの処理系はffiがぶっ壊れてるから使い物にならんよ

334:デフォルトの名無しさん
07/07/31 11:46:52
>>328
OpenMCL なら Cocoa が使えたと思う

335:デフォルトの名無しさん
07/07/31 12:03:04
>>333
ドザ乙

336:デフォルトの名無しさん
07/07/31 16:51:37
>>333
フリーの処理系はソースあるんだから自分で直せばいいじゃん

337:デフォルトの名無しさん
07/08/01 01:02:14
おまいらありがとう。
>Tcl/Tk とか Win32 API とか CLX
>OpenMCLならCocoa
この辺は分かるけど
>OpenGL とか SDL
この辺になると自前でウィジェット作るの？

338:デフォルトの名無しさん
07/08/01 03:20:31
探せばいろいろあるらしいぜ。探してない俺にはわからんが。

339:デフォルトの名無しさん
07/08/01 09:37:29
そういえば McCLIM の事を忘れてた。
一応、標準 GUI ライブラリになる事を狙ってたんだよね。

340:デフォルトの名無しさん
07/08/01 17:49:10
{x=a} begin y=x; x:=x+y end{x=2a} を証明せよ。

341:デフォルトの名無しさん
07/08/02 22:23:54
ﾜｯﾊｯﾊｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

342:デフォルトの名無しさん
07/08/03 14:40:26
LispのGCの様子をヴィジュアルに見せてくれるツールとか
そういうものってないのですか？
自分のプログラムでGCがどんな風に動いてるのか見てみたいのですが...

343:デフォルトの名無しさん
07/08/03 16:04:15
大昔の話だが、中西先生のAPPLE LISPは見えたな。APPLE IIのエミュレータで動かんかな？ｗ

344:デフォルトの名無しさん
07/08/04 00:20:21
>>315
うわさだかデマだかを流した張本人です。
どんな環境でどのようなエラーが出るのでしょうか。
最近 2ch はあまり見てないので、sbcl-devel@ か、英語が苦手なら俺宛に
メールを貰えるとありがたいです。

>>316-317 >>319
以前手元でテストした時はちゃんと使えたので、心がきれいでなくても平気だと
思います。

345:デフォルトの名無しさん
07/08/04 00:29:32
心の汚い俺でも安心だな

346:デフォルトの名無しさん
07/08/04 02:52:20
>>342
和田先生はGCルーチンをデバッグするとき、
printf()を使うところまでは一般人同様なのだが、
それで出力するのは実はPostScriptで、
consセルが増えたり減ったりする様子を
ビジュアルに把握しながらデバッグしてた、という話を聞いたことがある。

347:315
07/08/04 02:54:56
>>344
WindowsXP sp2でバージョンは1.0.6のインストーラー版です。
症状は、コンソール上で実行したときには
* (print "あ")

"あ"
"あ"
*
と日本語が使えるのに、(print "あ")とだけ書いてあるmain.lispを用意して、
"C:\Program Files\Steel Bank Common Lisp\1.0.6\sbcl.exe" --load main.lisp
とすると、
This is SBCL 1.0.6, an implementation of ANSI Common Lisp.
More information about SBCL is available at <URLﾘﾝｸ(www.sbcl.org)

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.

This is experimental prerelease support for the Windows platform: use
at your own risk. "Your Kitten of Death awaits!"

348:デフォルトの名無しさん
07/08/04 02:55:49
debugger invoked on a SIMPLE-ERROR:
Error during processing of --eval option (LOAD #P"main.lisp"):

can't happen
This is probably a bug in SBCL itself. (Alternatively, SBCL might have been
corrupted by bad user code, e.g. by an undefined Lisp operation like
(FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe
Lisp code; or there might be a bug in the OS or hardware that SBCL is running
on.) If it seems to be a bug in SBCL itself, the maintainers would like to
know about it. Bug reports are welcome on the SBCL mailing lists, which you
can find at <URLﾘﾝｸ(sbcl.sourceforge.net)

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
0: [CONTINUE] Ignore and continue with next --eval option.
1: [ABORT ] Skip rest of --eval options.
2: Skip to toplevel READ/EVAL/PRINT loop.
3: [QUIT ] Quit SBCL (calling #'QUIT, killing the process).

((LAMBDA (SB-IMPL::E)) #<SB-INT:BUG {A60A9D9}>)
0]
となる、というものです。
>英語が苦手なら俺宛にメールを貰えるとありがたいです。
メールしようにもアドレスが分かりません。

349:デフォルトの名無しさん
07/08/04 10:45:16
>>347
1.0.8 では直ってます。
Windows 版は
> This is experimental prerelease support for the Windows platform: use
> at your own risk. "Your Kitten of Death awaits!"
とあるように、まだ試験版なので、配布されてるバイナリは bootstrap 用
くらいに考えておいてください。

350:デフォルトの名無しさん
07/08/04 21:05:27
なぁ、>>1のパワーズって誰だ？？

351:デフォルトの名無しさん
07/08/05 01:26:01
>>346
かっこいい

352:デフォルトの名無しさん
07/08/05 06:57:04
CLOS の良い日本語解説書ってないかな?
bit別冊 Common Lisp オブジェクトシステム -- CLOSとその周辺
というのがいいらしいのだが、絶版で
URLﾘﾝｸ(www.fukkan.com)
あと、1 桁のところで、復刊リクエストまで行ってないんだ…orz

353:デフォルトの名無しさん
07/08/05 08:48:30
また懐かしい本だな…。今時売れねーんじゃねーか？
仕組はブラックボックスのままな HowTo 本は売れる世の中で、
メソッド探索のアルゴリズムだの実装まで触れてるような本が売れるとは思えん。
学生時代に読んで、いきなり「CLOS ではカプセル化なんてどうでもいいんですよ」的な出だしで
カルチャーショックを受けた経験あり。

354:デフォルトの名無しさん
07/08/05 10:01:04
>>352
俺はもう投票済みだわ
あと6人！

355:デフォルトの名無しさん
07/08/05 19:53:20
>>353
個人的には実装まで触れてるというのは、
単なる HowTo なんかよりよほど役立つと思うが、
CLOS 自体の需要が微妙だよな。
Ruby の Matz も推薦とか書けば、Ruby の勢いに乗って売れないか?
売れないか…

356:デフォルトの名無しさん
07/08/05 22:11:48
ところでCLOSってなんて読むの？
今まで「くろす」って読んでたんだけど昨日のLLだと「しーろす」って言ってる人がいた。

357:デフォルトの名無しさん
07/08/05 22:25:49
>>356
どっちでもいい、と件の本には書いてあったよ。

358:デフォルトの名無しさん
07/08/05 22:35:07
>>355
URLﾘﾝｸ(www.rubyist.net)

359:デフォルトの名無しさん
07/08/05 22:38:00
>>356
俺も「しーろす」と読んでるよ。
今まで誰とも CLOS の話をした事が無いから勝手読みだけど。

360:デフォルトの名無しさん
07/08/05 23:30:07
CLOSはシーロスだと思う。
対話によるCommon Lisp入門という本の
第12話オブジェクト指向プログラミングのはじめに、
「データ抽象の話を押し進めて行くとオブジェクト指向プログラミング
という現代的で実用性の高いプログラミング手法となります。
Common LispにはCommon Lisp Object System(CLOS,シーロス)
という機能が有り,Lisp流のオブジェクト指向プログラミングを可能にしています」
と書いてあるから。

361:デフォルトの名無しさん
07/08/05 23:43:55
URLﾘﾝｸ(www.amazon.co.jp)
これが小さくて読みやすかったので
良いと思ったんだけど
同意された事が無い

362:デフォルトの名無しさん
07/08/06 00:17:05
クロスじゃない？
Ｃ－ＬＯＳって感じに言葉が別れていないし
シーロスじゃどう考えても変だ
つーかどこかでクロスって注釈振ってある本読んだことあるぞ

363:デフォルトの名無しさん
07/08/06 00:17:56
どう考えても変だとは思わない

364:デフォルトの名無しさん
07/08/06 00:21:30
>>352
↓が定番だったんだが、これも絶版か。大事にしよう。
URLﾘﾝｸ(www.amazon.co.jp)

365:デフォルトの名無しさん
07/08/06 00:22:54
>>363
CMOS をシーモスと読むのと同じ感覚で言っちゃってる
あれは Complementary MOS だから良いけど COMON LISP の COMON で切るのは不自然

366:デフォルトの名無しさん
07/08/06 00:25:26
出版社自体が無くなっちゃったね

367:デフォルトの名無しさん
07/08/06 00:26:18
いっそおまいらCLOS本書け

368:デフォルトの名無しさん
07/08/06 00:26:23
>>366は>>364ね

>>365
別に不自然とは思わない

369:デフォルトの名無しさん
07/08/06 00:33:33
どっちでもいいって書いている文献があるというのに
お前らは何を決めようとしているんだ?
だいたい外国人は日本人みたいに発音とかこだわらんよ。適当。

370:デフォルトの名無しさん
07/08/06 00:43:20
「苦労す」というダジャレがあるから
おれはクロース派

371:デフォルトの名無しさん
07/08/06 00:46:36
シーエルオーエスじゃだめなのか？

372:デフォルトの名無しさん
07/08/06 00:49:17
桶

373:デフォルトの名無しさん
07/08/06 00:55:43
>>368
不自然と思わない根拠は？
似たような例をあげて貰わないと

374:デフォルトの名無しさん
07/08/06 01:02:16
>>373
不自然と思う根拠を理解できない

ってきりがないぞ。>>369が言うようにどっちでもいいんだよ。
どちらかを不自然と思うのは神経症。

375:デフォルトの名無しさん
07/08/06 01:02:37
最近こことか眺めているんだがCLのコードはどうも長くなってしまうような
URLﾘﾝｸ(ja.doukaku.org)

376:デフォルトの名無しさん
07/08/06 01:06:43
>>374
>どちらかを不自然と思うのは神経症。

俺もそう思う。最近この手のやり取りが増えてる様な気がするが、どうしてだろう…

377:デフォルトの名無しさん
07/08/06 01:10:02
>>374
根拠は提示されているでしょ
意味のある単語を途中で切って分けている
正式ではどちらでもＯＫだろうが不自然なことは普通理解出来るはず
これが不自然じゃないというなら自然と思える、普通に使っている必要がある
自分は思いつかない、逆ならいくらでも思いつく、SRAM とか
だからそれを教えてくれと聞いているんだけど
これでも理解出来ない？

神経症とかはまぁ別にかまわないよ

378:デフォルトの名無しさん
07/08/06 01:16:32
夏なんだね

379:デフォルトの名無しさん
07/08/06 01:37:15
MPEG(Moving Picture Experts Group)

380:デフォルトの名無しさん
07/08/06 01:45:53
JSON(JavaScript Object Notation)

381:デフォルトの名無しさん
07/08/06 01:47:42
OLAP(OnLine Analytical Processing)

382:デフォルトの名無しさん
07/08/06 01:57:24
すみませんでした
いっぱいありました

383:デフォルトの名無しさん
07/08/06 05:42:34
slimeのビデオを見てたら途中ミニバッファからコマンド
を送っているところがあったのですが、これはslime、処理系
どちらに対して送っていることになるのですか。

helpと打つとslimeのヘルプが表示されるようですし、
change-packageと打つとパッケージが変わるようなので。

また、ミニバッファのCOMMAND:というプロンプトはどの
キーにバインドされているのでしょうか
（コマンド自体はEmacsの機能？）
一応、マニュアルを見てみたのですがこの辺に触れていなかった
ので質問させていただきました。

CLOSで盛り上がってるところすみません。

384:デフォルトの名無しさん
07/08/06 07:53:25
>>375
「無駄に」長いと思うなら直してやれば？俺はコードの圧縮はアセンブラでなら
楽しいけど Lisp のコードを圧縮するよりは見易いほうがいいな。

>>383
, キーだよ。これは SLIME のコマンドだけど、 SLIME が処理系に SWANK 経由で
コマンド送るので change-directory とか処理系も反応する。

385:デフォルトの名無しさん
07/08/06 21:21:16
383です。

> SLIME が処理系に SWANK 経由で
なるほど、そういうことですか。

私の環境 WinXP+Emacs 22.0.50.1+SLIME 2006-12-12 ですが
change-directory 反応してくれました。

384さんありがとうございました。

386:デフォルトの名無しさん
07/08/06 21:30:54
383です。

忘れてました。SBCL 1.0.6 です。

387:352
07/08/08 00:21:05
多分このスレを見てくれた人だと思うんだが、何人か投票していただいたようで、thx
票数表示が会員限定なんで具体的な数は書かないけど、あと、数票で 100 票です。
登録に個人情報が要るんでめんどくさいんだけど、もし良かったら、投票してやってください。

388:デフォルトの名無しさん
07/08/09 11:40:39
恥を忍んでおたずねします。
最近、Lisp始めたばかりなのですが、
SBCLで関数のパラメータ（引数一覧）を出力する関数が
あるようなのですが、
(documentation 'hoge 'function)
するとパラメータではなく、関数自体の説明しか出てきません。
SBCLのみの機能みたいなのでmanualに書いてあるだろうと
目を通しましたがわかりませんでした。
出力の仕方を教えていただけると幸いです。

389:デフォルトの名無しさん
07/08/09 18:25:08
>>388
URLﾘﾝｸ(www.lispworks.com)

390:デフォルトの名無しさん
07/08/09 21:06:13
>>389
ありがとうございました

391:デフォルトの名無しさん
07/08/12 10:40:21
closの読み方はクロスでもシーロスでもok. この辺は、ukの大学のサイトにあがってる
closのチュートリアルの冒頭に読み方として２つがあげられてるくらいです。

392:デフォルトの名無しさん
07/08/12 10:47:10
これのこと
URLﾘﾝｸ(www.aiai.ed.ac.uk)
>CLOS stands for Common Lisp Object System and is pronounced "see loss" or "kloss".

393:デフォルトの名無しさん
07/08/12 11:05:46
発音記号ってネイティブはあんま知らなかったりするのか？

394:デフォルトの名無しさん
07/08/12 11:17:15
むしろ発音記号がその言語を全然知らない人でも理解できる用じゃね?
自分の母国語の発音を発音記号で理解してる奴はあまりいないんじゃないか。
ネイティブ向けの辞書でも発音記号じゃなくて「そう読めるスペル」で
示してるものもあるよ。その方が発音記号よりもピンときやすいのは自然だろう。

395:デフォルトの名無しさん
07/08/12 12:38:09
>>393
言語学とかの専門家でないと知らなかったりする。
日本のように義務教育で教えている国は珍しいのではないかな。

396:デフォルトの名無しさん
07/08/12 13:23:37
>>395
言語学の専門家が使うのはIPAだし、
日本の義務教育で教えている、辞書業界(?)の記号とは若干違うと思うのだが。

397:デフォルトの名無しさん
07/08/12 13:25:48
日本語をIPAで書ける日本人がほとんどいないのと同じだな

398:デフォルトの名無しさん
07/08/12 13:43:02
日本語だと仮名で書けば問題ないし、実際辞書でもそうなってるじゃん。

399:デフォルトの名無しさん
07/08/12 13:59:07
>>398
確かに大抵それで何とかなる。
それは英語も同じで、>>392みたいにして発音を表せる。

細かいことを言い出すとカナでは足りない。
「ラクトース」と「ラクロス」では「ク」の発音が違うとか。

400:デフォルトの名無しさん
07/08/12 14:03:52
日本語は言文一致したから、
それをしてない英語とそのまま比較はできんかと。
まあ、板違いだからこのくらいにしといた方がいいかもしれんが。

401:デフォルトの名無しさん
07/08/12 14:59:08
>>398
日本語学習者にとってはそうでもない。
同じ「ん」でもnとngとか。

402:デフォルトの名無しさん
07/08/12 22:03:25
おー、俺でCLOS本復刊リクエスト100人になりましたよ。

403:デフォルトの名無しさん
07/08/13 00:25:07
祝！

404:デフォルトの名無しさん
07/08/13 00:39:00
>>402
祝ってやる

405:デフォルトの名無しさん
07/08/13 01:09:07
>>404
一瞬「呪ってやる」に見えた。

406:デフォルトの名無しさん
07/08/15 09:36:04
質問です。
関数型言語って
有る値の集合を有る値の集合へもっていく方法を
記述すると考えてよろしいのでしょうか?

407:デフォルトの名無しさん
07/08/15 09:53:28
その「値」に「関数」っつーのも含まれてるけど、
まあそんな感じだろう。

408:デフォルトの名無しさん
07/08/15 12:11:57
>>406
集合とか意味不明
テンプレ読め

409:デフォルトの名無しさん
07/08/15 13:05:21
>>406
スレ違い

410:デフォルトの名無しさん
07/08/15 15:25:00
写像って意味だっしょ

411:デフォルトの名無しさん
07/08/15 16:32:48
406はなかなか良い筋行ってんじゃネーノ?
URLﾘﾝｸ(karetta.jp)

412:デフォルトの名無しさん
07/08/15 18:13:22
(a b c)
という任意の長さのListがあげられたとき
このすべての組み合わせをリストとして出力する
(a b c ab ac ba bc ca cb)
このようなプログラムって皆さんどうやって書きます？

413:デフォルトの名無しさん
07/08/15 20:14:40
>>411
自演乙

414:デフォルトの名無しさん
07/08/15 20:17:27
そんなもの書かない

415:デフォルトの名無しさん
07/08/15 22:50:36
そんなものが書きたくなったら全体の設計を見直すかな

416:デフォルトの名無しさん
07/08/16 00:30:55
AutoLISPってどうなの？

417:デフォルトの名無しさん
07/08/16 02:18:55
どうもしない

418:デフォルトの名無しさん
07/08/16 02:21:21
>>412
「すべての組み合わせ」の意味が不明確。
abc とか cba とかが入らない理由は？

419:デフォルトの名無しさん
07/08/16 02:34:39
もういいじゃん

420:デフォルトの名無しさん
07/08/21 07:52:33
Lisp処理系ムズすぎ
適当に構造体でリスト作って、
S式パーサ作って、
関数名で条件分岐してリストのメンバをいじくれば良いと思ってたのに

421:デフォルトの名無しさん
07/08/21 09:35:35
そんな感じで出来ちゃうと思うけどなぁ。
もちろん「優れた処理系」を作るのは（他の言語と同じく）難しいし、
「Common Lispの処理系」を個人で作るのはちょいと無謀だけれども、
この界隈の人間がよくやる「楽しく作るマイLisp処理系」程度なら・・・。
クロージャで少々頭ひねるくらいでは。

422:デフォルトの名無しさん
07/08/21 09:41:49
>>420
ここら辺参考にならないかな

L2Lisp in Ruby（インタープリタ）
URLﾘﾝｸ(codezine.jp)

JavaScriptでつくるSchemeインタプリタの基礎の基礎（lisp, js, webdev, webapp）
URLﾘﾝｸ(codezine.jp)

Javaで作るオリジナル言語：ITpro
URLﾘﾝｸ(itpro.nikkeibp.co.jp)

423:デフォルトの名無しさん
07/08/21 11:04:02
>>420
そんなに難しいかい？
8ビットマシンの頃でも基本の処理系はポイポイ作れた記憶があるんだけど。
実行効率とか下段をVMでとかにすると結構しんどいかもしれないけが俺Lispならそんなに難しいものじゃ無いはずなんだけど。

まさかCommonLisp全部みたいな話とか継続入れたいとか言うスタック操作がマンドクサイこと言うと別かもしれんが。

424:デフォルトの名無しさん
07/08/21 13:03:56
>>421,422,423
URLﾘﾝｸ(www.jsk.t.u-tokyo.ac.jp)
ここ読んでるんですけれど、即死しそうです
JAVAとかJavaScriptとかRubyで作ると比較的簡単なのかなぁ

425:デフォルトの名無しさん
07/08/21 13:58:15
URLﾘﾝｸ(www.okisoft.co.jp)
俺はここ見ながらC++で作った。
Javaで説明されてるけど、JavaからC++への脳内翻訳はまぁ、それほど難しくないし。

426:デフォルトの名無しさん
07/08/21 21:56:36
>>424
それで楽になるのはGCだけじゃないかと思う。

427:デフォルトの名無しさん
07/08/21 22:05:53
俺 Lisp ネタは本スレで。一応ここは Common Lisp 入門スレなので。

俺 Lisp ってーのはよ、一週間もまじめに取り組めばできちゃう。
で、 99% はやったーできたーの後に「Lisp をものにしたぞ」と勘違いしちゃう。
そこはスタート地点だという事を心してほしい。ほんとに。

428:デフォルトの名無しさん
07/08/21 22:22:23
CLTL読んでるけどでかい、でかすぎる。

でも楽しい。

429:デフォルトの名無しさん
07/08/21 22:33:35
仕様なしで実装だけあるほうが良いという連中が信じられない。
現行バージョンとかそんな殺那的な基準でいいのか……

430:デフォルトの名無しさん
07/08/21 22:55:46
>>429
少なくとも入門スレでは、言語の仕様が先か実装が先かなどというのは全く本質的な問題ではないと思うが。

431:デフォルトの名無しさん
07/08/21 23:16:39
先とか後とかじゃなくて有無の話ね。

432:デフォルトの名無しさん
07/08/21 23:50:55
>>428
てお？

433:デフォルトの名無しさん
07/08/22 01:00:57
このスレでCLTLって言ったらCommon Lisp The Language ,Guy L. Steele Jr.じゃないの？

次ページ