CommonLisp Scheme Pa ..
75:デフォルトの名無しさん
04/08/18 19:08
>>73
とりあえずブックマークにこんなの入ってた。
URLﾘﾝｸ(home.comcast.net)
76:デフォルトの名無しさん
04/08/18 19:47
>>73
前スレ(Part 10)の786にも書いたんだけど、
Schemeの健全マクロについては、
・日本語
オンラインで読める文献は >>5 に出てる「入門Scheme」以外にないと
思う。pdf ファイル。
#URLﾘﾝｸ(www4.ocn.ne.jp)
書籍だったら、『プログラミング言語SCHEME』R.ケント ディヴィグ (著)
URLﾘﾝｸ(www.amazon.co.jp)
・英語
上の本の原書（英語版）がオンラインで読める。
URLﾘﾝｸ(www.scheme.com)
77:デフォルトの名無しさん
04/08/18 23:27
>>76
よっぱど英語を見たくないのでもなければ、下の英語のがおすすめ。
わかりやすいよ。
78:デフォルトの名無しさん
04/08/19 00:27
Dr.Schemeって機能限定されてない？
defstructとか使えないような気がする・・・
79:デフォルトの名無しさん
04/08/19 01:40
「機能限定されてる」んじゃなくて、「機能拡張されてない」んでしょ
defstruct は srfi なんだから
80:デフォルトの名無しさん
04/08/19 02:32
The Little Schemer の9章を解説してるwebページはないですかね？
もしくは理解するのに役立つwebページ、本でもいいですが…。
define 使わなくても lambda をたくさん使えば関数定義できるってことを
解説した章だったんでしょうか？さぱーりわかりません。ヽ(´ー｀)ノ
81:デフォルトの名無しさん
04/08/19 06:26
lambdaで関数定義ってことはY combinatorかなあ。
82:デフォルトの名無しさん
04/08/19 08:46
昨日の某大学の院試でSchemeの問題が出たんだけど…
できませんでした。orz
83:デフォルトの名無しさん
04/08/19 10:29
>>80
あれは Y Combinator の説明なんだけど、はっきり言ってわかりづらい。
私は旧版の日本語訳『Scheme手習い』しか読んでないんだけど。
ちなみに Y Combinator とは、lambda だけで定義された再帰関数をつくる
ための汎用関数。
とりあえずこんなページをどうぞ。
URLﾘﾝｸ(i.loveruby.net)
あと、このスレの Part 9 の 422 から、lambda だけで再帰する方法に
ついて議論がある。個人的にはそこがとても参考になった。
そこを見ながら、自分でいろいろコードを書いてみて、Y Combinator が
なぜこういう形でなければならないのか、納得できるまで追及した。
84:デフォルトの名無しさん
04/08/19 12:44
>>82
ツバメの大学ですか?
いや，まあ俺も(ry
85:デフォルトの名無しさん
04/08/19 16:13
>>80 この説明はどうですか?
URLﾘﾝｸ(otoha.dyndns.org)
86:デフォルトの名無しさん
04/08/19 23:34
(sort lst #'< :key #'car)
で先頭に来るやつが，元の lst の中でどこにあったのか (position) を
知るにはどうしたらいいんでしょう?
(position-if #'この中で一番大きい lst)
みたいなことをやりたいのです．
87:デフォルトの名無しさん
04/08/19 23:44
>>86
効率悪いけど、こんな感じじゃダメですか。
(let ((x '(1 2 3 4)))
(position (apply #'max x) x))
88:86
04/08/19 23:53
>>87
ダメじゃないです．ただ，良く使われそうな操作なので，
みなさんなら最も短くて効率の良い方法をご存じかと思ったんです．
max が返すものは，元の要素と eq なんですよね．
89:デフォルトの名無しさん
04/08/20 00:31
(define (hoge x)
(let loop ((max (car x)) (mnum 0) (x (cdr x)) (num 1))
(cond ((null? x) mnum)
((> (car x) max) (loop (car x) num (cdr x) (+ num 1)))
(else (loop max mnum (cdr x) (+ num 1))))))
90:デフォルトの名無しさん
04/08/20 00:44
Schemeですまんが、結局こうするしかないのでは。
(define (position-if pred lis)
(if (null? lis)
-1
(let loop ((pos 1) (ans-pos 0) (ans-val (car lis)) (lis (cdr lis)))
(if (null? lis)
ans-pos
(if (pred (car lis) ans-val)
(loop (+ 1 pos) pos (car lis) (cdr lis))
(loop (+ 1 pos) ans-pos ans-val (cdr lis)))))))
(position-if < '(2 9 3 1 4)) => 3
(position-if > '(2 9 3 1 4)) => 1
(position-if < '()) => -1
91:90
04/08/20 00:48
10分以上遅れて結婚とは…orz
92:デフォルトの名無しさん
04/08/20 02:21
マスターするならCommonLispとSchemeどっちがいい？
93:デフォルトの名無しさん
04/08/20 02:34
どっちも趣味
94:デフォルトの名無しさん
04/08/20 06:53
>>93
どっちも優雅で知的で、極めるまでは時間が
かかるけど学ぶことそのものが楽しみつつ行
なえる素晴しい言語って意味？
それともどっちも金にならないオタク言語で
ちょっとした満足感は得られるけど世間では
何の評価も得られなくて非生産的って意味？
95:デフォルトの名無しさん
04/08/20 10:29
Lisp の実装によくある、car 部のお隣（物理的な隣のメモリ）に
直接 cdr 部を置くことで、(car . cdr) を4+4 = 8バイトで表す技法が理解できません。
確か Guile の中の人に、それの説明らしき文書があったような気がするけど、
今、Guile が手元にないのと、そもそも英語が碌に読めません。
どうしてこんなのでちゃんと動くんですか？
誰か詳しい人教えてください。
96:デフォルトの名無しさん
04/08/20 11:16
>>95
アドレスのLSBから数ビットをタグに使う
97:95
04/08/20 11:39
いや、タグの話ではなくて。。。
例えば、 単純な (1 . 2) というペアだけならば話は分かるが、
(1 2. 3) となった場合とか、((1 .2) 3 4 . 5) となった場合とか、
どうして >>95 で良いのかが分からん。
98:デフォルトの名無しさん
04/08/20 11:50
どこがダメになりそうだと思うのですか?
99:95
04/08/20 12:30
例えば、ヒープを８バイト（セル２つ分）単位で確保して、
#define CAR(a) (*(a))
#define CDR(a) (*((a)|4))
みたいなマクロが定義されている場合、
仮に
car 部がアドレス 0x12345670 に配置されて、
cdr 部がアドレス 0x12345674 に配置されるとして、
その cdr の cdr はどうするのさ？とか、
（#define CDR(a) (*((a)+4)) なら、まだ納得できるけど・・・）
つか、上のような８バイト単位でメモリを切り取っていく
意味が良く分かっていないと思う（メモリの圧縮（＝節約）の為
だという事ぐらいは分かるのだが）。
100:デフォルトの名無しさん
04/08/20 12:33
4バイトがセルへのポインタになったり即値になったりする様子がイメージできないのでは？
101:デフォルトの名無しさん
04/08/20 12:48
>>96
>>99の例でいうと， car部は 0x5670**** へのポインタとみなされて
cdr部は0x5674**** へのポインタとみなされるってことでいい？
>>100
即値の場合も即値へのポインタじゃないの？
102:デフォルトの名無しさん
04/08/20 12:55
即値は即値ですよ。ふつうヒープ上に配置したりはしません。
103:デフォルトの名無しさん
04/08/20 13:01
えーと、いわゆるcdr codingの話じゃなくて、consセルを
ポインタ2つ分きっかりで表す話をしてるんだよねぇ?
それならどこがどうわからないのかわからないんだけど。
基本はcarもcdrもポインタでそ。
テクニックとしてめんどいのは、ポインタが指しているものが
consセルなのかそれ以外のオブジェクトなのかの区別だけど、
それはconsセル以外のヒープアロケートオブジェクトの最初の
ワードに即値でもポインタでもないようなタグを持つマークを置いて
おけば、区別できる。
(ここで言う即値は、例えば30bit integerを2bitシフトして
下位2bitを01にしてポインタと区別する、というようなやつの
ことね >>101 )
104:デフォルトの名無しさん
04/08/20 13:03
CONSセルの値って全てがポインタだと思っていた。
即値が入ってる場合があるの？
URLﾘﾝｸ(www.shiro.dreamhost.com)
> # 動的型付け。Lispでは全ての変数は実質的にポインタだ。変数ではなく
> 値の方に型が付いており、代入や束縛は実質的にポインタのコピーで行われ、
> ポインタが指されるものには作用しない。
105:104
04/08/20 13:07
おや、すでに解答が>>103に書かれていた。
リロードすればよかった。スマソ。
106:95
04/08/20 13:42
>>100
>4バイトがセルへのポインタになったり即値になったりする様子がイメージできないのでは？
ん〜、そこら辺は分かっていると思うんだけど。。。
>>103
>consセルをポインタ2つ分きっかりで表す話をしてるんだよねぇ?
>それならどこがどうわからないのかわからないんだけど。
>>99 の例で言えば
cons + car であるアドレス 0x12345670 の cdr が
アドレス 0x12345674 なのは分かるけど、
アドレス 0x12345674 の cdr はどうなってるの？って事。
アドレス 0x12345678 になるならば話は分かるけど、
そうではなさそうだし・・・
107:デフォルトの名無しさん
04/08/20 13:44
Cのポインタの理解ができていないだけのような気がしないでもない。
108:95
04/08/20 14:06
>>107
そうなの？
それとついでに、セルを確保する際に、
必ず８バイト（セル２つ分）単位で
メモリを切り取っていくという点も。
109:デフォルトの名無しさん
04/08/20 14:10
>>95
ど素人っぽいけど
その辺の話題は過去スレで散々がいしゅつだから、
過去ログさらっと流し読みしてみれば？
幸い全部残ってるし。
110:デフォルトの名無しさん
04/08/20 14:13
>>106
>アドレス 0x12345678 になるならば話は分かるけど、
なるよ。
そのポインタが下位2ビットは使ってないことわかる？
例えばその2ビットをフラグとみなして識別に使ったりする。
111:デフォルトの名無しさん
04/08/20 14:15
>>106
あーそうか、ポインタまるで理解してないね。
そういう事知ろうとする前に、C言語でもやったら？
112:デフォルトの名無しさん
04/08/20 14:19
そもそもこの場合、0x12345674 は cons cell を表わす値としてありえないだろう。
cons cell が 8バイトアラインメントなんだから。
ありえない値の cdr なんて取れるはずがない。
113:95
04/08/20 14:20
>>110
>なるよ。
#define CDR(a) (*((a)|4))
ここで + 演算ではなく | 演算をしているでしょ？
それではどうやってもならないと思うし、
また >>108 の回答にもなっていない。
114:名無しさん＠Ｅｍａｃｓ
04/08/20 14:36
8バイトで align されてるってことは
a % 8 == 0
ってことだ。
この場合は 0<=i<7 の i に対して、a+i == a|i が成り立つ。
だから + でも | でもよい。
115:デフォルトの名無しさん
04/08/20 14:42
もしかして (1 2 . 3) が
0x12345670 1
0x12345674 2
0x12345678 3
みたいに配置されると思ってるのかな。
0x12345670 1
0x12345674 cons 0x12345678
0x12345678 2
0x1234567c 3
だよ。 cdr-coding だと話は別だけど、今時 cdr-coding なんてやらないし。
116:デフォルトの名無しさん
04/08/20 14:45
long一発で初期化できるというヨロコビはあるかも。通常の2倍の速さでコンパクションできるとか。
(コンパクションの必要があるかどうかは知らんけど)
117:95
04/08/20 15:18
>>115
>0x12345670 1
>0x12345674 cons 0x12345678
>
>0x12345678 2
>0x1234567c 3
>
>だよ。
あ、なるほど。それで分かりました。
でもそれでは余り８バイト単位で確保する意味が無いですね。
逆にメモリを使いそう・・・
ところで、cdr-coding ってなんですか？
118:デフォルトの名無しさん
04/08/20 15:22
>>117
>でもそれでは余り８バイト単位で確保する意味が無いですね。
でも高速化の為なら意味があるか。
それだけ為なのかなぁ？
119:デフォルトの名無しさん
04/08/20 15:35
何バイト単位が最適だと思ってるの?
120:95
04/08/20 15:41
>>119
４バイト
121:デフォルトの名無しさん
04/08/20 17:21
ポインタに４バイト使うなら、consセルは８ビットいるよ。
122:デフォルトの名無しさん
04/08/20 17:22
８ビットじゃなかった。８バイトだ。
123:デフォルトの名無しさん
04/08/20 17:27
>>120
…まあ落ち着け。
cons セルはバイナリ・ツリー（二分木）のノード（節）だ。
一つの節から生える枝は必ずcar, cdr の 2本だから、
一つの cons セルは2本分の枝のアドレスを保持する必要があるんだよ。
だから 4バイト × 2 で8バイトが必要になる。
124:デフォルトの名無しさん
04/08/20 17:35
>>120
あとな、この辺の図も見ておけ。
cons セルがどうしてポインタを2つ持つのか、いやおう無しに分かるから。
URLﾘﾝｸ(www.stdio.h.kyoto-u.ac.jp)
125:デフォルトの名無しさん
04/08/20 17:56
>>117
それをみんなずっと言ってたんじゃないかあぁぁぁぁ・・ぁぁぁぁ・・・・・・
126:デフォルトの名無しさん
04/08/20 18:05
単にconsセルを理解してないだけだろ。
127:95
04/08/20 18:59
いや、どうも。。。
結局のところ cons セルを "ナイーブに" 実装するだけだったら
ポインタを２つ積めば良いのは分かっているんだけど、
確か世の中には、それをもう少し圧縮する技法が
あったと思ってたので。
例えば >>115 のように、cdr となるセルを
（物理的に）隣のメモリに配置することが出来て、
それを cons 表現の（内部的に）特殊な表現として扱えれば、
本来であれば (car . cdr) を表現するためには
３つのセルを使用しなければならないところを、
たった２つのセルで表現できてしまう。
ていうか、セル１つの表現が４バイトあればほぼ事足りてしまう。
（勿論再帰などの問題があるので、通常のポインタ２つ丸々
使用する例外的な表現も許すようにしておけばよい）
Lisp で使うセルの大半は cons なので、
こういうのは結構お得な発想だと思っていたけど？
128:デフォルトの名無しさん
04/08/20 19:06
>>127 それをcdr-codingっていうんだよ。
URLﾘﾝｸ(www-2.cs.cmu.edu)
129:デフォルトの名無しさん
04/08/20 19:16
>結局のところ cons セルを "ナイーブに" 実装するだけだったら
>ポインタを２つ積めば良いのは分かっているんだけど、
>確か世の中には、それをもう少し圧縮する技法が
>あったと思ってたので。
そういうことは最初から書いとけよ。
理由付けもなく４バイトとか言われても、理解してないとしか思えないんだよ。
130:デフォルトの名無しさん
04/08/20 19:35
>>128
へーなるほど。。。
勉強になりました。
131:デフォルトの名無しさん
04/08/20 19:37
>>127
> 本来であれば (car . cdr) を表現するためには
> ３つのセルを使用しなければならないところを、
> たった２つのセルで表現できてしまう。
普通、「セル」といったら「cons cell」のことで、
(A . B)
のペアを1つのセルと数えると思うんだが
132:デフォルトの名無しさん
04/08/20 20:13
>>127
>結局のところ cons セルを "ナイーブに" 実装するだけだったら
>ポインタを２つ積めば良いのは分かっているんだけど、
>>117
>あ、なるほど。それで分かりました。
リスト遊びから読み直せ。
133:デフォルトの名無しさん
04/08/20 20:24
>>131
それだ！
>>127 とか、読んでも意味が分からんかったんだけど、
95氏は 変数（ポインタ）一つのことを1つのセルと呼んでいるんだ。
普通はconsセルといえば、二つのポインタのペアのことだとしか思わないよなあ。
あと、95氏は、彼の読んでいるコードは、何らかの最適化がされているということを
前提に考えているみたいだけど、それって思い込みなのじゃないか？
実際は、普通（ナイーブ）に2つのポインタのペアとしてコーディングされてるんじゃ
ないのか？>>115-117を見てると、そうとしか思えん。
134:デフォルトの名無しさん
04/08/20 20:27
ポインタ一つをセルと呼んでるとしても、
>本来であれば (car . cdr) を表現するためには
>３つのセルを使用しなければならないところを、
>たった２つのセルで表現できてしまう。
は理解不能。
なんで３つもいるの？
135:95
04/08/20 20:33
>133
>95氏は 変数（ポインタ）一つのことを1つのセルと呼んでいるんだ。
Lisp 実行上での言葉と、Lisp 実装上の言葉の違いかなぁ・・・
「メモリセル」とか言わない？
>>133
>実際は、普通（ナイーブ）に2つのポインタのペアとしてコーディングされてるんじゃ
>ないのか？>>115-117を見てると、そうとしか思えん。
そう、「それ」が分かったんです。
単なる思い込みで、そのコードが所謂 "CDR-cording" をしていると
ばっかり思っていたので・・・
136:デフォルトの名無しさん
04/08/20 20:36
じゃあ95はポインタを二つ使うconsセルについては理解してるんだな？
137:デフォルトの名無しさん
04/08/20 20:55
>>135
>「メモリセル」とか言わない？
言うけど、Lispスレではすっごく紛らわしいよ。実装寄りの言葉を使いたいのは
分かるけど、なら「メモリセル一つ（cons セルにあらず）」とか書いて欲しいよ。
でなきゃ素直にポインタと書くとか。
> そう、「それ」が分かったんです。
うー、だったらはっきりそう書いて欲しかった。じゃあもう完全に分かったのね？
cdr-codingとかを除いて。
だけど、>>134とか見ると不安なんだけど。何に3つのポインタが必要なの？
138:デフォルトの名無しさん
04/08/20 21:04
>>127
> 本来であれば (car . cdr) を表現するためには
> ３つのセルを使用しなければならないところを、
> たった２つのセルで表現できてしまう。
tag + car + cdr で3つのポインタが必要なところを、
tag をアドレスのビットパターンに埋め込んで2つのポインタで表現できる、ということ？
でも、次の行の
> ていうか、セル１つの表現が４バイトあればほぼ事足りてしまう。
と合わせるとわけわからん。
「セル」がポインタ1つのことを指しているのなら「4バイトで "ほぼ" 事足りる」の意味が分からんし、
「セル」がconsセルのことを指しているのなら4バイト=ポインタ１つでは足りないし。
一体、ここでいう「セル」は何を指しているんだ？
139:95
04/08/20 21:12
>>137
御心配かけて誠にスミマセン。
>>134 では「３つのポインタが必要」と言っているのではなくて、
「３つのセルが必要」と言っているのです。
pair と car と cdr。計３つ。
これでどうでしょ？
140:デフォルトの名無しさん
04/08/20 21:15
pairってなんだ・・・？？
頼むからもうちょっと説明をしてくれ。
141:95
04/08/20 21:22
そんなに「セル」って言葉の使い方、変なのかな・・・
>>128 で紹介されていた葱メロンの FAQ でも、
それっぽい使い方をしているみたいだけど。
pair って単語も、ちゃんと >>128 に出ているし。
142:デフォルトの名無しさん
04/08/20 21:26
自分用語を使わず、面倒でもまわりくどい言い方で説明してくれyo。
あまりにも言葉足らずで、その単語が本当に本来の意味で使われているのかどうかすら判断できない。
143:128
04/08/20 21:33
用語には文脈ってもんがあるんだからさぁ。
Lisp界では、文脈無しで「セル」って言ったら
「consセル」=「pair」=「carポインタとcdrポインタの対」
と思われるだろう。まあ、>>95 がそう思わないとしてもだ、
ここは曖昧さを避けるために区別できるような言葉を使っては
くれまいか。
>>128 で紹介した文書には確かに「CAR cell」「CDR cell」
という言い回しが出てくるが、それはCDR codingの説明の
文脈であるって前提で、しかも最初に「CAR cell」「CDR cell」
と修飾して使ってるから意味が通るんじゃない。
個人的には、「slot」と言った方が混乱が避けられると思うがね。
144:デフォルトの名無しさん
04/08/20 21:49
>>139
> pair と car と cdr。計３つ。
> これでどうでしょ？
了解。安心しますた。
>>141
> そんなに「セル」って言葉の使い方、変なのかな・・・
いや、変じゃないんだけど、質疑の最初の頃、話がが全然噛み合って
なかったから、私はあなたの知識水準を思い切り低く見積もっちゃって、
これは consセルを指しているのだ、あなたが consセルを誤解してるのだ、
と思ってしまったんですよ。まあ、誤解は私のほうでしたね。申し訳ない。
あなたも、聞きたい答えを得るのに、たくさん説明しなきゃならなくて
大変でしたね。お疲れ様。
145:95
04/08/20 21:50
>>142
>自分用語を使わず、面倒でもまわりくどい言い方で説明してくれyo。
む〜。難しいですね。とりあえずやってみます。
>>138
>「セル」がポインタ1つのことを指しているのなら「4バイトで "ほぼ" 事足りる」の意味が分からんし、
ここで「ほぼ事足りる」と書いたのは、
>>128 で言う "CDR-NORMAL" のような存在があるからです。
こいつは４バイトじゃ表すことが出来ませんからね。
>「セル」がconsセルのことを指しているのなら4バイト=ポインタ１つでは足りないし。
それを無理やり足りさせてしまう技法を "CDR-cording" と呼ぶそうです。
146:デフォルトの名無しさん
04/08/20 21:51
>>143
>個人的には、「slot」と言った方が混乱が避けられると思うがね。
なるほど、でも slot というとまた別のイメージが・・・
この手のものをあらわす正式な用語ってないんですか？
>>144
いえいえ、どういたしまして。
147:デフォルトの名無しさん
04/08/20 22:43
で、結局 >>127 の中で用いてる「セル」は「consセル」なの？「メモリセル」なの？どっちなのよ
148:デフォルトの名無しさん
04/08/20 23:20
もういいだろ
149:デフォルトの名無しさん
04/08/20 23:25
(gc)
150:デフォルトの名無しさん
04/08/20 23:27
(exit)
151:デフォルトの名無しさん
04/08/20 23:29
なんだ
うやむやにして終わりか
152:デフォルトの名無しさん
04/08/20 23:39
>>147
これはメモリセルと断言できると思うよ。実装の話をしてるわけだし。
153:デフォルトの名無しさん
04/08/20 23:50
(1 . 2) を表現するために必要なメモリセルは二つだと思うんだけどなんか間違ってる?
154:デフォルトの名無しさん
04/08/21 00:08
>>153
実装次第。
155:デフォルトの名無しさん
04/08/21 00:27
>>154
や、CDR-cording とやらを使わない普通の実装でもよ。
普通の実装の場合でもアトムならポインタ使わないでしょ。リストの時だけ使う。
常にポインタ使う実装もあるのかもしれないけどさ。
156:デフォルトの名無しさん
04/08/21 00:38
(1 . 2) をあらわす即値を用意すればいいのでは。
157:デフォルトの名無しさん
04/08/21 00:42
>>156
それには何バイトいるの?
158:デフォルトの名無しさん
04/08/21 00:44
>>157
実装次第。
159:デフォルトの名無しさん
04/08/21 00:51
>>158
156のテクニックは必要な領域を減らすことができるの?
160:デフォルトの名無しさん
04/08/21 01:19
もういいだろ！
161:デフォルトの名無しさん
04/08/21 01:26
(gc!)
162:デフォルトの名無しさん
04/08/21 01:35
釣られすぎー
163:デフォルトの名無しさん
04/08/21 03:09
xyzzy とかで lisp-interaction-mode だと
自動的にLispのインデントをしてくれますよね？
でも、*.l を開いた後、自動インデントにならないのです
*.l のときは、Lisp用のインデントをしてくれるように
設定したいのですが、方法をご存知の方いませんか？
ググって調べたいのですが、何で調べたらよいのかも
よくわからないのです。
164:デフォルトの名無しさん
04/08/21 03:15
describe *auto-mode-alist*
165:デフォルトの名無しさん
04/08/21 03:16
妙に書き込みがあると思ったら…
95は>>63を彷彿とさせるなぁ…
166:デフォルトの名無しさん
04/08/21 04:02
>>165
そうか？95 はちゃんとした人だと思うが。
当初の勘違いのせいもあって、コミュニケーションがうまく
行かなかっただけじゃないのか？
167:デフォルトの名無しさん
04/08/21 04:06
ところで、Lisp スレも現在 Part11 に至っているわけだが、
その間、スレの参加者は増えたのだろうか？
URLのパラメータがUNIX時間なので、その差分を取ってみた。
(define x '(1091456033
1075630259
1069594582
1058263391
1042167213
1031560687
1023091882
1016211619
1008220265
1002584344
987169286))
(let loop ((x x))
(if (null? (cdr x))
'()
(cons (/ (- (car x) (cadr x)) 86400.0)
(loop (cdr x)))))
結論：全く傾向なし。いや、増減なしと見るべきか？
Lisp 人口は生きた化石のごとく変わらないのであろうか？
168:デフォルトの名無しさん
04/08/21 04:33
>>146
ワード？
169:デフォルトの名無しさん
04/08/21 05:01
レベルは下がり続けているな。
170:デフォルトの名無しさん
04/08/21 05:54
未踏の lego 用 XS lisp って本当にいじってみた人いる？
Google で「面白そう」って意見は結構見るんだけど
おれは Lisp 入門者だけど実装側の勉強にもなるかな？
171:80
04/08/21 10:35
>>83 >>85
情報サンクス。
λ計算の理論から導出される公式として覚えておけば良いものみたいですね。
情報数学知らなかったので助かりました。
172:デフォルトの名無しさん
04/08/21 19:06
>>164
サンクス
173:デフォルトの名無しさん
04/08/21 22:33
気付いたら>>95のヴォケのおかげで無駄レスが・・
174:デフォルトの名無しさん
04/08/23 02:51
陸上の末続選手はちょっと Shiro さんに似てると思った
175:デフォルトの名無しさん
04/08/23 14:55
>>174
ぜ、全然似てない…!!!
URLﾘﾝｸ(images.google.co.jp)
176:デフォルトの名無しさん
04/08/23 23:02
>>174 馬鹿だな、親戚だから似てて当たり前
177:デフォルトの名無しさん
04/08/24 13:01
>>71
マクロを使ったプログラムの互換性を保障したいためでしょ。
デファクトなんだし、仕様に取り込んでもいいと思うのだが。
Schemeマクロを実装するよりも、ずっと手軽に実装できるしな。
178:デフォルトの名無しさん
04/08/24 19:39
>>177
legacyマクロでプログラムの互換性を保障するのは難しいよ。
バッチコンパイルする処理系だと、マクロから呼んでる関数が
マクロ展開時にはまだ無いってことがあり得る。
え、eval-whenですか? それはちょっと…
179:デフォルトの名無しさん
04/08/24 21:11
eval-whenは必須でしょ
180:デフォルトの名無しさん
04/08/24 21:38
そんなマクロはうちの子じゃありません
181:デフォルトの名無しさん
04/08/24 22:28
eval-whenてなに？
182:デフォルトの名無しさん
04/08/25 00:53
>>181
黒魔術。
183:デフォルトの名無しさん
04/08/26 00:50
(expt float integer)
としたとき，ちゃんと (* float float float ...) と等価になりますか？
HyperSpac では (expt rational integer) のときしか書いてないような．
普段は (expt float1 float2) == (exp (* float2 (log float1))) だと書いてありますが，
2 乗や 3 乗のときは，これでは困りますよね．
不安なら整数用の expt を作る必要がありますか？
184:デフォルトの名無しさん
04/08/26 01:32
>>183
>2 乗や 3 乗のときは，これでは困りますよね．
なにが困るのか判らない。
185:183
04/08/26 23:37
>>184
2 回か 3 回の掛け算で済むことに，log や exp の計算
(級数などを使うのでしょうか?) をしてしまうのは不経済では，と思ったのです．
186:デフォルトの名無しさん
04/08/27 00:02
それは「困る」とは違うよね
187:デフォルトの名無しさん
04/08/27 06:26
>>183
処理系任せだろうね。真面目な処理系なら最適化してるんじゃない。
心配ならプロファイリングしてみれば。
というか、そんな細かいところを気にする前にベンチ取ってボトルネック
見つける方がいいと思うよ。
188:183
04/08/28 14:02
>>186-187
みなさんのお陰で考え方が分かりました．ありがというございました．
(expt rational integer) の場合が記されているのは，
速度ではなく型の問題なんですね．
> 心配ならプロファイリングしてみれば。
> というか、そんな細かいところを気にする前にベンチ取ってボトルネック
> 見つける方がいいと思うよ。
そうですね．言われるまでこういうことには気づきませんでした．
189:デフォルトの名無しさん
04/08/29 17:38
LISPって遅そうでめちゃんこ速いね
190:44
04/08/29 18:43
数値 (float) が書かれたテキストを読んで，
それとソース内のリテラルとで算術演算する場合は，
リテラルの表記を *read-default-float-format* に合わせておくべき，
というより合わせなくてはならないのでしょうか．
もう頭が痛いです．ソース内のリテラルも *read-...-format* で読むと
不都合でもあるのでしょうか．．．
clisp で long-float する人たちは，
リテラル全ての箇所で coerce するなんて，そんな話はありませんよね?
191:デフォルトの名無しさん
04/08/29 18:59
必要なら全ソースを*read-default-float-format*で検索すれば
そのうちわかるんでは？
clispも企業に対して動作保障をしているわけではないし、
どの言語処理系も数値周りは手抜き工事していたり、
バグの温床だったりする可能性が高いので。
192:デフォルトの名無しさん
04/08/29 19:27
>>190
最終的な目的がなんなのかによるだろ
193:デフォルトの名無しさん
04/08/29 20:45
defineの挙動なんですが、top levelとそうでないときとで
動作が異なるってやつの実装がマンドクセえんですが
実際はどうやってんでしょう
フラグ？
194:44
04/08/29 22:54
むむ，compile しないで実行すると warning が出ない．
compile の過程で勝手に single-float にされているのかな?
>>191
探してみましたが，.lisp と .d がソースの全てでいいんですか?
grep の結果が思ったより少ないんですが．．．
ところで .d って何なんでしょう?
ソース/emacs/d-mode.el まであるのに何かは不明なんです．
>>192
ちょっとファイルから読んで計算するだけです．
single-float では桁が寂しい感じがしたので，せっかくだからと
long にしただけなのに怒られた，というわけなんです．
195:デフォルトの名無しさん
04/08/29 23:07
>>194
>ところで .d って何なんでしょう?
>Most of the C code of CLISP is stored in files with extension '.d'. It _is_
>C code, but the file will be preprocessed a bit.
URLﾘﾝｸ(cvs.sourceforge.net)
ECL とかでも使われてたと思う。何のメリットがあるかは知らない。
196:44
04/08/30 01:30
今まで eval-when を使ったことが無かったのですが，
もしかしてと思い，
(eval-when (compile load)
(setf *read-default-float-format* 'double-float))
としたら，問題無くなりました．コンパイル時にも，その後の実行の時も
double-float で読む，ということなんですね．
今までこんな便利なものも知らなくて問題を長期化させました．すみませんでした．
197:デフォルトの名無しさん
04/08/30 19:45
>>193
環境を見ればトップレベルかどうかはわかるよね。
internal defineはマクロとの絡みがややこしい。
実装者泣かせかな。
198:デフォルトの名無しさん
04/08/30 21:49
内部defineはふつー実行前にletrecに変換するでしょ
まともな処理系なら
199:デフォルトの名無しさん
04/08/31 18:59
Dr.Schemeで「独習Scheme三週間」で紹介されてるすべての構文を使用するには
どうすればいいの？
ドットリストで構文エラー出るよ・・・
200:デフォルトの名無しさん
04/08/31 21:42
>>199
ドットリストで構文エラー出るなんてありえねー
そのコードさらしてみ
201:デフォルトの名無しさん
04/08/31 22:00
>>199
Language → choose Language で Full Scheme
202:デフォルトの名無しさん
04/09/01 01:57
9月の言語はSchemeと決まっています．
203:デフォルトの名無しさん
04/09/01 18:52
8月の言語は何だったの?
204:デフォルトの名無しさん
04/09/01 20:14
Augustだ。
略してAda。
205:デフォルトの名無しさん
04/09/02 14:12
cl の loop が，*短ければ* 読みやすさも書きやすさも両立してて，
すごくいいことを知りました．
lisp らしくないからと拒んでいた自分が悲しいです．
; グレアム氏の入門書が偏っているせいかと w
ところで，ファイルを丸々 string にする方法を探していたところ，
make-string したところに read-sequence を
使って書き込んでいくやつを見つけました．
でも，これしか無いんですか?
get-output-string-stream の input-stream 版が無いのは残念ですね．
206:デフォルトの名無しさん
04/09/02 20:22
そうこうしてるうちにOnLisp邦訳も更新されてたね。乙
後２章か、がんがれ
207:デフォルトの名無しさん
04/09/02 21:38
URLﾘﾝｸ(www.itmedia.co.jp)
208:デフォルトの名無しさん
04/09/02 22:44
>>207
なんだかなぁ... すべてが痛々しい
209:デフォルトの名無しさん
04/09/02 23:53
>>205
骨格だけ。
with-outpt-to-string (out)
(loop for line = (read-line stream) do (write-line line out)
とか。eofをどうするか(whileにするかエラー捕まえるか)は好きにすれ。
loopはcollect intoとかfor acrossとかfinallyとか使い出すと妙に可読性が
上がるので結構多用してるカモ。Lispらしからぬ見た目になるけどね。
210:デフォルトの名無しさん
04/09/03 00:04
3年前はロン毛だったと記憶してるんだけど･･･これヅラだよね？普通に考えて。
211:デフォルトの名無しさん
04/09/03 01:07
>>209
read-line は改行を消してしまうね．
「行の区切り」を指定できるスペシャル変数があればいいのに．
; awk みたいだ．．．
212:デフォルトの名無しさん
04/09/03 01:30
学生時代に授業でSchemeをちょこっとやったんですが、
最近CommonLispをいじってます。
で、CLのlambdaなんですが
(lambda (x) (* x 2)) => error
#'(lambda (x) (* x 2)) => anonymous closure
これにすごい違和感があります。この「#'」はナニモノで
何故必要なんでしょう。
213:デフォルトの名無しさん
04/09/03 02:00
>>212
このページが大変参考になる。
URLﾘﾝｸ(www.ice.nuie.nagoya-u.ac.jp)
214:デフォルトの名無しさん
04/09/03 02:28
LISP-1か2の違い。
215:デフォルトの名無しさん
04/09/03 04:24
数ヵ月前に見た時もロン毛だったよ＞ドクターT。
216:デフォルトの名無しさん
04/09/03 13:12
cmuclで関数の実行時間をはかりたいのですが、何を使うのが適当でしょうか?
変数にとりたいのですが、timeマクロは出力してしまうから使えず、
get-internal-run-timeは秒単位らしくて粗すぎて使えず、です。
217:デフォルトの名無しさん
04/09/03 14:43
>>216
(get-output-string-stream)
で作ったストリームで *standard-output* を let で上書き，，，でできますか?
218:デフォルトの名無しさん
04/09/03 15:44
cmucl でコンパイルすると，結果がおかしくなりました．
(let ((alist '((:file . "foo.txt")
(:bar))))
(with-open-file (istrm (cdr (assoc :file alist)))
(rplacd (assoc :bar alist) 6))
(format t "~S~%" (assoc :bar alist))
(format t "~S~%" (car (assoc :bar alist)))
(format t "~S~%" (cdr (assoc :bar alist))))
これは，clisp ではコンパイルしてもしなくても
(:BAR . 6)
:BAR
6
となりますし，cmucl でもコンパイルしなければ同じ結果になります．しかし，
# lisp -eval '(compile-file "foo.lisp")' -eval '(quit)'
...
# lisp -load foo.x86f -eval '(quit)'
(:BAR . 6)
:BAR
NIL
となります．cdr 部はどこへ行ってしまったのでしょうか．困ってしまいました．．． (⊃д`)
バージョンは以下です (起動時のメッセージの一部)．
CMU Common Lisp CVS release-19a 19a-release-20040728 + minimal debian patches, running on
219:218
04/09/03 15:45
追記．with-open-file を外せば直ります．
220:デフォルトの名無しさん
04/09/03 19:44
>>218
リテラルリストを破壊的に変更しちゃいかんよ。
221:218
04/09/03 20:35
>>220
結果は処理系依存ということなんですか．
最初の alist を，
(list (cons :file "foo.txt")
(cons :bar nil))
に変更すればいいのでしょうか．
こういうのを警告してもらう方法がありましたら教えてください．
222:デフォルトの名無しさん
04/09/03 20:39
(rplacd (assoc :bar alist) 6))
↓
(setf alist (cons (cons :bar 6) alist))
223:218
04/09/03 22:16
>>222
assoc で引かれることがないとしても，なんとなく違和感がありませんか?
こういうのを普通に感じるて初めて中級者なのでしょうか．
224:デフォルトの名無しさん
04/09/04 02:10
リテラルを書き換えちゃだめってのは別にLispに限らない、プログラミング言語
一般(とくにコンパイラが介在するもの)に言えることでしょう。
Cでも文字列リテラルには手は出せませんし。
225:デフォルトの名無しさん
04/09/04 03:01
> Cでも文字列リテラルには手は出せませんし。
んなこたあない。
普通はしないけど。
226:デフォルトの名無しさん
04/09/04 03:09
OS-9 の C言語処理系は literalが code module (だっけ?) に
置かれるので、書き換えちゃだめでした...
昔話かつ lispじゃないので sage
227:デフォルトの名無しさん
04/09/04 08:18
>>225
> > Cでも文字列リテラルには手は出せませんし。
> んなこたあない。
いや、んなことあるよ。
リードオンリーなセグメントに置かれるので、変更しようとするとbus errorになる。
そうしないとリテラルはプロセス間で共用することも実行ファイルを直接バッ
キングストアにしてmmapすることもできなくてメモリ利用上非効率。
よしんばそうでなくとも複数の同じ内容の文字列リテラルは一つにまとめられるので、
そういうものだと変更すれば当然悪影響が出る。
228:デフォルトの名無しさん
04/09/04 13:43
古き悪しきお行儀の悪いやつ用のコンパイルオプションも大抵用意されてはいるけどね
229:デフォルトの名無しさん
04/09/04 23:18
警告も何も出ない？
セルにimmutableフラグとか付いてないのか。
tinyschemeだか何かの処理系はそういうフラグがあって、
破壊代入するとエラーか何か出た記憶がある。
LISPの場合大抵は複製するから、個人レベルでは対策しなくても
あんま問題にはならないけど、時間置いて使うとたまにやってしまったりするな。
こういう場合の処方で処理系にセーフティレベル上げるとか何らかの
モードがある場合もあるが、実際は目先の速度に気を取られて
気付かない＆あえて無視する可能性が高いんだよな。
結局デバッガ立ち上げて原因がわかると。
cmuclレベルの処理系なら何らかのオプションがあると思う。
230:デフォルトの名無しさん
04/09/05 17:46
InterLispって良く見るんですが、これはLisp方言の一種ですか？
それともCL実装の名前ですが？
231:デフォルトの名無しさん
04/09/05 17:52
URLﾘﾝｸ(foldoc.doc.ic.ac.uk)
232:デフォルトの名無しさん
04/09/05 22:03
>>217
折角教えていただいたのですが、出力文字列を解釈しなくちゃいけなくて大変そうで、
unix-gettimeofdayでusecをとってごまかしてしまいました。
プロセス時間じゃなくて実時間ですが。
経験値を上げてもうちょっと賢くなったらトライしてみます。
233:デフォルトの名無しさん
04/09/05 22:49
WindowsでＬＩＳＰでマルチメディアが扱える
処理系ってないのでしょうか
234:デフォルトの名無しさん
04/09/05 23:48
マルチメディアってなんなんやー？
235:デフォルトの名無しさん
04/09/06 00:37
メディアが複数同時に使えることでは？
236:デフォルトの名無しさん
04/09/06 02:06
フロッピーとハードディスクのファイルを読み書きできるとかか。
237:デフォルトの名無しさん
04/09/06 03:12
クイックディスクを忘れないで欲しい。
238:デフォルトの名無しさん
04/09/06 06:22
えっと、lispacheの苫米地氏とオウム事件「逆洗脳」の苫米地氏って、
同じ人なんですか??
239:デフォルトの名無しさん
04/09/06 10:34
>>234-238
おまえら、いい加減にしろw
>>233
やっぱりACLじゃないの？
なんでもできそうだけど。
240:デフォルトの名無しさん
04/09/06 15:00
gauche用のsdlラッパというのが一番ありがちなパターンに見えるなあ
241:デフォルトの名無しさん
04/09/06 15:39
>>233
LISPならxyzzy,SCHEMEならHandySchemeのMCI関数でどうよ？
242:233
04/09/06 22:15
ACLインストールしました
HandyScheme は知りませんでした
なんかゲームの挙動をLISPで書いて
細かい部分をＣで書いて、みたいな
ことを考えてるんですけど・・・
とするとgauche の sdlラッパというのがよさげですね
有難うございました
243:デフォルトの名無しさん
04/09/06 23:52
>>238
t
>>233=242
Corman Common Lispも見てみれば? IDE使わなきゃ無料だしWindows APIと
仲良くするのも結構得意だというのを聞いた希ガス。実体験ではないので本当のトコロが
どんなもんか知らんけど。
マニュアル眺めた限りではDLL作ったりとかインラインアセンブラ使ったりとかWindowsが
主環境であればそれなりに使えそうだったよ。SDLも誰かライブラリ作ってたはずだし。
244:233
04/09/07 00:48
>>243
有難うございます
いつも不思議に思うのですが
私も結構Ｌｉｓｐ関連のサイトをこまめに
調べてはいるのですがそういう情報にたどり着けない・・・
どこでそういう情報を得るのですか？
英語圏を調べろってことですかね・・・欝
245:デフォルトの名無しさん
04/09/07 07:22
Cormanは日本語が通らないのが難点。ゲームとか作るんなら要らないかも知れないが。
それとも今は通るようになったのかな?
246:243
04/09/07 21:19
どこでって普通にググるとかcomp.lang.lisp読むとか。
英語圏避けてたらLisp関連サイト調べてないのとほぼ等価と思われ。
ってか折角ただでいろんな情報転がってるのに自分で枠狭めてちゃもったいない。
RCE関連サイトにはロシア語圏にディープなのが多いね。
247:デフォルトの名無しさん
04/09/07 22:41
Arcの話題ってこことは違う？
248:デフォルトの名無しさん
04/09/08 00:46
ここでいいんじゃないの。何か進展あった？
249:デフォルトの名無しさん
04/09/08 02:20
slime 1.0
URLﾘﾝｸ(common-lisp.net)
250:デフォルトの名無しさん
04/09/08 05:53
gaucheってそもそも Windows に正式対応してたっけ？
Windows 2000 + cygwin でなんとかコンパイルできる段階みだいだけど、
ちゃんと使えてる人いる？
251:デフォルトの名無しさん
04/09/08 09:17
XP + Cygwin でとりあえず gosh が起動しますが
それ以上の確認はしてないっす
252:デフォルトの名無しさん
04/09/08 10:19
普通に使える
GLも使える
問題なし
253:デフォルトの名無しさん
04/09/08 17:50
>> 251-252
有難う。
どうやら、家のCygwinは古いようなので新しいやついれて
ためしてみます。
254:デフォルトの名無しさん
04/09/09 05:26
今日はFranzセミナーですね。終わったら報告キボンヌ
255:名無しさん＠
04/09/09 08:26
前から気になってたんですが、CLOSにはコンストラクタってないんでしょうか？
256:デフォルトの名無しさん
04/09/09 09:39
:initformじゃだめ?
だめなら make-instanceをオーバーライド。
257:デフォルトの名無しさん
04/09/09 09:44
gauche-sdl
URLﾘﾝｸ(michaelvess.com)
258:デフォルトの名無しさん
04/09/09 14:42
Win XP + ACL 6.2 + slime 1.0 + Meadow-2.10-dev (ASAGAO)
を使っているんですが、日本語が表示できる設定おしえてください。
259:デフォルトの名無しさん
04/09/10 00:40
>>256、に限らず
:initformと:initargsって何か使い分けるのに明確な基準とかある？
make-instanceをオーバーライドするんじゃなくてmake-fooみたいなのdefunして
その中でmake-instanceして細工したオブジェクト返すのはよくやるけど、CLOS的には
ダサいっすか？
260:デフォルトの名無しさん
04/09/10 07:24
ダサいというより、しっかりドキュメントしとかないと(していても)忘れそうじゃない?
間違ってmake-instance単独で使われたときに検出してエラーを出すようにしないと、
しばらくたって保守するときとかにやばそう。
261:デフォルトの名無しさん
04/09/10 08:10
>>255
> 前から気になってたんですが、CLOSにはコンストラクタってないんでしょうか？
どの言語のコンストラクタを想定しているのか分からないけど、make-instanceが
それにあたのるのかな。あるクラスに固有の初期化はそのクラスに特化した
make-instance(やinitialize-instance, reinitialize-instanceなど)のメソッドを
定義して行います。
>>259 ：デフォルトの名無しさん ：04/09/10 00:40
> >>256、に限らず
> :initformと:initargsって何か使い分けるのに明確な基準とかある？
スロットオプションの:initformと:initarg、それとクラスオプションの
:default-initargsにはそれぞれ微妙な使い分けの基準となりそうな違いが
あります。
簡単に言ってみると、
:initformは、あるスロットの初期値だけを指定するのに使う。
:initargは、initialization argumentの宣言に使う。
:default-initargsは各スロットの初期値の指定と、初期化メソッド群が
とるinitialization argumentのデフォルト値を一箇所にまとめて指定するのに使う。
つまり、必ずしもスロットの初期化に直接かかわらないものも指定できる。
initialization argumentを宣言したことにはならない。
initialization argument名の宣言がされていると、make-instanceと
その手下である関数が呼び出された時に、引数チェックに引っかからなくなる。
規格のココを読むと書いてあります。
7.1 Object Creation and Initialization
URLﾘﾝｸ(www.lispworks.com)
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5062日前に更新/286 KB
担当:undef