【入門】CommonLisp【質問よろず】

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 05/09 23:20 / Filesize : 244 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：デフォルトの名無しさん mailto:sage [04/11/25 21:48:56]: lispを触ってみたい入門者のQ&A
初心者のQ&A
本スレでは恥ずかしくて聞けない人のQ&A
本スレは高度すぎて割り込めない人のQ&A
linuxでなくてwindowsでやりたいんですが･･･Q&A
lispを使用してC#やJAVAの代替にするための方法（おまけ）

ま、ゆっくりたりましょう。

「いいものの本質は、いかなる時代においても変わらない」byパワーズ
175 名前：デフォルトの名無しさん [04/12/27 19:55:00]: 問題はdefmacroの扱い方以前に、defunでもdefmethodでも
defclassでもdefgenericでもいいのだが、それらをクラス図で扱うと言うの
なら、UMLをLisp用に拡張しなければならないということだ。
言語事態があまりにもC＃やJAVAとはかけ離れすぎているから、
メタクラス使って拡張してXMI対応もしなければならない。

これを三人（私＋新人二人）で、一月ではキツくねぇだろうかと、
思った次第（このtool自体をLispで書けは流石に無茶だろう）。
176 名前：デフォルトの名無しさん mailto:sage [04/12/27 23:58:31]: >>175
ふと思ったんだが、その課長さんUMLとXMLと勘違いしていないかい？
どっかで「LISPでプログラム書いてXMLに変換するのはナウいですよ」とか言われて...
課長さん、忘れない様にブツブツ言いながら帰ってくる途中に
XML XML XML ... <地下鉄の中><居眠り><ドトールでコヒー> ... UML UML UML
ってなぐあい。あり得ないかもしれんが、そうであることを君のために祈っているよ（笑
177 名前：デフォルトの名無しさん mailto:sage [04/12/28 08:20:49]: >UMLをLisp用に拡張しなければならないということだ

やってみたら？
もし出来たら発表してよ。
178 名前：デフォルトの名無しさん mailto:sage [04/12/28 23:27:44]: 仕事で使うものをここで発表なんかするかよ
179 名前：デフォルトの名無しさん [04/12/31 07:25:57]: arcっていつ出るの？
180 名前：デフォルトの名無しさん mailto:sage [04/12/31 08:20:24]: arcはグラハムの脳内言語ですが何か？
奴に処理系作る時間は無いかと
181 名前：デフォルトの名無しさん mailto:sage [04/12/31 09:29:01]: じゃあグレアムは普段何やってんだろ。
働かなくても食っていける資産はあるだろ。
まさかエッセイばかり書いているわけでもあるまい。
182 名前：デフォルトの名無しさん mailto:sage [04/12/31 10:33:04]: グレアムって誰？
183 名前：デフォルトの名無しさん mailto:sage [04/12/31 10:50:40]: Paul Graham
ポールグレアム
ポールグラハム

どっちが正しい？
184 名前：デフォルトの名無しさん mailto:sage [04/12/31 10:51:18]: つか、香具師はﾌﾗﾝｽ人？
185 名前：デフォルトの名無しさん mailto:sage [04/12/31 11:15:02]: アメリカのLisperと話す時は「グレアム」で通じるけど。
「グラハム」って呼んでる人は会ったことない。
186 名前：デフォルトの名無しさん mailto:sage [04/12/31 12:04:25]: グリィォムだな。
187 名前：デフォルトの名無しさん mailto:sage [04/12/31 12:14:09]: 　　　　∧＿∧
　　　（ﾟ∀ﾟ　）ー┐ グレアムグレアム！
　　　　しヽ　　　し′
　　　　彡 >　　彡)　
　　　　　 /　 /　/
　　　　（＿（＿_）
　　　　∧＿∧　
　┌ー（　ﾟ∀ﾟ）グレアムグレアム！
　丶Ｊ　　　/Ｊ
　　 ( ﾐ　　 <　ﾐ
　　丶丶　丶
　　　（_＿）＿）
188 名前：デフォルトの名無しさん mailto:sage [04/12/31 13:08:55]: 食べすぎの日記にも出てきませんね．
資産があって暇なら数値計算にも手を出して，文書を書いて欲しいです．
189 名前：デフォルトの名無しさん mailto:sage [05/01/01 03:48:01]: 奴はLISP処理系を１から作るなんてことはしない
CommonLispのラッパーみたいなので済まそうと考えてるヘタレ
どう見てもarcは破綻してるだろ
190 名前：デフォルトの名無しさん [05/01/01 04:52:28]: arcってよく知らんのだが、CLと何が違うの？
ラップでもなんでもいいんだが、ただの方言でしかないのか？
191 名前：デフォルトの名無しさん mailto:sage [05/01/01 05:19:25]: >>190
www.paulgraham.com/arcll1.html
www.paulgraham.com/ilc03.html

この辺を読んでイメージをつかんでくれ、と言いたいところだけれど、
原理的なところと実用的なところの話がごっちゃに出てきてて、
いまいちはっきりしないのは確かだな。

一応、かつて上記のを読んで印象に残ってるのは、
名前空間はひとつ、てのとマクロをオプションで実行時展開できるようにする、
て話かなあ、CL と違うってことだと。
まあ、基本的には Lisp は Lisp なんで糖衣構文で何とかならない？
的なネタもある、というか多いけれど。
あとはインデントに構文的な意味を与える、とかもあったかな。
192 名前：デフォルトの名無しさん [05/01/01 23:09:28]: おめーらがやってる批評もどきのRubyに対する足引っ張りはな、
十把一絡げの愚図Java,C++,Perlみたいなカス言語フリーク野郎が
Ruby作者matzのような結果を出した人間と自分との格差を認められず
おこがましくも精神的に一矢報いようとするために
仰々しく「批評」とか名付けた浅ましい自己主張で攻撃して
自尊心を慰めてるにすぎない。

実際問題として、お前みたいな奴が考えてるほど
批評された側の役に立ってるわけがないだろ？ボケが。
その口から出るクソが誰かに感謝でもされたか？ああ？
自意識過剰甚だしいんだよ、この自己愛のボケ奴隷が。
数倍マシ？寝言は寝て言えよこの恥知らず野郎。
ネットで万能感むき出しにしてオナってんじゃねーよ。

批判する野党が重要だぁ？ﾌﾟ
公明党にでも投票してろ白痴野郎。
193 名前：デフォルトの名無しさん mailto:sage [05/01/03 01:01:18]: >>192
A: 誤爆
B: 編集忘れ
C: スクリプト
D: 釣り
正解はどれ？
194 名前：デフォルトの名無しさん mailto:sage [05/01/03 01:30:56]: どっかで見た
E: コピペ
195 名前：デフォルトの名無しさん mailto:sage [05/01/03 13:05:40]: LispでSOA出来ますか？
ようはLispでSOAPが出来ますか、と言うことですが。
196 名前：デフォルトの名無しさん mailto:sage [05/01/03 13:39:15]: LISPは完成された言語である。
故にSOAP対応なんてする必要がない。
去れ、邪教徒よ。
197 名前：デフォルトの名無しさん mailto:sage [05/01/03 23:02:34]: lisp や scheme で数値計算をするにあたって，どんなライブラリがありますか?
octave 並に楽に書けると嬉しいです．

(let* ((time (linspace 0, 1, 128))
(y (cos time)))
(Y (ffi y))
...

みたいな．
;; slib の plotting はジョーク?
198 名前：197 mailto:sage [05/01/03 23:32:44]: スマン．matlisp というのが cliki にありました．

どちらかというと，Windows でも良い処理系がある scheme の方が
ポータビリティ (?) がいいのかな?
199 名前：デフォルトの名無しさん mailto:sage [05/01/04 00:30:52]: 金に糸目をつけなければCommon Lispにもあるんでない？
200 名前：デフォルトの名無しさん mailto:sage [05/01/04 08:18:14]: >>196
完成って･･･
SOA対応でlispからSOAの手軽な実装方法とか出せたら、
今のC#とかJAVAに取って代われるかもしれないぞ？
201 名前：デフォルトの名無しさん mailto:sage [05/01/04 23:09:04]: >今のC#とかJAVAに取って代われるかもしれないぞ？
なんか今年の初夢みたいな話だな（笑
202 名前：デフォルトの名無しさん [05/01/06 06:53:58]: 決心した。
ACL7.0を買う！！
203 名前：デフォルトの名無しさん mailto:sage [05/01/06 07:02:20]: >>202
俺にも(ヽﾟд)ｸﾚ
204 名前：デフォルトの名無しさん [05/01/08 20:07:47]: WINDOWS環境です。
CLISPのバイトコードをJAVAとかVC++から呼ぶことは出来ますか？
またCLISPからC++やJAVAを呼ぶことは出来ますか？

JYTHONみたいにJAVAのクラスをぞのまま呼べるCLの環境とか
ありますか？（これは流石にないか）
205 名前：デフォルトの名無しさん mailto:sage [05/01/08 20:34:26]: できません(バイトコードのフォーマットが違います)
できません(exeにすれば実行はできるかもしれません)
できません
206 名前：デフォルトの名無しさん mailto:sage [05/01/09 01:36:21]: ACL
207 名前：デフォルトの名無しさん mailto:sage [05/01/09 02:06:49]: >>204
Java と連携したいなら ABCL とか。
armedbear-j.sourceforge.net/
www.cliki.net/Armed%20Bear%20Lisp

JFLI が LispWorks 以外で動くのを気長に待つとか。
jfli.sourceforge.net/

;; どっちも使ったこと無いけど。
208 名前：デフォルトの名無しさん [05/01/09 10:10:14]: >>207
サンクス～～

つかjfliは凄くないかい？
ぱっと見はJYTHONを超えてるよ。
ま、見た目なんだが。
209 名前：デフォルトの名無しさん mailto:sage [05/01/09 11:15:28]: >>204
> またCLISPからC++やJAVAを呼ぶことは出来ますか？

これは，c++ のヘッダファイルを読んで defclass するってことですか?
c++ で作った共有ライブラリを clisp で呼ぶことはできますね (って知ってるかorz)．
210 名前：デフォルトの名無しさん [05/01/09 11:17:36]: >c++ で作った共有ライブラリを clisp で呼ぶことはできますね (って知ってるかorz)．

･････････知らないです。
CLISP歴2時間なんで.....orz
211 名前：デフォルトの名無しさん mailto:sage [05/01/09 11:35:09]: Java との連携なら、Bill Clementson の Blog にまとまってるよ。

lwn.net/Articles/104991/
home.comcast.net/~bc19191/blog/index.html

Rich Hickey って素敵な名前だな。あやかりたい・・・。
212 名前：デフォルトの名無しさん [05/01/09 14:07:07]: Lispマシンについて興味あります。
ちょっとづつ調べているんですが、質問させてください。

１．Lispマシンは現在販売されているのでしょうか？

２．LispマシンはOSもLisp実装なのでしょうか？

３．趣味で作ってみたい（FPGL+VHDL）と思ってますが、
　　同様に挑戦された方の記録をご存知でしたら教えて
　　ください。
213 名前：デフォルトの名無しさん mailto:sage [05/01/09 14:25:05]: >>212
似た事をしている人なら居るよ。
common-lisp.net/project/movitz/

本物の Lisp マシンは GC を H/W でやってたらしいね。
214 名前：デフォルトの名無しさん mailto:sage [05/01/09 16:36:56]: pocket.free.fr/html/casio/ai-1000_e.html

これもある意味 LispM かな。ちょっと欲しいかも。
215 名前：デフォルトの名無しさん [05/01/09 17:54:01]: >>213,214
さっそくのレスありがとう。

>>213
GCもハードですか・・・
さすがLispマシンですね。

教えていただいたページを読んでみます。
英語・・・なので、読むの時間がかかりそうですが・・・(^ ^;

>>214
HPを見たのですが、Lispという記述がみつからなかった
のですが、ソフトはLispで実装されているのですか？
216 名前：デフォルトの名無しさん mailto:sage [05/01/09 18:25:59]: >>215
AI-1000 についてはここら辺を見て下さい。
ttp://www2b.biglobe.ne.jp/~houmei/restore/ai1000/
ttp://www6.plala.or.jp/uekiya/pockecom/pj.html
jp.franz.com/jlug/ja/resources/implementations.html

以前 Lisp スレで話題に上がっていた LispM エミュレータ。
www2.parc.com/istl/groups/nltt/medley/
www.heeltoe.com/retro/cadr/
（medley は Solaris で動きました。
URL はここ経由です。 lambda.s55.xrea.com/)
217 名前：デフォルトの名無しさん [05/01/10 11:22:37]: >>216
わざわざありがとうございます。

２年位かけて自分だけのLispマシンを作るつもりです。
最終的にはハードも自作できたらいいなと思っています。

なにぶん初心者なので、まずは教えていただいたMovitzを
いじって簡単なOSをつくるところから始めたいと思います。

では、なにか成果がありましたらご報告します。
218 名前：デフォルトの名無しさん mailto:sage [05/01/10 19:26:21]: >>217
なんか、往年のX68000ユーザみたいなこと言うね。その姿勢は好きなんで頑張ってね。
219 名前：デフォルトの名無しさん mailto:sage [05/01/11 23:17:57]: MorphyOneの二の前になりそうな悪寒
220 名前：デフォルトの名無しさん mailto:sage [05/01/12 00:39:53]: 失敗しても誰にも迷惑かからないんだからいいんじゃないの？
221 名前：デフォルトの名無しさん mailto:sage [05/01/12 00:45:56]: >>219
懐かしい…
222 名前：デフォルトの名無しさん mailto:sage [05/01/13 12:29:28]: >>187　ちゃんと括弧閉じろよ
223 名前：デフォルトの名無しさん mailto:sage [05/01/13 18:31:13]: >>219
>MorphyOneの二の前になりそうな悪寒

二の前は一？
224 名前：デフォルトの名無しさん [05/01/15 19:36:40]: lispでservletみたいなことってできないの？
225 名前：デフォルトの名無しさん mailto:sage [05/01/20 06:38:16 ]: >>224
余裕でできる。 aserve でググれ。
226 名前：デフォルトの名無しさん [05/01/20 21:16:56 ]: aserver落としてきた
でもコンパイルできない
faslが作れん
何故だ？
227 名前：デフォルトの名無しさん mailto:sage [05/01/21 01:33:31 ]: ぼうや(rya
228 名前：デフォルトの名無しさん mailto:sage [05/01/21 07:01:25 ]: >>226
aclはデモ版か？
(sys:update-allegro)とかちゃんとやっとけや(ﾟДﾟ)ｺﾞﾙｧ!
229 名前：デフォルトの名無しさん mailto:sage [05/01/21 22:42:08 ]: updateしてんだけどなぁ。。。
何故かコンパイル中に強制終了する
やり方間違っていんのかなぁ？
230 名前：デフォルトの名無しさん mailto:sage [05/01/22 00:39:16 ]: 226はaserverって書いてるけどAllegroServe(aserve)のことか?
「落としてきた」って書くからにはACL突っ込むと勝手にインストールされる奴じゃ
なくてPortable AllegroAserveをコンパイルしようとしてるってこと?
いずれにしても、処理系のバージョンとかプラットフォームとかどんな症状なのかとか
もちっと詳しく書けや。エスパー募集中ならそれも書いとけ。
231 名前：デフォルトの名無しさん mailto:sage [05/01/22 04:32:22 ]: >>230
環境はWinXPにACL6.2TrialでaserverはAllegroServeを落としてきた。
んで、faslがないからコンパイルしたら途中で異常終了する。

こんなところ。
232 名前：デフォルトの名無しさん [05/01/22 06:58:02 ]: 型書いたらちゃんと最適化してくれる？
関数の入り口に型書いたらちゃんとその型以外はブロックしてくれる？
気になって夜も練れません
233 名前：デフォルトの名無しさん [05/01/22 06:59:28 ]: 関数の戻り型ってどう書くの？
つーか書けるの？
こうして朝を迎えました
234 名前：デフォルトの名無しさん [05/01/22 07:12:55 ]: JAVAみたいにpackageってあるの？
ありそうなんだけど、書き方がわからない
自分で定義した関数や変数を自前のpackageに入れるってできますか？
235 名前：デフォルトの名無しさん mailto:sage [05/01/22 08:46:33 ]: >>232
> 型書いたらちゃんと最適化してくれる？
言語仕様上は要求されていないが、最適化してくれる処理系は存在する。

> 関数の入り口に型書いたらちゃんとその型以外はブロックしてくれる？
当て推量だが、あなたが意図しているようなのは通常の関数にはないかも。

ジェネリック関数は、引数の型による自動エラー報知機能を持っていると
考えてもいいかな。

普通にコーディングしていれば、型宣言をしなくても、予想外の型に対して
変なことをしようとすれば実行時にエラーとなり、コード上でそれを捕捉可能。
型宣言をしておくと、賢いコンパイラは、型やぶりな関数呼び出しだと推論
できたときは警告やエラーを発するものもある。たとえば(car 1)などね。
236 名前：デフォルトの名無しさん mailto:sage [05/01/22 08:51:19 ]: >>233 関数の戻り型ってどう書くの？
www.lispworks.com/documentation/HyperSpec/Body/d_ftype.htm
(declare (ftype (function (number) float) sine))
237 名前：デフォルトの名無しさん mailto:sage [05/01/22 08:55:23 ]: >> 234
> JAVAみたいにpackageってあるの？
Javaと同等なものかは分からないけど、パッケージはある。

> ありそうなんだけど、書き方がわからない
> 自分で定義した関数や変数を自前のpackageに入れるってできますか？
できる。英語が読めるんなら、最近はネットで入門書がごろごろしていると思うよ。
238 名前：デフォルトの名無しさん mailto:sage [05/01/22 09:03:51 ]: >>234
たとえば、「Practical Common Lisp」の
21. Programming in the Large: Packages and Symbols
www.gigamonkeys.com/book/programming-in-the-large-packages-and-symbols.html
とかね。俺は読んで無いんで内容の保証はできんけど。
239 名前：デフォルトの名無しさん mailto:sage [05/01/22 10:28:26 ]: >>234
Lispのインタラクティブな環境でパッケージを移動して作業してみると、
パッケージってのが単なる名前空間って事が感覚として良くわかる。
240 名前：デフォルトの名無しさん mailto:sage [05/01/22 17:37:47 ]: >>231
acl 起動して
(require :aserve)
して、
c:\Program Files\acl62-trial\examples\aserve\examples.cl
をロードして、
(net.aserve:start :port 7777)
して、
localhost:7777/
を開く。
241 名前：デフォルトの名無しさん mailto:sage [05/01/22 18:44:27 ]: $599のACL7ってどの程度のものなんでしょうか？

個人でちょっと勉強がてらに使うことを考えているのですが?

めちゃくちゃ制限があるのでしょうか？
242 名前：デフォルトの名無しさん mailto:sage [05/01/22 19:25:39 ]: このスレの住人は、LISPでどんな「問題」を解いているんですか？
つーか、みんな院生？
243 名前：デフォルトの名無しさん mailto:sage [05/01/22 19:26:46 ]: Lispでお洗濯物問題とお夕飯問題を解決しました！
244 名前：デフォルトの名無しさん mailto:sage [05/01/23 01:48:12 ]: >>240
動いたよ～ありがとう♪
しかし、なぜfaslが作れなかったのか･･･
245 名前：デフォルトの名無しさん [05/01/23 02:26:31 ]: (defun func()(* 12 12))
func
(defpackage "my-package"
(:export "FUNC"))

funcという関数をmy-packageにexportしたいんですが、defpackageでエラー
になります。何が間違ってるんでしょうか？？
246 名前：デフォルトの名無しさん mailto:sage [05/01/23 09:21:45 ]: >>245

CL-USER> (defpackage "MY-PACKAGE" (:export "FUNC")) => #<PACKAGE MY-PACKAGE>
CL-USER> (in-package "MY-PACKAGE") => #<PACKAGE MY-PACKAGE>
MY-PACKAGE> (defun func () (* 12 12)) => func
MY-PACKAGE> (in-package "CL-USER") => #<PACKAGE COMMON-LISP-USER>
CL-USER> (my-package:func) => 144
CL-USER> (func) -> undefined function FUNC [Condition of type SYSTEM::SIMPLE-UNDEFINED-FUNCTION]
247 名前：デフォルトの名無しさん mailto:sage [05/01/23 09:23:55 ]: 246の続き。
CL-USER> (shadowing-import 'my-package:func) => T
CL-USER> (func) => 144
248 名前：デフォルトの名無しさん mailto:sage [05/01/23 09:36:56 ]: >>245 あっと、意図を汲み間違えた。cl-user::funcをmy-package内へimportしたいのね。
CL-USER> (defun func()(* 12 12)) => FUNC
CL-USER> (defpackage "MY-PACKAGE" (:import-from "CL-USER" "FUNC")) => #<PACKAGE MY-PACKAGE>
CL-USER> (my-package::func) => 144
CL-USER> (my-package:func) -> #<PACKAGE MY-PACKAGE> has no external symbol with name "FUNC"
[Condition of type SYSTEM::SIMPLE-PACKAGE-ERROR]
CL-USER> (export '(my-package::func) "MY-PACKAGE") => T
CL-USER> (my-package:func) => 144
249 名前：デフォルトの名無しさん mailto:sage [05/01/24 03:32:45 ]: >>248
ありがとうございます。出来ました。
これってC++とかのnamespaceと似たようなものと考えていいんでしょうか？
C++だと自作のutilityとかを

namespace my_util{.....}

とかしてるんですが、LISPでは作法的にどうなんでしょうか？
250 名前：デフォルトの名無しさん mailto:sage [05/01/24 04:12:25 ]: なんか初心者用に問題でも出してやればいいんじゃない？
一日一問でさ
251 名前：デフォルトの名無しさん [05/01/24 06:42:26 ]: lispのVMって無いの？
apatchでlispとか使えないのかな

（個人的にはACLとか大規模なもんじゃなくてclispやxyzzyとapatchが
連携できればいいのになぁ、と思っている）
252 名前：デフォルトの名無しさん mailto:sage [05/01/24 07:47:09 ]: >>249
C++のnamespaceと似た役割をします。
たとえば、mail.lispというライブラリを次のように書いたりします。
;;; file mail.lisp starts here
(defpackage "MAIL" (:export "SEND" "RECEIVE"))
(in-package "MAIL")
(defun send () ...)
(defun receive () ...)
;;; file mail.lisp ends here

mail.lispを使う側のパッケージでは特に何も宣言せずに、
mail:send、mail:recieveと書いてアクセスするか、
(use-package "MAIL")と最初に書いておく事で、単にsend, mailとして
アクセスできるようにします。もしくは (defpackage "FOO" (:use "MAIL")))など
としても、その後はパッケージFOO内ではsendとmailと書けます。
253 名前：デフォルトの名無しさん mailto:sage [05/01/24 07:56:02 ]: >>251 Unix系のOSなら、mod_lispというapatchモジュールが存在して、
CGIプログラムをLisp(cmucl, clispなど)で書いたりということが簡単にできるらしい。

Windowsに関しても、Windows用のバイナリがmod_lispの開発もとにあったから、
できるでしょう。たぶん。
254 名前：デフォルトの名無しさん mailto:sage [05/01/24 10:32:14 ]: JAVA初心者です
swingを使用して、clispを使用した開発環境を
作りたいと思っているのですが、swing側で入力したs式をclispに渡すには
どうすればよいのでしょうか？
また、clisp側での評価結果をswing側に返すには
どうすればよいのでしょうか？

ご存知の方いらっしゃたら教えてください
お願いします
255 名前：デフォルトの名無しさん mailto:sage [05/01/24 12:37:12 ]: Jabberwocky: javaで書かれたlisp IDE
jabberwocky.sourceforge.net/
Jabberwocky is a integrated development environment for the LISP programming language. The following components are available :
* A editor with syntax coloring and code completion.
* A interaction pane with the LISP process.
* A browser of the sources,functions,macros etc..
* A source level debugger (the successor of Lisp Debug).

JACOL: jacol.sourceforge.net/
JACOL is a framework for allowing Java and Common Lisp to interoperate. It's intended use is to enable Common Lisp to function as an extension language for Java. But, it can also be used to expose Java APIs (such as Swing and DOM) to Lisp applications.
256 名前：デフォルトの名無しさん mailto:sage [05/01/24 15:07:03 ]: >>253
mod_lispは外部のプロセスと通信する単なるスタブみたいなもん。
プロトコルを守れば、好きなLisp実装が使えるし、別にLispで無くたっていい。
257 名前：デフォルトの名無しさん mailto:sage [05/01/25 02:26:20 ]: >>250
ほい
pc5.2ch.net/test/read.cgi/tech/1106587515/l50
258 名前：デフォルトの名無しさん mailto:sage [05/01/25 08:48:52 ]: (ﾉ∀`)ｱﾁｬｰ
自作自演乙
259 名前：デフォルトの名無しさん [05/01/26 09:48:40 ]: (defun func()
(setq a 0)(setq a(+ a 2)))
という関数を定義すると、
(func)->2
となります。ここまではいいんですが、次に
(func)->4
になります。
関数の中で定義した変数はstaticなんでしょうか？
関数ローカルな変数が初期化されないのが不思議です。
260 名前：デフォルトの名無しさん mailto:sage [05/01/26 10:20:15 ]: ｸｸｸ・・・
どっか外のaが潰れてるだけだよ
261 名前：デフォルトの名無しさん mailto:sage [05/01/26 10:58:51 ]: >>259
Rubyかなんかと間違えてるのではなかろうか。
aは関数ローカルな変数なんかにならないよ。
そういうものが欲しければletを使って束縛しろ。

それはそれとして、2回目が4になるって変じゃないか?
何回やろうが0+2=2になるはずだが。
262 名前：デフォルトの名無しさん mailto:sage [05/01/26 15:43:38 ]: mapcanの選別収集以外の使い途があるとでもいうのですか？
263 名前：デフォルトの名無しさん mailto:sage [05/01/26 19:28:14 ]: 複数リストの統合とか。
264 名前：デフォルトの名無しさん mailto:sage [05/01/26 19:36:10 ]: (mapcan #'list '(key0 key1 key2) '(value0 value1 value2))
=> (KEY0 VALUE0 KEY1 VALUE1 KEY2 VALUE2)
265 名前：デフォルトの名無しさん mailto:sage [05/01/26 23:06:52 ]: mapc ってマップクって呼んでOK
266 名前：デフォルトの名無しさん mailto:sage [05/01/27 03:13:58 ]: lispでプログラムを書けという課題がでました。
ωを自然数のリストとする。
MAX（ω）＝０（ωがNILのとき）　ωに含まれる最大の数
例ω＝（８，１３、２５、１０）のときMAX（ω）＝２５
組み込み関数
LESSTHAN(n,m)＝T（n＜ｍ）　NIL(n≧m)を使用すること。

もしよろしければ教えていただけないでしょうか？
どーも基礎がよくわかってないみたいで･･･
267 名前：デフォルトの名無しさん mailto:sage [05/01/27 05:04:48 ]: 2chではなくて、学内のお友達と相談しながら
解決するのがよろしいかと。
268 名前：デフォルトの名無しさん mailto:sage [05/01/27 09:16:18 ]: (defun MAX (ω)
(if (null ω) 0
((lambda (n m) (if (LESSTHAN n m) m n))
(car ω) (MAX (cdr ω)))))
269 名前：デフォルトの名無しさん mailto:sage [05/01/27 12:59:45 ]: マクロって関数みたいに変数に代入できないの？

(defmacro macro()())
(setq m 'macro)
(a)->error

呼べないのかな
270 名前：デフォルトの名無しさん mailto:sage [05/01/27 13:15:32 ]: (a)->error 間違い×
(m)->error
271 名前：デフォルトの名無しさん mailto:sage [05/01/27 13:17:39 ]: (defmacro foo (x) `(car ,x))
(setq a (macro-function 'foo))
(funcall a '(foo a) nil) => (CAR A)
272 名前：デフォルトの名無しさん [05/01/27 16:11:34 ]: windowsで動くcmuclが完成したら、ソフトウェア業界は
変わる、と思っていますが正しいですか？
273 名前：デフォルトの名無しさん [05/01/27 16:14:28 ]: >272
実現可能性とシナリオは？
市場アクションは？
274 名前：デフォルトの名無しさん mailto:age [05/01/27 16:32:14 ]: age
275 名前：デフォルトの名無しさん [05/01/28 07:58:09 ]: Clisp使ってます。
Clispってパイプありますか？
276 名前：デフォルトの名無しさん mailto:sage [05/01/28 09:07:27 ]: >>275
30.8.2. Pipes
clisp.cons.org/impnotes.html#pipe
277 名前：デフォルトの名無しさん mailto:sage [05/01/28 10:27:48 ]: >>273
ごめんなさい
278 名前：デフォルトの名無しさん mailto:sage [05/01/29 19:30:21 ]: (setq data '(1 2(3 4(5))))
(length 'data)->error
(length '(1 2(3 4(5))) )->3

なぜ･･･？データとしてはまったく同じリストだと思うんですが
279 名前：デフォルトの名無しさん mailto:sage [05/01/29 19:49:12 ]: (length 'data)のquoteが余分ですだ。だんなさま。
280 名前：デフォルトの名無しさん mailto:sage [05/01/29 19:56:15 ]: サンクスです
ということはlengthってマクロですか
281 名前：デフォルトの名無しさん mailto:sage [05/01/29 20:26:28 ]: >>280
ﾊｧ？
シンボルにlengthを適用しようとしたからエラーになってるんだぞ？
282 名前：デフォルトの名無しさん mailto:sage [05/01/29 20:42:35 ]: そうか・・・勉強してくる
283 名前：デフォルトの名無しさん mailto:sage [05/01/29 21:20:19 ]: 次の患者さんどぞ～
284 名前：ウエシマ [05/01/30 08:23:10 ]: 毛が抜けるんですが・・・
285 名前：デフォルトの名無しさん mailto:sage [05/01/30 10:13:31 ]: 抜けるだけの毛があったことに感謝なさい。
286 名前：デフォルトの名無しさん mailto:sage [05/01/30 15:51:35 ]: ・おなにーを控える（多くても週一ぐらい）
・タバコをやめる（ただしやめることでストレス増加なら逆効果）
・２日に一回は頭を洗ってマッサージし頭皮を清潔にする
・生活リズムを整える（徹夜しない）
・風の強い場所に長くいない（そゆときは帽子着用）
・暑い場所に長くいない（タオルで小まめに汗をふき取る）
・ストレスを溜めず、感情的にならない
・水泳するときは帽子着用（プールの水は髪にあまりよくない）
287 名前：デフォルトの名無しさん [05/01/31 10:50:36 ]: コンパイルしたらJAVAのクラスになるようなCLの処理系って
ありませんか？
288 名前：デフォルトの名無しさん mailto:sage [05/01/31 22:54:47 ]: Allegro JILとLinjくらいしか知らない。他にもあるんだろなぁ、Lisperは何でも作っちゃうから。
289 名前：デフォルトの名無しさん mailto:sage [05/02/01 11:26:22 ]: >>288
ありがとございます
Allegro JILとか機能的に便利だけど、金かかるのか。。。
買うしかないかなぁ
290 名前：デフォルトの名無しさん mailto:sage [05/02/01 20:54:30 ]: そろそろでつね。行く人れぽよろ
jp.franz.com/base/seminar-2005-02-03.html
291 名前：デフォルトの名無しさん [05/02/02 20:10:19 ]: xyzzyでLispモードを使用する時、Lispの予約語の
インテリセンスってどうやればよいのでしょうか？
292 名前：デフォルトの名無しさん mailto:sage [05/02/02 20:11:27 ]: 誰かtuareg-modeをxyzzyに移植してください
293 名前：デフォルトの名無しさん mailto:sage [05/02/02 20:31:44 ]: >>291
Lispには予約語はありません。
294 名前：デフォルトの名無しさん [05/02/02 20:45:30 ]: (defun foo()())
<foo>
(undefun 'foo)
<undefun-foo>

のような一度defunしたものをリリースするundefunのような
関数ってCLにありますか？
295 名前：デフォルトの名無しさん mailto:sage [05/02/02 20:51:48 ]: intern
unintern
296 名前：デフォルトの名無しさん mailto:sage [05/02/03 00:02:20 ]: >>293
（）は予約記号。
297 名前：デフォルトの名無しさん mailto:sage [05/02/03 01:00:32 ]: ちゃんとした処理系なら括弧もリーダーマクロで変えられるんじゃなかったか
m4みたいに
298 名前：デフォルトの名無しさん [05/02/03 22:13:49 ]: CLにはJAVAのHashMapみたいなものはありますか？

(hashmap obj "KEY" "OBJECT")

みたいな
299 名前：デフォルトの名無しさん mailto:sage [05/02/03 22:35:42 ]: JAVAのHashMapとやらの機能を教えちくり。
300 名前：デフォルトの名無しさん [05/02/03 23:09:12 ]: HashMap hobj = new HashMap();
String key "KEY";
String object = "OBJECT";
hobj.put(key,object);
System.out.println( hobj.get(key) );//"OBJECT"が表示される

こんなんです
301 名前：デフォルトの名無しさん mailto:sage [05/02/04 00:14:26 ]: ハッシュテーブルあるよ。
データ構造でなくJavaのHashMapが質問に出てくるところがなんだかなー。
302 名前：デフォルトの名無しさん mailto:sage [05/02/04 00:46:59 ]: 一旦定義したメソッドに引数を追加して定義しなおそうと思ったら
Attempt to add the method
#<STANDARD-METHOD ほげほげ> to the generic function
#<STANDARD-GENERIC-FUNCTION ほげほげ>, but the method has
"more" optional arguments than the generic function.
と怒られてしまいます。開発中にいちいち処理系を起動しなおすのはかったるいので
なんとかならないかと思うんですが、どうすりゃいいんでしょ。
303 名前：デフォルトの名無しさん mailto:sage [05/02/04 08:30:38 ]: >>302 ANSI CLのdefgenericの説明では、defgenericの:methodオプションで定義した
メソッドと、defmethodで定義したメソッドは区別されるみたい。
defgenericの場合はラムダリストを変更して再定義することが許されている様子。
GNU CLISPではエラーになったけど。CMUCLでは可能。

(defgeneric foo (a b) (:method (a b) (list a b))) => #<GENERIC-FUNCTION FOO>
(foo 1 2) => (1 2)
(defgeneric foo (a b &optional c) (:method (a b &optional c) (list a b c))) => #<GENERIC-FUNCTION FOO>
(foo 1 2 3) => (1 2 3)

あとは、find-methodとremove-methodでメソッドを削除してからdefgenericとか。
304 名前：デフォルトの名無しさん mailto:sage [05/02/04 14:09:51 ]: ふむふむ。
今度はfind-method/remove-methodでやってみます。
今まではシンボルごとuninternしちゃってました。
どうもありがとうございました。
305 名前：デフォルトの名無しさん mailto:sage [05/02/04 16:10:05 ]: 継続って何ですか？
306 名前：デフォルトの名無しさん mailto:sage [05/02/04 16:11:50 ]: >>305
テンプレ嫁
pc5.2ch.net/test/read.cgi/tech/1100229366/
307 名前：デフォルトの名無しさん [05/02/05 22:42:02 ]: lispで簡単（テキストファイルの送受信程度）なネットワークプログラム作りたいのですが、
その辺の情報の載ったサイトとか本ありませんか？
308 名前：デフォルトの名無しさん mailto:sage [05/02/05 22:56:09 ]: perlでも使えよ
309 名前：デフォルトの名無しさん mailto:sage [05/02/05 23:06:09 ]: まずは処理系のマニュアルを眺めてみるのがよろしいのでは。
310 名前：デフォルトの名無しさん mailto:sage [05/02/06 17:36:15 ]: CLISPでMOPがサポートされｔらしいのですが、
どうやって使うものなんでしょうか？
311 名前：デフォルトの名無しさん mailto:sage [05/02/06 18:48:22 ]: MOPってMeta Object Protocolのこと?
もしそうなら使い方がわからない時点で貴方には必要のないものだと思うのですが。
AMOPは読破・理解されましたか？
312 名前：デフォルトの名無しさん mailto:sage [05/02/06 21:10:14 ]: >>310 MOPはオブジェクトシステム(CLOS)をカスタマイズするときに使います。
CLOSを実装するのに必要となる、ある程度の動作が規定された一連のジェネリック関数が存在し、
それらのメソッドを独自に定義することにより、カスタマイズを行います。
たとえば、永続化をサポートしたオブジェクトをシステムに組み込むなんて
ときに使うこともあれば、CLOSに標準化される前の古いオブジェクトシステムを
エミュレートしたりするときに使うこともあるでしょう。

MOPの仕様は公開されているので読んでみてはいかが?
www.lisp.org/mop/index.html
313 名前：デフォルトの名無しさん [05/02/07 20:28:56 ]: dylanという言語は素晴らしい。
Lispより素晴らしい。
何よりIDEが素晴らしい。

と、言語マニアな友人が言っていた。
ﾏｼﾞかぁ？
314 名前：デフォルトの名無しさん mailto:sage [05/02/07 23:04:49 ]: >>313
>dylanという言語は素晴らしい

dylanって何？
315 名前：デフォルトの名無しさん mailto:sage [05/02/07 23:44:28 ]: まあﾏｶの言う事だし
316 名前：デフォルトの名無しさん [05/02/07 23:58:42 ]: ぬるぽぅ？
317 名前：デフォルトの名無しさん mailto:sage [05/02/08 21:35:26 ]: >>314

dylan
pc5.2ch.net/test/read.cgi/tech/1004242854/
318 名前：デフォルトの名無しさん [05/02/13 16:57:45 ]: append という関数について質問なのですが、
(append '(1 2) '(3 4)) => (1 2 3 4)
仕様では前半の '(1 2) は新しいセルを作って内容を
コピーするらしいのですが、なんで前半の最後を後半の
最初に繋げるだけじゃ駄目なんですか？
319 名前：デフォルトの名無しさん mailto:sage [05/02/13 17:37:26 ]: CL-USER> (setf x (list 1 2))
(1 2)
CL-USER> x
(1 2)
CL-USER> (append x (list 3 4))
(1 2 3 4)
CL-USER> x
(1 2)
CL-USER> (nconc x (list 3 4))
(1 2 3 4)
CL-USER> x
(1 2 3 4)
CL-USER>
320 名前：デフォルトの名無しさん mailto:sage [05/02/13 18:26:58 ]: 319を見て318はダメな理由が思いつくかしらね、と。
321 名前：デフォルトの名無しさん mailto:sage [05/02/14 08:40:44 ]: >>318
> なんで前半の最後を後半の最初に繋げるだけじゃ駄目なんですか？
それにはnconcという別の関数が用意されている(「駄目」とかじゃなく
別々の使い方に対応するためにappendとnconcが用意されている)。

なぜappendが現在の仕様になっているかというと、
あるリストを参照している変数や自分の一部として参照しているLisp objectは
複数存在する可能性があって、そういうリストを1つの参照元が勝手に変更すると、
そのリストが変更されるとは想定していない別の参照元で混乱が生じるときがあるため。

(setq x (list 1 2)) => (1 2)
(setq y (cons 0 x)) => (0 1 2)
;; yが参照しているリストは勝手に変更されないとプログラマーは想定しているとする。
(setq z (nconc x '(3))) => (1 2 3)
y => (0 1 2 3) ;; えっ！ (0 1 2)と変わっとるやないけ!

なぜnconcが用意されているかといえば、appendより速度、空間的なコストが安くあがる
可能性が高いため。

こんなんでどうでしょう?
322 名前：デフォルトの名無しさん mailto:sage [05/02/14 08:44:13 ]: 上の例での動作がプログラマが望むものであるときもnconcを使うよね。
323 名前：デフォルトの名無しさん mailto:sage [05/02/14 11:20:10 ]: >>318
> (append '(1 2) '(3 4)) => (1 2 3 4)

'(1 2), '(3 4)は定数なのでテキストセグメントなど変更できないメモリ領域に
とられる可能性がある。そうするとappendの代わりにnconcを使って前半のリストを
変更すると、bus errorで落ちる。
324 名前：デフォルトの名無しさん mailto:sage [05/02/14 23:28:54 ]: 気味が悪いくらい皆親切だな。何かあったのか？
325 名前：デフォルトの名無しさん mailto:sage [05/02/14 23:30:05 ]: >>324
実は童貞だけどチョコレートもらえたんだ。
326 名前：デフォルトの名無しさん mailto:sage [05/02/24 23:09:02 ]: ML使いの香具師いる？
327 名前：デフォルトの名無しさん mailto:sage [05/02/25 00:41:40 ]: MultiLanguage
328 名前：デフォルトの名無しさん mailto:sage [05/02/27 13:28:46 ]: >>326 Ocaml ならちょくちょく使うよ．
329 名前：デフォルトの名無しさん [05/02/27 16:41:12 ]: (setq n '(func foo))
n
(defmacro macro(x)
`(defun ,(car x) (y)
(print y)
)
)
このマクロがエラーになるのですがどうしてでしょうか？
`(defun ,(car n) (y) (print y))
これと同じ事をしているつもりなんですが・・・
330 名前：デフォルトの名無しさん mailto:sage [05/02/27 17:35:58 ]: 自己解決しました
お騒がせしました
331 名前：デフォルトの名無しさん [05/03/01 20:56:04 ]: 引数がアトム型なら"atom"、そうでなければ"false"と表示するマクロを
作成したいんですが、

(defmacro macro(x)
`(if,(atom ,x)
(print "atom")
(print "false")
)
上のようなマクロで動くんですが、
展開したときに
(macroexpand-1 '(macro 'a)) -> (print "atom")
となるようしするにはどうすればいいんでしょうか？？
332 名前：デフォルトの名無しさん mailto:sage [05/03/01 22:23:19 ]: ifを外側に出せばいいのでは。
`(print ,(if (atom x) "atom" "false"))
333 名前：デフォルトの名無しさん mailto:sage [05/03/01 22:32:27 ]: (if (atom x) '(print "atom") '(print "false"))
334 名前：デフォルトの名無しさん mailto:sage [05/03/02 01:15:22 ]: >>332、>>333
ありがとうございます。

マクロは凄い機能ですね、昔C++でどうしてもできなくて挫折した
機能をわずか数行で実現できました。
335 名前：デフォルトの名無しさん mailto:sage [05/03/02 03:02:22 ]: scheme と common lisp ってどのくらい違うのでしょうか?
なにが決定的に異なるかでもいいですが。

schemeを覚えたからといってcommon lisp のプログラムがかけるとか、そういうことは無いのですか?
336 名前：デフォルトの名無しさん mailto:sage [05/03/02 03:30:08 ]: |← これくらい →|
337 名前：デフォルトの名無しさん mailto:sage [05/03/02 04:14:03 ]: >>355
個人的には、最初にぶつかる大きな違いは
define-syntax と defmacro の違いかなあと思います。

call/cc は……scheme で call/cc 使いこなせるくらいになったら、
common lisp の特殊形式諸々で何とかできない……のかなあ。
私は call/cc 使いこなしてるわけじゃないので何とも。
clos も plt やら gauche を使えば、まあ、それなりに、て気もするし。

名前空間辺りは、好みはあっても、基本的にはすぐに慣れるでしょう。
たまにうっかり #' 付けたり付け忘れたりしますけど。あと funcall とか。

まあ、scheme やってればすぐ common lisp で書けるようなるかっていうと、
やっぱり慣れるのに時間は必要でしょうけれど、やってないよりは遥かに楽に入れるとは思います。
338 名前：デフォルトの名無しさん mailto:sage [05/03/02 05:25:45 ]: call/ccなんて使わない奴は全く使わないでしょ
339 名前：デフォルトの名無しさん [05/03/04 17:44:07 ]: lispで正規表現ってできますか？
Clispでうありたいんですけど。。。
340 名前：デフォルトの名無しさん mailto:sage [05/03/04 18:57:18 ]: >>339
はいな。
clisp.cons.org/impnotes.html#regexp
341 名前：デフォルトの名無しさん mailto:sage [05/03/04 19:01:02 ]: >340
さんくすです
342 名前：デフォルトの名無しさん [05/03/05 12:43:02 ]: >>337
schemeな人が「Lisp？(ﾌﾟｹﾞﾗ」みたいなことよく言ってるけど、
こうしてみると、別にそれほどLispが劣ってるようには見えないなあ。
大して違わないじゃん。
343 名前：デフォルトの名無しさん mailto:sage [05/03/05 13:31:47 ]: 趣味でいやなことやんなくていいときはScheme
仕事で泥臭いことも泣く泣くやらなきゃいけないときはCommon Lisp
フリーソフト作ってみんなに自慢したいときはEmacs Lisp
344 名前：デフォルトの名無しさん mailto:sage [05/03/05 14:56:15 ]: 別に泣く泣くとか泥臭いとか言うほど違わないじゃん。
ちっとも泥臭くない。
345 名前：デフォルトの名無しさん mailto:sage [05/03/05 16:46:25 ]: >>343
仕事で泣く泣くCommonLispなんて選択する奴いるのかね。
346 名前：デフォルトの名無しさん mailto:sage [05/03/05 17:31:16 ]: こんなこと言うと怒られるかも知れんが、
lispとschemeで相違点あるのか？
ほとんど同じようなもんじゃないのか？
347 名前：デフォルトの名無しさん mailto:sage [05/03/05 19:10:12 ]: それ以上はスレ違い
このスレ、なんのために立てたんだ？
348 名前：デフォルトの名無しさん mailto:sage [05/03/05 19:11:19 ]: ＞schemeな人が「Lisp？(ﾌﾟｹﾞﾗ」みたいなことよく言ってるけど、
どこで言ってたのか教えてくれよ（ﾌﾟｹﾞﾗ
349 名前：デフォルトの名無しさん mailto:sage [05/03/05 20:39:24 ]: 正直言って Scheme の define-syntax はいまいち馴染めん。
call/cc も catch/throw で代用できるケースしかあまり使わない。
（そうでないケースで使うと極端に効率の悪い処理系もある）
srfi の実装も結構まちまちで、ポータビリティを考えると結構めんどくさい。

ってなわけで、最近は Scheme より Common Lisp を使うことが多いね。
350 名前：デフォルトの名無しさん mailto:sage [05/03/05 23:32:23 ]: Lisp と Scheme を比較って、意味がわからんぞ。

Lisp
　+- Common Lisp
　+- Scheme
　+- Emacs Lisp
　+- その他の Lisp 方言
　:
351 名前：デフォルトの名無しさん mailto:sage [05/03/05 23:48:15 ]: LOOPマクロが嫌いな奴はみなSchemeに流れたよ
352 名前：デフォルトの名無しさん mailto:sage [05/03/06 00:01:58 ]: >>350
このスレの流れは >>335 から派生しているのだよ。
353 名前：デフォルトの名無しさん mailto:sage [05/03/06 00:40:06 ]: >>351
あぁ、あれか。あれは Common Lisp 派の漏れでも醜いなと思う。
CLtL2 を読んだとき目を疑ったよ。Common Lisp の汚点だ。ｗ
漏れ的にはループは do がデフォかな。loop は無条件繰り返しのときだけ使う。
354 名前：デフォルトの名無しさん mailto:sage [05/03/06 00:44:47 ]: >>349
CommonLispにだってperlやrubyみたいな単一の実装があるわけじゃないんでしょ？
だったらポータビリティの問題はschemeとかわらないんじゃない？
355 名前：デフォルトの名無しさん mailto:sage [05/03/06 00:54:25 ]: んなこたあない
356 名前：デフォルトの名無しさん mailto:sage [05/03/06 00:57:40 ]: >>354
Common Lisp なら言語で定義されている範囲で済むことでも、Scheme の場合は
ちょっとした便利関数でも R5RS では定義されてないから結局 SRFI のお世話に
なってしまう。そのときの処理系間のばらつきが割と大きいように思えるということ。
別に Scheme が嫌いなわけじゃないよ。念のため。
357 名前：デフォルトの名無しさん mailto:sage [05/03/06 01:26:26 ]: Schemeってモジュールやオブジェクト指向といった、現代のプログラミングでは
欠かせない重要なことすら処理系依存じゃん。
そういうのは嫌なとこだよね。
358 名前：デフォルトの名無しさん mailto:sage [05/03/06 06:10:36 ]: SRFIでライブラリの標準化を進めるのはいいが、
定義された関数仕様が気に入らない
マクロ覚えたて厨が考えたみたいなマクロとか、
どこぞの処理系の実装そのまんまとか

ところで、ここはCommonLispスレじゃなかったのか
359 名前：デフォルトの名無しさん mailto:sage [05/03/06 11:49:49 ]: まぁ対比することで Common Lisp の良さが見えてくることもあるからいーじゃない。
360 名前：デフォルトの名無しさん [05/03/06 20:03:24 ]: ところでおまいらどの処理系使ってる？
ちなみに漏れは CLISP だが。
361 名前：デフォルトの名無しさん mailto:sage [05/03/06 20:27:09 ]: ACL trial
362 名前：デフォルトの名無しさん [05/03/06 22:20:39 ]: やっぱりemacsかな
日本語とデバッガと独自関数の便利さから。
しかしcommon lispと結構違うのが痛い。
日本語と環境（デバッガ）とフリーという三つの条件入れるとこれしか選択肢ないんだよな。
Schemeは全滅。
363 名前：デフォルトの名無しさん [05/03/06 22:51:10 ]: >>362
最近の CLISP は GNU libiconv 使ってて国際化は結構充実しているっぽいよ。
clisp.cons.org/impnotes/encoding.html
364 名前：デフォルトの名無しさん mailto:sage [05/03/07 05:40:28 ]: clispいい。
eclipseみたいな環境があればもっといい。
エディタは飽きた。
365 名前：デフォルトの名無しさん mailto:sage [05/03/07 09:20:21 ]: CommonLispではまともなのはCLISPしか選択肢ないよな。
環境が多少悪いかもしれないけどこれしかないんだから
我慢するしかない。
366 名前：デフォルトの名無しさん mailto:sage [05/03/08 06:21:06 ]: そうか、CLISPはIDEがないのか。
JAVAでさくっと作ってみるかな。。。
367 名前：デフォルトの名無しさん mailto:sage [05/03/08 12:36:51 ]: こんなのどーだ。使ったことないけど。
ciapek.uci.agh.edu.pl/~kwlodarc/VisualCLisp/en.htm
368 名前：デフォルトの名無しさん mailto:sage [05/03/08 20:00:20 ]: >>367
使ってみたけど、なんか意味あるのかこれ？
デバッガと言ってもインタプリタがそのまま出てきただけだったぞ。
369 名前：デフォルトの名無しさん mailto:sage [05/03/08 20:10:19 ]: SLIME じゃダメですかね
370 名前：デフォルトの名無しさん mailto:sage [05/03/08 20:31:32 ]: Lispがそんなに生産性高いならIDEくらいさっさと作れるはずだな。
371 名前：デフォルトの名無しさん mailto:sage [05/03/08 20:41:17 ]: slimeってclispで動いたっけ？？
372 名前：デフォルトの名無しさん mailto:sage [05/03/08 20:53:58 ]: >370
ACLはACLで出来ている
373 名前：デフォルトの名無しさん mailto:sage [05/03/08 21:16:10 ]: >>371
% ls swank*.lisp
swank-abcl.lisp swank-lispworks.lisp
swank-allegro.lisp swank-loader.lisp
swank-backend.lisp swank-openmcl.lisp
swank-clisp.lisp swank-sbcl.lisp
swank-cmucl.lisp swank-source-path-parser.lisp
swank-gray.lisp swank.lisp
374 名前：デフォルトの名無しさん mailto:sage [05/03/08 21:56:04 ]: clisp 使えても iso-8859-1 決めうちじゃなあ。
375 名前：デフォルトの名無しさん mailto:sage [05/03/09 02:21:04 ]: emacs系が統合環境なんじゃないの？
376 名前：デフォルトの名無しさん mailto:sage [05/03/09 16:07:21 ]: >>371
サポートするってかいてあるけど。ttp://common-lisp.net/project/slime/
377 名前：デフォルトの名無しさん mailto:sage [05/03/09 22:41:11 ]: >>367のエディタで改行して自動でインデントが付かないのは
俺だけか・・・？
微妙に使いづらいな。
378 名前：デフォルトの名無しさん mailto:sage [05/03/09 22:46:23 ]: 忘れたころにLOOPマクロマンセー、と書いてみる。漏れは結構好きで使いまくりだ。
379 名前：353 mailto:sage [05/03/09 22:59:16 ]: >>378
そうか。醜いとか汚点とか書いて悪かった。許してくれ。
380 名前：デフォルトの名無しさん mailto:sage [05/03/09 23:25:15 ]: loopも典型的で簡単な使い方をする分にはいいんじゃないの。
381 名前：378 mailto:sage [05/03/09 23:52:10 ]: そうくるとは思わなかったな。何でLOOPなんか使うんだゴルァと叩かれると思ってた。
Common Lisp使ってる時点で異端扱いなので変な目で見られるのは慣れてるのだ(w
でもあのレベルのマクロを皆が好き勝手に作り始めたらポータビリティどころの騒ぎじゃ
なくなるような気はする。
382 名前：デフォルトの名無しさん [05/03/10 06:13:09 ]: emacsのlisp-modeのインデントが

(if predict
□□a
□b)

こうなるんだけど、scheme-modeみたく

(if predict
□□a
□□b)

のように出来ないんﾃﾞｨｽｶｰ?
383 名前：デフォルトの名無しさん mailto:sage [05/03/10 07:05:10 ]: できる。というかわざわざ前者のようになってるわけだが……。
(put 'if 'lisp-indent-function nil)
384 名前：デフォルトの名無しさん mailto:sage [05/03/10 07:09:41 ]: >>383
ありがとう。
前者のようになっている理由は？
385 名前：デフォルトの名無しさん mailto:sage [05/03/10 08:25:07 ]: >>381
何でLOOPなんか使うんだゴルァ

LOOPみたいな独り善がりマクロがある限り
CommonLispに発展はない
386 名前：353 mailto:sage [05/03/10 11:20:48 ]: >>381
マイナな中でさらに細かい流派を作って、いがみあってもしょうがないからね。
なるべく寛容になるようにしている。ｗ
複雑なLOOPマクロを書けと言われたらちょと困るけど、読むくらいならなんとかなるし。
（たぶん、、、）
387 名前：デフォルトの名無しさん mailto:sage [05/03/10 16:19:01 ]: >>384

lisp: (if COND THEN ELSE ...)
scheme: (if COND THEN ELSE)
388 名前：デフォルトの名無しさん mailto:sage [05/03/10 21:50:33 ]: え、それって理由になってるの？
389 名前：デフォルトの名無しさん mailto:sage [05/03/10 23:04:31 ]: おそらく、理由なんだろうな。
elseが複数あるからってことでしょ？

まあ、だからってなんでaだけ下げるんだという疑問はまだ残るが。
390 名前：378 mailto:sage [05/03/10 23:13:10 ]: >> 385
前半の前提と後半の帰結の関係がさ～っぱりわからん。理論立てて説明してみ。

LOOPマクロが繰り返し構造に特化したDSLの様相を呈しているという点で独り善がり
という感想を持つのは理解できなくもないが(しかし委員会で承認され規格化されて
いるという点で独善ではありえない)、その存在とCommonLispの発展とに何の関係が?
391 名前：デフォルトの名無しさん mailto:sage [05/03/10 23:35:25 ]: >>389
＞elseが複数あるからってことでしょ？

ええー
述語ひとつに対してTHEN節とELSE節の他に、
ELSE1…ELSEn節があるって論理的におかしくないか？
392 名前：デフォルトの名無しさん mailto:sage [05/03/10 23:48:24 ]: Scheme での (if COND THEN (begin ELSE1 ELSE2 ...)) を伝統的 Lisp では
(if COND THEN ELSE1 ELSE2 ...) と書けるってこと。
393 名前：353 mailto:sage [05/03/10 23:52:58 ]: >>387
ええーーーっと思って確かめたけど、Common Lisp は複数の else 句を取れないよね。
初めて知ったが emacs lisp は確かに複数の else 句が取れるんだな。
別に論理的におかしいとまでは思わないけど変わった仕様だね。
394 名前：デフォルトの名無しさん mailto:sage [05/03/10 23:54:48 ]: 2個目以降がもったいないから利用しちゃおうという感じか？
わざわざprognとかでネスト深くする必要がないように。
395 名前：デフォルトの名無しさん mailto:sage [05/03/11 01:20:22 ]: >>394
それって、括弧の存在、如いてはS式そのものを否定することにならないか？
Lisperは、括弧を惜しみなくばら撒くもんだとばかり思ってたよ。
396 名前：デフォルトの名無しさん mailto:sage [05/03/11 01:36:07 ]: そんなおおげさな
(+　3　(+ 1　(+　4　(+　1　5))))
だって
(+　3　1　4　1　5)
と書けるじゃないか

だからといってどうといったことはない
397 名前：デフォルトの名無しさん mailto:sage [05/03/11 04:09:39 ]: 括弧の帆を広げて
順風満帆といきたいねえ
398 名前：デフォルトの名無しさん mailto:sage [05/03/11 04:29:34 ]: 実益と実害を全く無視して括弧を好むのは本末転倒。
399 名前：デフォルトの名無しさん mailto:sage [05/03/11 04:39:32 ]: ((i))
400 名前：デフォルトの名無しさん mailto:sage [05/03/11 12:40:30 ]: >>387
ちなみに Common Lisp は scheme と同じ (if COND THEN [ELSE]) なわけだが、
ELSE を複数書ける Lisp って Emacs Lisp 以外にあるの？
401 名前：デフォルトの名無しさん mailto:sage [05/03/11 12:50:25 ]: よくわからんが、>>392によると、伝統的Lispでは大体そうなんじゃないの。
つまり、MacLispとか？なんか昔はいろいろなLispがあったらしいし。

CommonLispはSchemeの影響もかなり受けてるしな。
最近のLispがELSE一つなんじゃないかと。
402 名前：デフォルトの名無しさん mailto:sage [05/03/11 13:17:30 ]: >>401
MacLisp には if は無かったみたい。
zane.brouhaha.com/~healyzh/doc/lisp.doc.txt
Common Lisp 以前の「伝統的なLisp」では if よりも cond が基本だったし、ELSEが複数
書けるというのは Emacs Lisp のローカルルールではないかと思うのだが。
403 名前：デフォルトの名無しさん mailto:sage [05/03/11 16:11:16 ]: MIT Lisp Machine では ELSE を複数書けたよ。
www.bitsavers.org/pdf/mit/cadr/
Symbolics でも同様だったと思う。
404 名前：デフォルトの名無しさん [05/03/12 02:27:01 ]: On Lispを読んでてクロージャの説明のところで

(let ((counter 0))
　(defun inc ()
　　(setq counter (+ counter 1)))
　(defun reset ()
　　(setq counter 0)))

こういう内部状態を持つ関数の話が出てきて、Schemeに書き換えようと思ったんだけど
defineはlet式の内部で使っても外から見えないから、
上のCommon Lispの例のdefunをdefineに書き換えただけじゃうまくいかない。
Common Lispの例みたいに共通の環境情報にアクセスできる複数の関数の上手い書き方ってないかな。

(define count
　(let ((counter 0))
　　(lambda (option)
　　　(if option
　　　　　　　(lambda ()
　　　　　　　　(set! counter (+ counter 1)))
　　　　　　　(lambda ()
　　　　　　　　(set! counter 0))))))

(define inc (count #t))
(define reset (count #f))

これじゃちょっと格好悪いよね…
405 名前：デフォルトの名無しさん mailto:sage [05/03/12 03:12:31 ]: (define inc #f)
(define reset #f)
(let ((counter 0))
(set! inc (lambda () (set! counter (+ counter 1))))
(set! reset (lambda () (set! counter 0))))
406 名前：デフォルトの名無しさん mailto:sage [05/03/12 05:31:54 ]: (define-values (inc reset)
(let ((counter 0))
(values (lambda () (set! counter (+ counter 1)))
(lambda () (set! counter 0)))))
407 名前：デフォルトの名無しさん [05/03/17 09:14:18 ]: 本スレではLISPの普及に腐心してるようだ（主にドキュメントみたいだけど）
で、このスレ的にはLISPで何が出来ればいいのだろう？
サーバサイド、DB、XMLや、環境としてWindowsで、こんなところなのだろうか？
408 名前：デフォルトの名無しさん mailto:sage [05/03/17 13:09:54 ]: LISPと言えば人工知能に決まってるじゃないか
409 名前：デフォルトの名無しさん mailto:sage [05/03/17 14:41:00 ]: >408
ﾜﾛﾀｗ
人工知能にすら使えるほどの高級言語なら、業務システムを記述する
ことは易い。
410 名前：デフォルトの名無しさん mailto:sage [05/03/17 20:22:18 ]: >>409読んで、最高に頭悪そうな発言してくださいスレ
かと思った。
411 名前：デフォルトの名無しさん mailto:sage [05/03/17 23:55:46 ]: Lispで人工知能を作って、それに業務システムを作らせるのが真のLisperだ。
412 名前：デフォルトの名無しさん mailto:sage [05/03/17 23:59:03 ]: >>411
それだ！
413 名前：デフォルトの名無しさん mailto:sage [05/03/18 01:44:25 ]: ASDFの記述でLisp以外のコードの扱いをどう書いたらいいかとか分かるようなサンプル
誰か持ってない？ただアーカイブぶちまけてconfigure, make, make installする
だけなんだけも。ASDF慣れちゃうとmakeが面倒になってきくるけど、Lispオンリーで済む
状態でなくなったときにふとどうしたものかと悩んでしまう今日この頃。
414 名前：デフォルトの名無しさん mailto:sage [05/03/18 05:40:36 ]: ASDFの中でmakeするやつっていくつかあるよ。
でも中のmakefileがLinuxに依存したものになってる場合があって
辟易するんだよなー。Makefileの書式とかコマンドのパスとかさ。
署名前提だから適当に手元で改変して食わせるというのもちょっと手間がいるし。

というわけで例としてはUFFIがあるけど上記の点をよろしくおながいしますm(_ _)m
415 名前：413 mailto:sage [05/03/20 00:34:40 ]: >>414
サンクス。uffi-tests.asd非常に参考になりました。
ってか自分でASDFのソース読みながらこんな使い方でいいのかな思いながら書いてた
ところに上の情報もらったんで、結果的に他の人の使い方も見てダブルチェック。
自分で好きなようにカスタマイズできてASDFって実にイィ!!ですね。

署名前提ってのはasdf-installのことだよね。cCLan最近見てないけど変化あった？
416 名前：デフォルトの名無しさん mailto:sage [05/03/20 00:49:04 ]: Gauche 0.8 + FreeBSD4.9だが日本語を受け付けてくれないyo!!

gosh> "日本語"
*** ERROR: unhandled signal 2 (SIGINT)
Stack Trace:
_______________________________________
417 名前：デフォルトの名無しさん mailto:sage [05/03/20 00:53:03 ]: ところでここSchemeの話題っていいの?
418 名前：デフォルトの名無しさん mailto:sage [05/03/20 00:54:04 ]: >>416
受け付けてくれるyo!!
% gosh -V
Gauche scheme interpreter, version 0.8.3 [euc-jp]
% gosh
gosh> (string-length "はげ")
2
419 名前：デフォルトの名無しさん mailto:sage [05/03/20 17:52:38 ]: >>407
common lisp emacs

# 需要は、それなりにあるんじゃないかな。
# hemlockは、あまり、うまくいってないようだし。
420 名前：デフォルトの名無しさん [2005/03/25(金) 01:36:49 ]: xyzzyでXMLを扱えるコンポーネントって何かあります？
421 名前：デフォルトの名無しさん [2005/03/25(金) 09:22:09 ]: > lispを使用してC#やJAVAの代替にするための方法（おまけ）

どうやんだよ？
422 名前：デフォルトの名無しさん [2005/03/25(金) 09:24:05 ]: gosh> (string-length ">>418 氏ね")
8
423 名前：デフォルトの名無しさん [2005/04/09(土) 13:53:42 ]: clispで定義された
(defun func()(print "func"))->func
という適当な関数を定義してバイトコンパイルしたものを
VC++から呼び出すとか出来ます？パイプでもなんでもいいんですが、
出来ますか？
424 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 18:12:46 ]: できますよ。
425 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 18:28:35 ]: clispって住み心地いいですよね。
426 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 18:29:23 ]: 住むところを間違えてます
427 名前：デフォルトの名無しさん [2005/04/09(土) 20:48:02 ]: >>424
やり方を教えておくれ、詳しく、たのむ
428 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 21:26:49 ]: clispのマニュアルに詳しくかいてあるよ
429 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 00:43:55 ]: LispからCの関数を呼ぶ例しか書いてない・・・
430 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 02:35:07 ]: おんなじことだろ
431 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 12:30:06 ]: 同じか？
いまいちわからんな～
432 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 14:52:56 ]: 文字列で渡す方法とかあるんじゃないの？

clisp_eval_string("(eval '(hello world))");

みたいなやつ。
433 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 15:35:00 ]: system("clisp < tmp_in > tmp_out");
みたいにやればいいじゃん。pipe使えばさらにかっこいいぞ。
434 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 15:41:28 ]: ちょいと、C++からCLISP関数を呼ぶコードを見せておくれでないかい。
リファレンス参照したが、どうにも解らん。たのむよ～
435 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 17:18:43 ]: >>433
436 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 19:16:55 ]: いわれてみれば、そうだな。
ありがとう、ちょっとやってみるよ。

目標はJAVAから呼ぶこと。
437 名前：デフォルトの名無しさん mailto:sage [2005/04/10(日) 23:55:31 ]: String command = "lisp.exe";
Process process = Runtime.getRuntime().exec(command);
InputStream is = process.getInputStream();

BufferedReader br = new BufferedReader(new InputStreamReader(is));

String line;
while ((line = br.readLine()) != null) {
System.out.println(line);
}
clispを呼び出すまではできたんだけどね、出力する方法が分からん。
(当初の目的は、単純にclispの関数を呼び出すだけだったんだけどな～)
438 名前：デフォルトの名無しさん mailto:sage [2005/04/11(月) 00:05:10 ]: >>437
（ちょっとスレ違いになるが）
process.getOutputStream() して取得したストリームに書き込めば、それがlisp.exeの
標準入力になる。やはりBufferedWriterをかぶせるのが良いがflushを忘れぬようにな。
439 名前：デフォルトの名無しさん mailto:sage [2005/04/18(月) 19:31:51 ]: テストフレームワークって何使ったる？
ptester が手軽でいいなと思うんだけど。
440 名前：デフォルトの名無しさん mailto:sage [2005/04/18(月) 21:56:48 ]: 自前のもの。
441 名前：デフォルトの名無しさん mailto:sage [2005/04/18(月) 22:05:51 ]: Lispだと５分くらいで作れちゃうから、ついつい自前のを作ってしまうのでした。
442 名前：デフォルトの名無しさん mailto:sage [2005/04/18(月) 22:33:32 ]: やっぱ自前ですか。
最近出版された Practical Common Lisp の中でも数十行で作ってたからな。
でも、 Common なテストフレームワークが欲しくないですか？
443 名前：デフォルトの名無しさん mailto:sage [2005/04/19(火) 20:25:56 ]: これ以上Commonを大きくするのは嫌です
444 名前：デフォルトの名無しさん [2005/04/24(日) 20:53:29 ]: jlinkerってjavaからLispを呼ぶときってどうやるの？
いまいち使い方が分からん。
445 名前：デフォルトの名無しさん [2005/04/25(月) 06:56:03 ]: jlinkerもjilもサンプル通りにやっても動きゃしない。
疲れた。寝る。
446 名前：デフォルトの名無しさん mailto:sage [2005/04/25(月) 20:30:59 ]: Soft Bank Common Lisp 0.9.0リリースあげ。
ちょっと古いけどslime 1.2あげ。
447 名前：デフォルトの名無しさん mailto:sage [2005/04/25(月) 21:49:16 ]: >>446
こらこらこら。捏造ｲｸﾅｲ。ところで、あがってないよ。
448 名前：デフォルトの名無しさん mailto:sage [2005/04/25(月) 23:01:36 ]: >>447
sourceforge.net/project/showfiles.php?group_id=1373&package_id=1354&release_id=322932

common-lisp.net/project/slime/
449 名前：デフォルトの名無しさん mailto:sage [2005/04/25(月) 23:29:47 ]: >>448
よく見れ。
450 名前：デフォルトの名無しさん mailto:sage [2005/04/25(月) 23:34:04 ]: jlinkerってそんなにハマるようなところあったっけか。
Javaのクラス名との対応さえとれてしまえば後は楽勝だった記憶があるんだが。
451 名前：デフォルトの名無しさん mailto:sage [2005/04/25(月) 23:40:20 ]: >>449
いいじゃん。
日本ではSBCLはSoft Bank Common Lispと読むんだよ。
452 名前：デフォルトの名無しさん mailto:sage [2005/04/25(月) 23:53:00 ]: >>451
Oh! SBCL っつー月刊誌を出したら認めてやる
453 名前：デフォルトの名無しさん mailto:sage [2005/04/26(火) 07:13:44 ]: >>450
いや使い方がまったくのってないんで、さっぱりわからん。
Lispからjavaを呼びのはなんとかなってんだが、javaからLispを
呼ぶ方法が情報皆無。

こうなったらACL買ってサポートで情報吐かせるしかないなぁ～～。
454 名前：デフォルトの名無しさん mailto:sage [2005/04/26(火) 11:14:09 ]: TryJavaToLisp.java
tryjtol.cl
ってのが./examples/jlinker/basicにあるけど・・・(ACL7 Enterprise)
455 名前：デフォルトの名無しさん mailto:sage [2005/04/26(火) 14:01:53 ]: >>454
うむ。それを試そうとしてはまっている。
jlinker-initがないといわれる。
jlinker.faslの中で定義されてないのか、と思案中。

ちなみに、ACL7 Enterpriseって幾ら位するの？
10万ていどなら茄子で買う。
456 名前：デフォルトの名無しさん mailto:sage [2005/04/26(火) 22:32:17 ]: そのサンプル問題なく動いたけど。jlinker-initってLispからJava呼ぶ準備にも
使うハズだから、JavaからLisp呼ぶときだけうまく行かないって何かが変だと思う。

価格は過去スレにあった気がする。とても個人じゃ買えない。
457 名前：デフォルトの名無しさん mailto:sage [2005/04/26(火) 23:40:05 ]: なんつーかサンプルのreadmeに書いてある手順でやると、
(jlinker-init)でエラーになるんだよな～。所詮Trialということかな。

>価格は過去スレにあった気がする。とても個人じゃ買えない。
マジで？
そうか、普通に7のProfessionalでも買うかな。まぁ10万強ぐらいだろう、多分。
これってProfessionalってネイティブコンパイルできたっけ？？
458 名前：デフォルトの名無しさん mailto:sage [2005/04/27(水) 00:23:16 ]: ACL7のTrialって出てないですよね。ってことは6.2？
微妙に違うんでしょうね。6.2持ってないので確認できないですが。

Professionalでもネイティブコードにコンパイルはできます。ってTrialでもできて
ますよね？作成したアプリケーションの配布とかMySQL/Oracle Directが付いてないとか
いう点が異なってたと記憶してますが詳細はFranz Inc.に直接確認してください。
頼めばProfessionalで十分かどうか確認するために評価ライセンスも発行してもらえると思います。
459 名前：デフォルトの名無しさん mailto:sage [2005/04/27(水) 00:32:47 ]: >Professionalでもネイティブコードにコンパイルはできます。ってTrialでもできて
ますよね？

勇気を持って言おう！！
・・・知らなかった。マジで知らなかったorz
試しに適当なプロジェクトをコンパイルしたらなんかEXEが出来てた。
いや～なんつーか奥が深いねACLは。ちょっと首つってくるわ。
460 名前：デフォルトの名無しさん mailto:sage [2005/04/27(水) 22:51:13 ]: EXEってGUIでなければ作れないのかな？
VCみたいにDOS窓で動作するEXEは無理みたいだな～。
生成されたDLLからLispの関数名を抜き出して使おうかと思ったが、
dependencywalkerでも関数名もなにも出てこない。

きついのう。
461 名前：デフォルトの名無しさん mailto:sage [2005/06/02(木) 01:21:34 ]: #'hoshu
462 名前：デフォルトの名無しさん mailto:sage [2005/06/02(木) 17:05:34 ]: gclでcに変換してコンパイル汁
463 名前：デフォルトの名無しさん [2005/06/05(日) 01:03:21 ]: >>462
そんなことは出来ん
464 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 01:05:39 ]: GCL は知らんけど、ECL はスタンドアローンなバイナリ作れるから GCL でも
出来んじゃないの?
Win で出来るかは知らん
465 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 01:14:29 ]: >>464
ｽﾏﾝ、出来た
466 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 01:16:38 ]: ｵﾒﾃﾞ�
467 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 06:55:37 ]: スキームのマクロについて丁寧に説明しているドキュメントない？
できれば日本語、ないなら英語でもいいや。
468 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 10:25:27 ]: Schemeの話はスレ違い
469 名前：デフォルトの名無しさん [2005/06/05(日) 11:19:23 ]: >>468 なんだかしらないけど、病院行ったほうがいいよ。
470 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 14:06:22 ]: ここはCommonLispのスレ
CommonLisp/Schemeスレは別に存在する
471 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 14:08:28 ]: 人少ないしSchemeネタもいいんじゃね？

マクロのことは入門Schemeとかにのってないのかな？
472 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 14:26:42 ]: 元々このスレはアンチschemerが立てたという経緯がある
そういう変な人の相手をしたくなかったら本スレでやったほうが良いかも
それでもここで続けるというのなら別に止めはしない
473 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 14:46:39 ]: つーか、明らかに Common Lisp とは関係ない話題だし Scheme のスレもあるのに
このスレでやる理由は何もない。やめてほしい。
474 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 16:22:36 ]: >>471
このスレだったか、もう一個のスレだったか忘れたけど、
本スレで Common Lisp の質問をしても、Scheme で返事が
返って来る事が多いのは S/N 比が悪いってことで立てられた
経緯があるから、Scheme ネタは宜しくないだろう。
わざわざ波風立てたい理由が分からん。
475 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 20:15:45 ]: >>474
S/N比とかいってるアフォは、>>6だろ
しかしこのスレもあんまCommonLisp特有の話って続かないな
ちらほらSchemeの話にそれたりする

ところで、

【一日】CommonLisp【一門】
pc8.2ch.net/test/read.cgi/tech/1106587515/

こっちは放置か？
476 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 20:30:41 ]: 本スレは元々「Lisp Scheme」スレの筈で、
CommonLispはただのLisp属の1つという扱いだったんだが、
いつかの馬鹿がLisp->CommonLispに勝手に限定しやがった。
これはPart9か10辺りの出来事。
まあ、それでもCommonLispの話はほとんどされた覚えはないが。
相変わらずScheme寄りな本スレを見切ったのか、結局は
CommonLisp専用スレいくつか立って去っていったな。

そろそろ本スレは「Lisp Scheme」に戻そうかｗ
477 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 20:40:40 ]: >>476
わざわざ波風立てたい理由が分からん。
478 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 20:56:55 ]: >>477
Lispよりも波風が好きなんだろう
479 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 21:10:55 ]: >>476
その辺の話は本スレの次スレ立てるときにでもまたしてもらえるとありがたい。
CommonLisp専用スレがあるんだから、もうどっちでもいいと言えばいいよ。
480 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 21:12:39 ]: 早期にEmacsLispと分離したのは正解だと思う。
CommonLispも同じ道を辿れればいいね。
481 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 21:21:27 ]: やっぱ Lisper と Schemer は仲悪いんだな
大した違いは無いのに、何がこうさせるんだろう…
482 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 21:27:30 ]: JavaとC++くらいには違うかもな。ｗ
漏れは本スレも読んでいるが、ここはCommon Lispのスレなのだから
Schemeのマクロ（Common Lispのマクロとは大きく思想が異なる）の
話題はよそでやるのが当然だと思う。
これは仲悪いとかの問題ではない。
483 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 23:26:35 ]: 小さい人間
484 名前：デフォルトの名無しさん mailto:sage [2005/06/06(月) 16:02:41 ]: さて、ネタも溜まったしそろそろｺｰﾄﾞｼﾞﾝに発表していい？
485 名前：デフォルトの名無しさん mailto:sage [2005/06/06(月) 21:28:37 ]: >>484
出典：2chってちゃんと書けよｗ
486 名前：デフォルトの名無しさん mailto:sage [2005/06/07(火) 08:04:05 ]: 向こうのスレでみんなで仲良くタライを舞わしていたらC++君が乱入の模様。
487 名前：デフォルトの名無しさん mailto:sage [2005/06/07(火) 18:52:10 ]: >>467
www.scheme.com/tspl3/

が英語だけど、比較的詳しい。　あと、MzSchemeかDrSchemeの真乳有るあたりかな。。
488 名前：デフォルトの名無しさん mailto:sage [2005/06/12(日) 21:10:08 ]: こっちでいいかな。
Practical Common Lispの24章、25章あたりをざっくり読んでこうやってマクロは組み立てて
行くものなのかと感心しているところなのですが、ちょっと応用しようと思ったらすぐに方法が
わからなくてハマりましたので助けていただきたく。

やりたいことはdefine-binary-classとかのマクロでビットフィールドを持つ構造を扱いたいの
ですが・・・どの辺から発展させていったらいいんですかね？
一回のI/Oで複数個のスロットに値を配るのはできそうなんですが、その為の構文をどう設計する
べきかで悩んでます。無理にマクロにしないで泥臭く書いて行けばできるのは間違いないんですけど。
489 名前：デフォルトの名無しさん mailto:sage [2005/06/12(日) 21:30:59 ]: >>488
何に悩んでるかよくわからないけど、構文としては :bytes で指定するバイト数
の代わりに :bits でビット数を指定するみたいな具合にすればいいんじゃない？
490 名前：488 mailto:sage [2005/06/12(日) 21:54:40 ]: スロット単位でreadしたものが流れて行っちゃう(こんな表現で伝わるかな)のは
マクロ側でいまストリームの何バイト目の何ビット目まで読んだ、みたいに自前で管理すれば
いいんですかね。

身近にLisp使いがいないんで、この本に出会うまで実際のコーディング上のノウハウみたいなの
知る機会がなかなか無くて随分と損した気がします。
491 名前：デフォルトの名無しさん mailto:sage [2005/06/12(日) 21:59:26 ]: >>490
まずビット単位でI/Oできるストリームみたいなのを構築（当然この中でバッファリング
する必要があるだろう）して、その上に作るのがいいんじゃないかな。
マクロにするかどうかというのは本質ではない気がする。
492 名前：488=490 mailto:sage [2005/06/12(日) 22:11:23 ]: > マクロにするかどうかというのは本質ではない気がする。
本質ではないという意見も理解できるのですが、この章を読んでいてPaul Grahamが書いてる
ような「ミニ言語を作ってその言語を使ってプログラミングする」っていうのはこういうことかと
何となくわかったような気がしたのですよ。

逆に、いままでLispで自分流に書いて来たコードって全部「マクロ展開後」の結果をひたすら
書いて来たように感じました。それでもEmacsの中でちょいちょい変更してはテストしながら
やっていたのでC/C++/Javaよりは気楽に書いてましたけど（主観ですが）。
493 名前：デフォルトの名無しさん mailto:sage [2005/06/12(日) 22:16:13 ]: 「マクロにするかどうかというのは本質ではない」と書いたのは、あくまで
バイト単位とかビット単位とかという議論に対しては、という話ね。
ま、気楽にやりましょ。ｗ
494 名前：488=490=492 mailto:sage [2005/06/12(日) 22:32:46 ]: > ま、気楽にやりましょ。ｗ
ですね。

で、こっちなんですが >>まずビット単位でI/Oできるストリームみたいなのを構築
参考になりそうなドキュメントとかご存知ないですか？何でもかんでも自分で作っちゃうのが
Lisp屋さんの流儀みたいですが全然技量的に到達できそうもない今日この頃・・・
495 名前：デフォルトの名無しさん [2005/06/20(月) 06:57:40 ]: LispってCの#ifとかないの？
496 名前：デフォルトの名無しさん mailto:sage [2005/06/20(月) 07:16:07 ]: CL なら #+ #-
497 名前：デフォルトの名無しさん mailto:sage [2005/06/20(月) 07:19:17 ]: 勿論あるよ。

www.lisp.org/HyperSpec/Body/sec_24-1-2-1-1.html
www.lisp.org/HyperSpec/Body/sec_2-4-8-17.html
www.lisp.org/HyperSpec/Body/sec_2-4-8-18.html
498 名前：デフォルトの名無しさん mailto:sage [2005/06/20(月) 20:40:22 ]: やっぱCLはこういうとこちゃんと考えてあるなあ。
499 名前：デフォルトの名無しさん mailto:sage [2005/06/21(火) 07:10:59 ]: Planet Lisp 見たら、SBCL で EUC-JP 使える様になったみたいでﾋﾞｸｰﾘした
500 名前：デフォルトの名無しさん mailto:sage [2005/06/22(水) 02:59:25 ]: SBCL、いつになったらWindows portは出来上がるんだ……。
501 名前：デフォルトの名無しさん mailto:sage [2005/06/22(水) 03:06:21 ]: UTF-8は?
502 名前：デフォルトの名無しさん mailto:sage [2005/06/22(水) 03:10:51 ]: >>501
SBCLならかなり前からサポートされている
503 名前：デフォルトの名無しさん mailto:sage [2005/06/27(月) 12:49:24 ]: すみません、本スレを見ていて分からないんですが、
既存の関数名に別名をつけたい場合（nreverse に my-nreverse とつけるなど）、
Common Lisp ではどう書くのが良いんでしょうか？
504 名前：デフォルトの名無しさん mailto:sage [2005/06/27(月) 14:02:55 ]: (setf (symbol-function 'my-nreverse) #'nreverse)
505 名前：デフォルトの名無しさん mailto:sage [2005/06/27(月) 14:20:09 ]: いや、自分もそれでいいと思ってたんですが、本スレで「無知」と言われてたので、
何かもっと良い書き方があるのかなと。
506 名前：デフォルトの名無しさん mailto:sage [2005/06/28(火) 00:18:10 ]: (setf (fdefinition 'my-nreverse) #'nreverse)
507 名前：デフォルトの名無しさん mailto:sage [2005/06/29(水) 00:16:54 ]: 変わんないじゃん。つうか、xyzzy には fdefinition はなかった。
508 名前：デフォルトの名無しさん mailto:sage [2005/06/30(木) 10:20:04 ]: 俺は、本スレで煽ってた奴は、Common Lisp に fset があると勘違いしていた
んではないかと疑ってるのだが。
509 名前：デフォルトの名無しさん mailto:age [2005/07/02(土) 16:20:12 ]: lispって配列は参照渡しですか?
510 名前：デフォルトの名無しさん mailto:sage [2005/07/02(土) 18:20:15 ]: >>509
うん
511 名前：デフォルトの名無しさん mailto:sage [2005/07/02(土) 19:15:29 ]: >>510
どうもです
512 名前：デフォルトの名無しさん mailto:sage [2005/07/02(土) 21:51:40 ]: ……………　く　ず　れ　す　……………
513 名前：デフォルトの名無しさん mailto:sage [2005/07/03(日) 17:35:10 ]: すいません、質問なのですが
(al-reverse'(a(b c)(d(e f))))
と与えたら((((f e)d)(c b)a)となり
中身が全て反転するような関数al-reverse
を定義するにはどうすれば良いのでしょうか？
514 名前：513 mailto:sage [2005/07/03(日) 18:23:18 ]: 自己解決しますた。失礼。
515 名前：デフォルトの名無しさん mailto:sage [2005/07/12(火) 05:17:03 ]: 質問です。

普段使っている、lispアプリhogeがあって、
そのhogeをロードした後、必ず実行する関数(hoge-init)があるとします。

で、
(defun hoge-starter ()
(load "hoge")
(hoge-init))
の様な関数を、lispの起動時に読み込まれる初期化ファイル（.init.lisp)に
定義したいのですが、この定義をしてlispを起動すると、
`undefined function: hoge-init'
と、警告がでてしまいます。

この警告を消したいのですが、どのようにすれば良いでしょうか？

eval-when を使うのかと思って試したのですが、うまくいきませんでした。
516 名前：デフォルトの名無しさん mailto:sage [2005/07/12(火) 09:42:48 ]: >>515
まず使っている処理系や環境を書くように。
517 名前：デフォルトの名無しさん [2005/07/12(火) 11:17:36 ]: reverseを下記のようにプログラミングしました．
(defun my-reverse (l)
(cond ((null l) nil)
(t (append (my-reverse (cdr l)) (list (car l))))))

リスト内にもreverseをかけるべく再起処理を施したいのですが，
なかなか出来ません，お願いします．
518 名前：デフォルトの名無しさん mailto:sage [2005/07/12(火) 12:24:49 ]: (my-reverse (car l))
519 名前：デフォルトの名無しさん mailto:sage [2005/07/12(火) 13:08:00 ]: やれやれうちの大学の奴多いな。
520 名前：デフォルトの名無しさん mailto:sage [2005/07/12(火) 13:31:40 ]: >>519
おまいの大学の奴らだったのかｗ
521 名前：デフォルトの名無しさん [2005/07/12(火) 13:44:40 ]: >>519
お前もこのスレッド見ている時点でやれやれだなぁ．
522 名前：515 mailto:sage [2005/07/12(火) 14:44:44 ]: >>516
失礼しました。

linux上で、cmuclとsbclを使っています。
523 名前：デフォルトの名無しさん mailto:sage [2005/07/12(火) 15:26:05 ]: >>521
見ているだけならいいんじゃね？
宿題を代わりにやってもらうってのはダメだが
524 名前：デフォルトの名無しさん mailto:sage [2005/07/12(火) 16:29:19 ]: 2ch はおまいらの学校の校則には縛られません
525 名前：デフォルトの名無しさん mailto:sage [2005/07/12(火) 16:44:22 ]: 宿題はさっさと教えてやった方が本人のタメにならなくていいな
526 名前：デフォルトの名無しさん mailto:sage [2005/07/14(木) 11:59:58 ]: なるほど！Common Lisp と Scheme のスレを分離したいという意見が多い理由
がわからなかったのだけど、やっと分かった。宿題を丸写しするためだったの
か！Common Lisp と Scheme の違いが分からないのなら、そりゃ混ざってちゃ
困るよなあ。了解しました。

◆「Lispに関する次の問いに答えよ」m(__)m
mentai.2ch.net/infosys/kako/977/977477880.html

↑のスレの1はさらに上を行く勇者で、Lisp と Ruby の違いも分からない。

まあ、別に悪いことだとは思わないけれど。私も興味のない科目はそんな風だっ
たし。
527 名前：デフォルトの名無しさん mailto:sage [2005/07/14(木) 13:54:12 ]: >>525
わらた。
528 名前：デフォルトの名無しさん mailto:sage [2005/07/21(木) 05:48:46 ]: ハッカーと画家　読んだことある香具師いる？
529 名前：デフォルトの名無しさん mailto:sage [2005/07/21(木) 09:08:55 ]: >>528
ﾉｼ
530 名前：デフォルトの名無しさん mailto:sage [2005/07/21(木) 23:47:57 ]: >>528
ﾉｼ
531 名前：デフォルトの名無しさん [2005/07/23(土) 03:57:57 ]: 誰かCL-HTTPでhelloworld書いてくれ
俺のACLではloadできない
532 名前：デフォルトの名無しさん mailto:sage [2005/07/24(日) 21:42:19 ]: 関数内で任意のz(関数内で使われていない変数)を定義して、それを値として使いたいのですが、どのようにしたらよいでしょうか?
533 名前：デフォルトの名無しさん [2005/07/24(日) 21:42:53 ]: 期待age
534 名前：デフォルトの名無しさん mailto:sage [2005/07/24(日) 22:35:57 ]: >>532
よく質問の意味がわからんが、関数内で任意のz(関数内で使われていない変数)を
定義して、それを値として使えは良いのではないのか？ｗ
535 名前：デフォルトの名無しさん [2005/07/25(月) 16:35:07 ]: >>534
説明が下手でサマソ。
なんというか、例えば全部のアルファベットを受け取ったときにも
まだ未使用のアルファベットとして定義して、そいつを値にしたいんだ
そんなことって可能なのか?
536 名前：デフォルトの名無しさん mailto:sage [2005/07/25(月) 18:33:08 ]: とことん説明の下手な香具師だな。
537 名前：デフォルトの名無しさん mailto:sage [2005/07/25(月) 18:42:19 ]: gensymでいいんじゃない？
538 名前：デフォルトの名無しさん [2005/07/25(月) 23:54:43 ]: 二つのリストから最大値と最小値を１個づつ取り出し、この二数を割る
プログラムはどうつくればいいですか？
539 名前：デフォルトの名無しさん mailto:sage [2005/07/26(火) 00:03:56 ]: 最大値を求めるプログラムと
最小値を求めるプログラムを書く。

二回走査するのがいやだったら
走査は一回にして最大値と最小値をリストにしてapply
540 名前：デフォルトの名無しさん mailto:sage [2005/07/26(火) 02:35:34 ]: おー久しぶりにのぞきにきたが，Lisp 関連スレが増えてる．

>>538 いいか，若いの．問題の定義がよくわからんが，考え方をおしえてやろう．
お前さんは
(欲しい関数リスト1 リスト2) => (/ リスト1の最大値リスト2 の最小値)
としたいわけだ？ならそう書けばよい．
(defun 欲しい関数 (リスト1 リスト2)
(/ リスト1の最大値リスト2の最小値))
一度に考えるな．すぐにわからんものは関数にしてしまえ．
(defun 欲しい関数 (リスト1 リスト2)
(flet ((リスト1の最大値 ()
...)
(リスト2の最小値 ()
...))
(/ (リスト1の最大値) (リスト2の最小値))))
さて，こうすると，除算の問題はもう解けた．あとは
リスト1の最大値，リスト2の最小値という小さな問題を解くだけだ．
さて，日本語だと通らない処理系もあるから，↓のようにしよう．
(defun answer (list1 list2)
(flet ((max-of-list1 ()
...) ;; list1 の最大値を求める
(min-of-list2 ()
...)) ;; list2 の最大値を求める
(/ (max-of-list1) (min-of-list2))))
なに？授業を聞いてないしやる気もないから最大値も最小値も求められない？
そうだね， (apply #'max list1) や (apply #'min list2) でいいんじゃないか？
541 名前：デフォルトの名無しさん mailto:sage [2005/07/26(火) 03:14:00 ]: テキストには#ついてねーよ
progは習ったがfletはやってねー
ま、8クイーン頑張れよw
542 名前：デフォルトの名無しさん mailto:sage [2005/07/26(火) 05:47:40 ]: >>535
何か具体的にやりたいことがあるんでしょうから、
具体例を出しちゃった方が話が早いと思いますよ。

>>541
prog って使ったことないや。
tagbody つきの let みたいなんでしたっけ。
543 名前：535 [2005/07/26(火) 18:02:54 ]: >>542
その通りです。
では、具体的な話。

λ計算中に現れる[lexp1/x]lexp2を表現する関数
(defun substitution (x lexp1 lexp2))の中で

x≠yかつφ(E)∋x、φ(Q)∋yをどちらも満たすなら
任意のλ式E、任意のz(ただしzはx≠z≠yかつ
(E)Qの自由変数でも束縛変数でもない)に対して
[Q/x]Ly.E → Lz.[Q/x]{z/y}E

って書き換えたいんです。
ここで、Lx.Ly.(y)xは(L x L y (y) x)と表現します。
544 名前：535 [2005/07/26(火) 18:04:30 ]: あ、ここでっていうのは単なる表現の例です。あしからず。
545 名前：デフォルトの名無しさん mailto:sage [2005/07/26(火) 18:10:14 ]: >>543
相変わらず説明は下手だなぁ。gensymじゃ駄目なのか？
546 名前：535 [2005/07/26(火) 18:27:20 ]: >>545
鬼才現る！

すいませんでした。
>>537でも書き込んでいただいていたみたいなのにスルーしてましたorz
そんな関数が存在していたとは・・・知りませんでした。
ありがとうございました！
547 名前：538 [2005/07/26(火) 20:39:51 ]: >>540 539
説明ありがとうございますm(_ _)m
やってみます。
548 名前：デフォルトの名無しさん [2005/08/07(日) 00:16:00 ]: このスレって、やっぱCommonLisp専用スレ？
EmacsLispやSchemeの初心者レスはすれ違いでしょうか？
549 名前：デフォルトの名無しさん mailto:sage [2005/08/07(日) 00:20:37 ]: >>548
うん。スレ違い。
このあたりかな。
pc8.2ch.net/test/read.cgi/tech/1115901841/
550 名前：デフォルトの名無しさん [2005/08/08(月) 01:12:30 ]: 質問です。

(defun func (x)
(setq x 2))

(setq a 1)

(func a)

などとして、グローバルな変数をfuncの引数にして呼び出した時に
そのグローバル変数自体が書き換えられるような、
C言語で例えるならポインタ引数のような使い方をするには
どうすればいいのでしょうか？
551 名前：デフォルトの名無しさん mailto:sage [2005/08/08(月) 01:20:58 ]: トップレベルで変数を定義して、関数内でsetqなりsetfなりを呼び出せばOK
552 名前：デフォルトの名無しさん mailto:sage [2005/08/08(月) 01:28:25 ]: (set x 2) とか (setf (symbol-value x) 2) とか。お好きな方で。
関数に渡すのはシンボルね。
553 名前：デフォルトの名無しさん mailto:sage [2005/08/08(月) 01:52:21 ]: call by name にしたいならマクロ
(defmacro macro (x)
`(setq ,x 2))
(setq a 1)
(macro a)
a
=> 2
554 名前：550 [2005/08/08(月) 04:02:54 ]: ということは、550で書いたコードをそのまま実行すると
(func a) の後はaの値は2になっているはずですよね？
でもトップレベルでsetqした値、つまり1になっています…
ここでどうにかaを2にしたいんですが…
質問の仕方が悪いのかもしれません、すみません
555 名前：550 mailto:sage [2005/08/08(月) 04:04:46 ]: あああすみませんわかりました！！
seqじゃなくてsetを使うとできました。お騒がせしました…
とても助かりました。命の恩人です。
556 名前：デフォルトの名無しさん mailto:sage [2005/08/08(月) 04:39:29 ]: 嬉しさは伝わるが、すごい表現。出来なかったら首でも吊ってたんだろうかw
557 名前：デフォルトの名無しさん mailto:sage [2005/08/08(月) 11:44:30 ]: >>556
わろす
558 名前：デフォルトの名無しさん [2005/08/19(金) 04:41:05 ]: すいません、LISPで画像処理をしたいのですが、
JPEGを扱うにはどうしたらいいのでしょうか。
いいライブラリがあったら紹介ください。
559 名前：　 [2005/08/19(金) 09:05:28 ]: gcl で substring が呼べないのはなぜでしょうか
560 名前：559 [2005/08/19(金) 09:20:57 ]: ごめ。
(subseq "hoge" 0 2)
"ho"
で出来た。色々変わったのかね
561 名前：デフォルトの名無しさん [2005/08/25(木) 04:45:03 ]: 選別収集ってどんなだったっけ
(mapcan #'(lambda (x)
(cond
ここまでおもいだした
562 名前：デフォルトの名無しさん mailto:sage [2005/08/25(木) 06:02:14 ]: 選別収集ってなんだったっけ。
srfi-1 でいう filter-map？
563 名前：デフォルトの名無しさん mailto:sage [2005/08/26(金) 01:30:58 ]: (mapcan #'(lambda (x)
(cond ((predicate x) (list x))
(t nil))
list)

predicateがoddpでlistが'(0 1 2 3 4 5) なら '(1 3 5)が返る
564 名前：デフォルトの名無しさん mailto:sage [2005/08/26(金) 02:09:00 ]: (remove-if-not #'oddp '(0 1 2 3 4 5))
=> (1 3 5)
565 名前：デフォルトの名無しさん mailto:sage [2005/08/26(金) 02:26:56 ]: remove-if-not や delete-if-not やらは deprecated らしいよ。
www.google.co.jp/search?q=remove-if-not+deprecated

(remove-if (complement #'oddp) '(0 1 2 3 4 5))

と書くそうだ。
566 名前：デフォルトの名無しさん mailto:sage [2005/08/27(土) 03:33:37 ]: deprecatedって推奨されてないってこと？

remove-ifはなんだか収集という感じがしない
mapcanにできてremove-ifにできなさそうなものを考えてみる
567 名前：デフォルトの名無しさん mailto:sage [2005/08/29(月) 12:07:23 ]: 別にやってることの本質は同じじゃない？
選別収集を言い換えればつまりはいらないものを捨てるってことだろうし。
remove-ifでもlambdaつかえば結局同じことだと思うけれど。
568 名前：デフォルトの名無しさん mailto:sage [2005/08/30(火) 02:11:36 ]: mapcan でなら複数のリストを取って選別収集するようなことができるかな。
(mapcan #'(lambda (&rest x) (if (every pred x) x nil)) list) みたいに。
つか、実装の詳細は措いて、mapcan で書き下したもの（の限定版）に
名前をつけたもんがremove-if(-not) なんじゃないかいな。
569 名前：名無しさん＠そうだ選挙に行こう mailto:sage [2005/09/11(日) 21:38:55 ]: lispでCGI組みたいんですけど、
Apacheから直接PHPとかPerlみたいにはできないんでしょうか？
mod_lispとかlispachとかgocheとかはネットで調べたんですが、
なんとなくすっきりしません。
やっぱ自分で作るしかないのかな？
570 名前：名無しさん＠そうだ選挙に行こう mailto:sage [2005/09/11(日) 23:01:59 ]: >>569
> なんとなくすっきりしません。

詳しく
571 名前：デフォルトの名無しさん mailto:sage [2005/09/12(月) 12:46:48 ]: Portable AllegroServeは?
表にApache建てたいならmod_proxyで。
572 名前：デフォルトの名無しさん mailto:sage [2005/09/12(月) 23:20:06 ]: >>570 えーと、つまりPerlやPHPのようにApacheのModuleとして組み込んで
直接ApacheのAPIを操作できるようにならないかということです。

>>571さん、なんとなくすっきりしないといったのは、
こういったApacheから何かを介してLispへアクセスするというのが、
私にとっては違和感がありまして…。

最近になってプログラミングをやりだしたものですので、
変なこと言ってるかもですが、
Apacheを使ってsoapとかのWebserviceのxmlを読み込み、
Routerのようにできないかなと思ってまして。
もちろん他の言語でもできるのですが。。。

こんなLisp初心者にご解答ありがとうございます。
573 名前：デフォルトの名無しさん [2005/09/26(月) 03:17:10 ]: Cで書くLISP処理系の本で今手に入るものはあるんでしょうか
大学近くの古本屋を回ってもあんまり理工書がないんですが
574 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 12:07:11 ]: LISPでGoogle検索すればゴロゴロ転がってる気が
昔のアスキーのCプログラムブックIIIは独自LISP処理系扱ってるけど
今風の実装じゃないし
個人的には末尾再帰できない独自LISPはあんま魅力ないな
自分で作るならSchemeの方がいい
575 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 12:11:52 ]: >>574
末尾再帰の実装なんて普通のLispでもさほど難しくはない。Schemeは
full continuationの実装など悩む割に報われない部分で苦労する。
まぁ作ってみるだけなら面白いけど、実用的な処理系は結構大変。
576 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 12:14:50 ]: 難しいかどかじゃなくて末尾再帰も標準的でない独自LISPには魅力感じないつってんの
577 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 12:17:57 ]: >>576
おまえスレタイ読めるのか？
スキームの宣伝は他でやれよ。
578 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 12:20:35 ]: ちなみにちゃんとしたSchemeでも継続はあんま使わないよ
別に無くてもなんとかなるレベルでしょ
ただし末尾再帰は無いとコーティングスタイルにまで影響する
最適化の余地があるCommonLispならともかく、
独自LISPにはもう期待できる事が何も無い
579 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 12:23:36 ]: >>577
スキームの宣伝て何？
おまえこそちゃんとレス読めよダボが
580 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 12:28:57 ]: >>578
はぁ？
> 最適化の余地があるCommonLispならともかく、
> 独自LISPにはもう期待できる事が何も無い

何か言ってる意味わかんねよ。
Common Lisp系の独自LISPとかイメージできないの？
581 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 14:26:44 ]: ＞Common Lisp系の独自LISP
ｲﾐﾌﾒ
582 名前：デフォルトの名無しさん mailto:sage [2005/09/26(月) 21:57:00 ]: 見事に話が噛み合ってないな（w
ちなみに漏れは580の言ってることは理解できる派ね。まぁただでさえマイナーな言語に
関わってる者同士マターリと行こうや。
583 名前：デフォルトの名無しさん mailto:sage [2005/09/27(火) 01:25:11 ]: 末尾再帰の最適化をするのは Scheme だけじゃないしね。
俺も継続は無くても良いけど、末尾再帰の最適化は欲しいなぁ。
584 名前：デフォルトの名無しさん mailto:sage [2005/09/27(火) 01:36:27 ]: >>583
以前話題になった気がするけど、Common Lispにおける末尾再帰の最適化は、
・インタプリタはほとんどの処理系がやらない
・コンパイラはほとんどの処理系がやる
という結果だったと思う。Common Lisp的思想からすれば順当なところだろうね。
585 名前：デフォルトの名無しさん mailto:sage [2005/09/27(火) 02:42:55 ]: Scheme 勉強したてで毒されてるな．
末尾再帰の最適化はメリットばかりじゃねーんだぜ？
インタプリタ上では *常に* 最適化されちゃったらデバッグしにくいだろ？
Common Lisp 的思想なら，コンパイル時の最適化オプションで
制御できるほうが嬉しい．

末尾再帰の最適化を示すオプションが欲しいって話もあるけどな．事実上，
speed 3 とか debug 0 にしとけばほとんどのコンパイラがやってくれっからねぇ．
586 名前：デフォルトの名無しさん mailto:sage [2005/09/27(火) 11:44:41 ]: >>585
> インタプリタ上では *常に* 最適化されちゃったらデバッグしにくいだろ？

これはスタックトレースが取れないとかそういう意味？
587 名前：デフォルトの名無しさん mailto:sage [2005/09/28(水) 02:18:03 ]: 常に最適化されちゃって選択できねーとかははやすぎる最適化の部類に感じる時がある．
CL 派としては c.l.l で出てた宣言的アプローチで解決してほしいなー．

「可能な限り最適化する」「自己呼び出しとローカル関数のみ最適化」「自己呼び出しのみ」「最適化なし」

とかが宣言できるみたいな．まぁ，現状はコンパイラのマニュアルを見る必要
があるわけだけど，それで不都合あるのかっつーはなし．Common Lisp におけ
る末尾再帰の最適化はだってほぼ標準だしね．
588 名前：デフォルトの名無しさん mailto:sage [2005/09/28(水) 02:22:10 ]: >>587
結局Common Lispの仕様の問題になるわけだよな。20年間にわたって仕様が安定
している(ANSIでわずかに変更されたところもあるが)のは利点でもあるわけだが、
そろそろ次期規格の話が出てきても良いように思う。
589 名前：デフォルトの名無しさん mailto:sage [2005/09/28(水) 09:10:11 ]: 元々の話が>>573なわけで・・
590 名前：デフォルトの名無しさん [2005/09/28(水) 14:17:11 ]: Schemeばかり書いてると、関数呼び出しが関数呼び出しに
見えなくなるというか、全部継続へのジャンプに見えて来るんだよな。
それに関数とブロック(let)が頭の中でブレンドされて区別されなくなる。
そうすると自己末尾呼び出しだけ特別扱いしたりするのがとても不自然に
感じる。

まあ、Common Lispの空気に合わないってのはわかる。CLで書くときは
スタイルが変わるからな。
591 名前：デフォルトの名無しさん mailto:sage [2005/09/29(木) 01:15:48 ]: このスレこんなに人がいたのか（^_^ゝ）
592 名前：デフォルトの名無しさん mailto:sage [2005/09/29(木) 03:42:33 ]: >>588
仕様の問題ねぇ．改善の余地（個人的希望は >>587 な）があるとは思うが，
Scheme が The Right Thing だとは思わない．なぜなら，俺には区別したい
時があるからだ．最適化する，しないは選択したい．まぁ，その選択肢が
存在するのが不自然だと言われりゃしょうがねーけどなぁ．

ま，CL にも末尾再帰の最適化は実装依存だが，「ある」という事を言って
おきたかったわけ．
593 名前：デフォルトの名無しさん mailto:sage [2005/09/30(金) 19:03:53 ]: lispファイル用の良いアイコン知りませんか？
594 名前：デフォルトの名無しさん mailto:sage [2005/09/30(金) 23:27:09 ]: >>593
自作すれば。
↓雛型
(())
595 名前：デフォルトの名無しさん mailto:sage [2005/09/30(金) 23:31:51 ]: Planet Lisp のサイトアイコンは () だね
596 名前：デフォルトの名無しさん mailto:sage [2005/09/30(金) 23:36:49 ]: >>593
λ
597 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 00:34:23 ]: (car cdr)
なんてどうだ
598 名前：デフォルトの名無しさん [2005/10/01(土) 01:19:05 ]: >>592
CommonLispで以下の相互再帰がループになる保障があるってわけじゃないでしょ？
こういうとこで根本的にコーティンングスタイルに関わってくるわけ。

(defun f(a) (g a))
(defun g(a) (h a))
(defun h(a) (f a))

(f f)

Schemeでトレースしたけりゃ末尾再帰の最後に適当な置石すりゃいいだけだし。
既存の処理系にも普通にバックトレースぐらい存在してるでしょ。
599 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 01:28:56 ]: >>598
言いたいことはわかるけど、だからCommon Lispは駄目、Schemeが良い
という話をしたいのであればスレ違い。そもそもここはCommon Lispのスレ
なので、もうちょっと建設的に考えてほしい。

例えばCommon Lispで末尾再帰を強制するようなdeclareを提案するとか。

あと、念のために言っておくと相互再帰をループ化する最適化はさほど
難しくはないので多くの処理系がやっているはず。
600 名前：デフォルトの名無しさん [2005/10/01(土) 01:51:26 ]: >>599
あのな、CommonLispをどうこうしようってんじゃなくて、>>573の回答として
独自LISP勉強して作るぐらいならScheme作っとけって話。
CommonLispがどこまで最適化できるとか云々は別に興味ない。
601 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 01:55:45 ]: >>598
そりゃ環境を問わずあらゆるCL処理系で動く必要のあるコードとかいうなら
仕方がないけど。元々の方向性が違うんだから仕様の問題というよりは
そういうスタイルでCLを選択する方が間違ってるんでは。

ちゃんと末尾再帰を最適化する処理系を使えばいい話でしょ?
相互再帰だろうが末尾再帰だろうが基本的に違いはないよ。
cmuclでも、declareも何もせずにreplからそのままdefunして直ぐにdisassemble
しても、ちゃんとジャンプになってるよ。
602 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 02:10:36 ]: >>600
別に>>573氏はおまえが使う処理系を作ろうというんじゃないと思うぞ。ｗ
おまえの好むScheme的スタイルをCommon LispスレでLISPの処理系でも
作ってみようかという奴にしつこく言う必要はあるまい。
603 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 11:21:07 ]: >>598
すると，あなたは R5RS にないものは使わないのですか？
事実上標準だと主張しているのだが．メインストリームの商用
コンパイラで末尾再帰の最適化機能を持たないコンパイラがある
のかと．Scheme ではコンパイルについての規格がないから，
安心してコンパイルできない!! というくらいの心配症の人なら
まぁ，止めないけどね．

> Schemeでトレースしたけりゃ末尾再帰の最後に適当な置石すりゃいいだけだし。
残念な結末ですね．大規模なプログラムでそれが簡単な事だお思いますか？
末尾再帰の最適化を OFF にしたら Scheme じゃないんでしょ？
Scheme の処理系依存機能はよくて，CL の処理系依存機能はだめなんですか．

そんな事言うなら，CLOS 相当の機能がなく，したがって安全にオブジェクトの
定義を更新できないほうが嫌だ．

再帰というトンカチを手にすると他の全てが再帰に見えてくる．ループは
再帰の特殊系だけど，本来並列動作とかもあるから
(map fn lst)
を見て，再帰的な実装がまず第一に頭に浮ぶならもう一度良く考えたほう
がいい．
604 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 11:36:24 ]: つうか，>>600 からしておかしい。

俺なんか既存の概念をくつがえすようなトンデモない
処理系を期待しちまうけどな。がんばって勉強しろーよ。
最初はショボくても独自 Lisp 上等。Lisp の進化の歴史を
学ぶもの一興。

まず自分で作ってみれば？ショボショボインタプリタとかでいいから。
つうか 573 を応援してやりたいが，情報がないな。
Lisp/Scheme の腕前と C の腕前はどーなんだろう。
605 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 12:02:37 ]: 馬鹿だなおめーらは
606 名前：教えて厨 [2005/10/01(土) 16:54:07 ]: 質問。
(-1 3 2 5 3 -3 -4)
というようなリストがあるとしますよね。
これを
((-1 -3 -4) (3 2 5 3))というように負数と正数で別々のリストに分類したい。
これ、負数だけとりだす関数と正数だけ取り出す関数を作って、
それをlistすれば簡単にできるけど、
再帰関数ひとつだけで作る方法もあるんだよね？？
それってどうやるの？
letやlet*なんかでnilとかに初期化した変数って、再帰で呼び出すと
再帰呼び出し先でもまたnilとかになるの？
再帰呼び出し先で再帰呼び出し元での変数の値が引き継がれるような方法
があればうまくやれそうなんだけどなあ。
みなさんなら、どうやって再帰関数一つだけで、上のような処理を実装できますか
607 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 17:31:36 ]: LOOPマクロ
(defun plus-minus (list)
(loop for x in list
if (>= x 0) collect x into plus
else collect x into minus
finally (return (list minus plus))))

再帰
(defun plus-minus (list)
(labels ((iter (l plus minus)
(if (null l)
(list (nreverse minus) (nreverse plus))
(let ((x (car l)))
(if (>= x 0)
(iter (cdr l) (cons x plus) minus)
(iter (cdr l) plus (cons x minus)))))))
(iter list '() '())))
608 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 19:49:26 ]: 質問させてください。
(setq a t)
とした変数aの真偽を連想リストに入れてやりたいのですがうまくいきません。
(setq b '((res . a) (res2 . ....)))
みたいにすると(cdr (assoc 'res b))はtではなくaを返すし
(setq b '((res . (eval a)) (res2 . ....)))などとしても同様です。
環境はxyzzyです。どうかお願いします。
609 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 20:16:30 ]: (cdr (assoc 'res `((res . ,a))))
610 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 20:29:24 ]: そんな説明なしで得意げに書かれてもな・・
611 名前：& ◆6g4XpN.URU [2005/10/01(土) 20:35:27 ]: >607

どうもありがとう。
ちなみにiterって初めてみるんだけど、どういう関数なの？
612 名前：608 mailto:sage [2005/10/01(土) 20:53:15 ]: >>609
ありがとうございます。backquoteを使ってなんとかするということですね。
確かにまだよくわからないですが勉強します。
613 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 20:57:32 ]: >>611
labelsの行をじっと見つめてみろ。
614 名前：デフォルトの名無しさん mailto:sage [2005/10/01(土) 23:13:06 ]: >>612
quoteしたら評価されないって言うことです。
quoteしないようにこんな感じで書けばOK

(setq a t)
(cdr (assoc 'res (list (cons 'res a))))

いちいちこう書くのは面倒だからbackquote構文が用意されてる
って感じかな。
615 名前：デフォルトの名無しさん [2005/10/01(土) 23:15:33 ]: 言っとくけど、backquoteもマクロなんだぜ？
マクロって偉大だよなあ・・・
616 名前：デフォルトの名無しさん mailto:sage [2005/10/02(日) 04:39:29 ]: >>606
宿題だとすると labels の内部関数はつかっちゃだめかも？ということで
親切にも別解だっ．

;; 再帰関数一つ
(defun plus-minus (lst &optional plus minus &aux (x (car lst)) (xs (cdr lst)))
(cond ((null x)
(values plus minus))
((>= x 0)
(plus-minus xs (cons x plus) minus))
(t
(plus-minus xs plus (cons x minus)))))

;; メソッド一つ
(defmethod plus-minus-2 ((lst null) &optional plus minus)
(values plus minus))
(defmethod plus-minus-2 ((lst cons) &optional plus minus)
(if (>= (car lst) 0)
(plus-minus-2 (cdr lst) (cons (car lst) plus) minus)
(plus-minus-2 (cdr lst) plus (cons (car lst) minus))))
617 名前：デフォルトの名無しさん mailto:sage [2005/10/02(日) 09:38:28 ]: (defun partition (test lis)
(labels ((recur (lis in out)
(cond ((null lis) (values (nreverse in) (nreverse out)))
((funcall test (car lis))
(recur (cdr lis) (cons (car lis) in) out))
(t
(recur (cdr lis) in (cons (car lis) out))))))
(recur lis '() '())))

CL-USER> (partition #'(lambda (x) (>= x 0)) (list 1 -3 0 -2 9 -8))
(1 0 9)
(-3 -2 -8)
618 名前：デフォルトの名無しさん mailto:sage [2005/10/02(日) 10:59:40 ]: (defun partition (test list)
(let ((in (cons nil nil)) (out (cons nil nil)))
(let ((i-tail in) (o-tail out))
(dolist (x list (values (cdr in) (cdr out)))
(if (funcall test x)
(setf i-tail (setf (cdr i-tail) (cons x nil)))
(setf o-tail (setf (cdr o-tail) (cons x nil))))))))
619 名前：デフォルトの名無しさん mailto:sage [2005/10/02(日) 11:40:15 ]: (defun partition (pred lis)
(do ((lis lis (cdr lis))
(in '())
(out '()))
((null lis) (values (nreverse in) (nreverse out)))
(if (funcall pred (car lis))
(push (car lis) in)
(push (car lis) out))))
620 名前：おしえて厨 [2005/10/02(日) 23:47:39 ]: clispをwinで使ってるんだけど、lispでウィンドウやダイアログボックスを
だすようなＧＵＩ作ることってできないの？できるとしたら
そういう情報はどこにある？
621 名前：デフォルトの名無しさん mailto:sage [2005/10/03(月) 00:01:59 ]: >>620
例えば www.wxcl-project.org/
622 名前：デフォルトの名無しさん mailto:sage [2005/10/03(月) 01:27:27 ]: できるよ．(621 は試したことないの別のネタで)
自分で Windows の API を呼べばいい．

A) FFI で必要な API をラップする (hocwp.free.fr/ah2cl/ とか)
B) Lisp 向けの API を実装したライブラリを作る

ただし，どっちもある程度 C の知識がないと難しいかもね．

Corman Lisp とか AllegroCL や LispWorks といった処理系を使う手もある．
AllegroCL や LispWorks はどっちも GUI ライブラリを持ってるよ．
623 名前：デフォルトの名無しさん mailto:sage [2005/10/03(月) 16:43:37 ]: CommonLispにはpartitionがなかったのか…
624 名前：デフォルトの名無しさん mailto:sage [2005/10/03(月) 17:56:31 ]: R5RS には remove-if すらないけどね
625 名前：デフォルトの名無しさん [2005/10/05(水) 15:05:45 ]: 質問です。
(my-reverse '(1 (2 3) (4 (5 6))))
を与えたら(((6 5) 4) (3 2) 1)　と、
中身が全て反転するような関数my-reverseを定義するやり方を教えてください。
お願いします。
626 名前：デフォルトの名無しさん mailto:sage [2005/10/05(水) 15:14:34 ]: >>625
>>513-525
627 名前：デフォルトの名無しさん [2005/10/05(水) 17:33:39 ]: >>626
すいません。>>513-525を読んでもわかりませんでした。。
628 名前：デフォルトの名無しさん mailto:sage [2005/10/05(水) 18:07:07 ]: (defun my-reverse (list)
(let ((result '()))
(dolist (x list result)
(if (consp x)
(push (my-reverse x) result)
(push x result)))))
629 名前：デフォルトの名無しさん mailto:sage [2005/10/05(水) 19:14:32 ]: >>628
ありがとうございます！！
630 名前：デフォルトの名無しさん mailto:sage [2005/10/05(水) 19:43:33 ]: >>525
631 名前：デフォルトの名無しさん mailto:sage [2005/10/05(水) 20:30:40 ]: 相変わらずレベル低いよな
おまえら普段何してんの？
632 名前：デフォルトの名無しさん mailto:sage [2005/10/05(水) 20:35:49 ]: みんな処理系は何使ってんの?
633 名前：デフォルトの名無しさん mailto:sage [2005/10/05(水) 23:10:51 ]: Gaucheでネットワークプログラミング
634 名前：デフォルトの名無しさん mailto:sage [2005/10/06(木) 01:30:05 ]: CLISP - 日常的な小物スクリプト書き
SBCL - CLISP では力不足な計算用とかスレッド使いたいときとか
CMUCL - 最近使ってない…互換性検証用か
635 名前：631 mailto:sage [2005/10/06(木) 01:34:37 ]: おまえらレベル低すぎ
俺の使っている処理系を教えてやるから勉強汁
Ruby 1.8.3
ユーザビリティの低いもの使ってんなよ
636 名前：デフォルトの名無しさん mailto:sage [2005/10/06(木) 01:51:04 ]: >>634
SBCLってCMUCLよりデバッグやりにくくない?
637 名前：デフォルトの名無しさん mailto:sage [2005/10/06(木) 02:14:31 ]: スレッドまわり以外は特にそんな事おもわないけど？
どのへんがやりにくいとおもう？
638 名前：デフォルトの名無しさん mailto:sage [2005/10/07(金) 10:11:25 ]: Windowsのアプリに組み込めるLisp、Schemeでいいの無いですかね？
639 名前：デフォルトの名無しさん mailto:sage [2005/10/07(金) 14:34:43 ]: ないから俺は自作したが。
640 名前：初心者 [2005/10/09(日) 00:25:24 ]: (defun plus-minus (lst &optional plus minus &aux (x (first lst)) (xs (rest lst)))
(cond ((null x)
(values plus minus))
((>= x 0)
(print xs)
(plus-minus xs (cons x plus) minus))
(t
(plus-minus xs plus (cons x minus)))))

このコードのxやxsって再帰のたびに更新されていくけど、a

(defun test (lis &aux (a (first lis)) (b (rest lis)))
(if (not (null (first lis)))
(print b)(test b)))

これのaやbは再帰しても更新されないよね･･･違いはなんなの？
再帰後にもずっと同じ値がはいったままだったり、再帰後には再帰後の
更新された値が入ったりするその違いって？
641 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 01:25:18 ]: (lambda (x y &aux (a form1) (b form2)) ...) は
(lambda (x y) (let* ((a form1) (b form2)) ...)) と同じ。
後半で更新されてないように見えるとしたら、それはちゃんと再帰
してないから。
642 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 08:45:59 ]: >>640
↓こんな動きになってるのは理解できてるの？
CL-USER> (PLUS-MINUS '(1 -3 2))
0: (PLUS-MINUS (1 -3 2))
x: 1 xs: (-3 2)
1: (PLUS-MINUS (-3 2) (1) NIL)
x: -3 xs: (2)
2: (PLUS-MINUS (2) (1) (-3))
x: 2 xs: ()
3: (PLUS-MINUS NIL (2 1) (-3))
x: () xs: ()
3: PLUS-MINUS returned (2 1) (-3)
2: PLUS-MINUS returned (2 1) (-3)
1: PLUS-MINUS returned (2 1) (-3)
0: PLUS-MINUS returned (2 1) (-3)

CL-USER> (TEST '(NIL NIL 2))
0: (TEST (NIL NIL 2))
a: NIL b: (NIL 2)
1: (TEST (NIL 2))
a: NIL b: (2)
2: (TEST (2))
a: 2 b: ()
NIL
2: TEST returned NIL
1: TEST returned NIL
0: TEST returned NIL
643 名前：& ◆RdmUjfVKqQ [2005/10/09(日) 10:34:53 ]: >641, 642

そういう動きになっててほしいけど、
printから出てくる値をみてる感じだと、
２番目のコードだと再帰前のリストのrestとったものがでてるようにみえるんだよ～
644 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 10:54:00 ]: 間違いなくコードが変だからどういう動作を意図してるのか言ってみ。
645 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 12:53:13 ]: 642 は SBCL でのトレース結果だよ．CLISP でも同じだた．
意図したように動いているみたいなんで，
640 が動作させた本当のコードと入力値を述べたまえ．
646 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 14:08:21 ]: >>640が何を訊きたいのか判らんが、こう書きたかったんじゃないのか？

(defun test (lis &aux (a (first lis)) (b (rest lis)))
(if (not (null (first lis)))
(progn (print b)(test b))))
647 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 14:40:00 ]: >>646 それでも条件が逆になるけど再帰時にちゃんと lis はあたらしくなるぞ？
思うに，if の条件が意図したやつと逆になっているので期待どうりしていなかっ
たとかそんな事じゃないかな．どーゆう条件でどう動いてほしかったのかを日本語
で説明してもらうのがはやいと思う．
648 名前：おすえて [2005/10/09(日) 20:21:16 ]: (defun test (lis &aux (a (first lis)) (b (rest lis)))
(if (not (null (first lis)))
(print b)(test b)))

これが、(test '(1 2 3 4 5))とやったときに
例えば
(2 3 4 5)
(3 4 5)
(4 5)
(5)
みたいにならないのは、なぜ？
649 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 20:29:11 ]: >>648
なぜそうなると思った？
650 名前：& ◆eDpN.64OYw [2005/10/09(日) 20:48:49 ]: (defun plus-minus (lst &optional plus minus &aux (x (first lst)) (xs (rest lst)))
(cond ((null x)
(values plus minus))
((>= x 0)
(print xs)
(plus-minus xs (cons x plus) minus))
(t
(plus-minus xs plus (cons x minus)))))

↑これだと再帰のたびにxsが変わっていくから、４６８でもそうだろうと
思ったんだけど
651 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 21:00:36 ]: 君のやりたいことは、
(defun test (lis &aux (a (first lis)) (b (rest lis)))
　(cond ((not (null b))
　　　　(print b)
　　　　(test b))))
ってな感じかな。if の定義を再勉強！
652 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 21:04:56 ]: やっぱりな．再帰とか &aux 以前に 2 つ間違いをおかしている．
1. if の構文を間違えている (おそらく)
2. 条件の中身も間違えている
それって，「条件を満しているなら print で b を表示したあと再帰する」って
処理が希望のようだが，書いたコードが，「もしリストの先頭要素が nil 以外なら表示する．そうでないなら再帰する」
なので，表示は一回しかされない．
(defun test (lst &aux (a (first lst)) (b (rest lst)))
(if a
(progn
(print b)
(test b))))
もしくは
(defun test (lst &aux (a (first lst)) (b (rest lst)))
(when a
(print b)
(test b)))
だな．手元の参考書を if の説明をちゃんと読みなおしたほうがいい．
653 名前：& ◆QWv3R1XL8M [2005/10/09(日) 21:14:39 ]: >書いたコードが，「もしリストの先頭要素が nil 以外なら表示する．そうでないなら再帰する」
なので，表示は一回しかされない．

なんで？？
再帰二回目だとrestとった値がなんでnilになる？？？２とか３じゃないの？？
ifがどうとか言う以前によくわからんのですが
654 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 21:23:19 ]: 再帰しないんだから二回目もクソもないんだよ。
if の説明を確認しろっていわれてんだから素直にそうしな。
655 名前：& ◆QWv3R1XL8M [2005/10/09(日) 21:31:58 ]: なるほど、わかりました。ありがとうございました。
で、

(defun test (lis &aux (a (first lis)) (b (rest lis)))
　(cond ((not (null b))
　　　　(print b)
　　　　(test b))))

↑これ実行できないんですけどこれは何故？
656 名前：デフォルトの名無しさん mailto:sage [2005/10/09(日) 21:39:12 ]: 全角空白までコピペしちゃっているからだろう．
大した手間でもないだろうから手で入力したまえ．
657 名前：おしえて厨 [2005/10/10(月) 19:51:08 ]: lispのsort関数を使わないで、
オリジナルの数字リストの昇順または降順ソートプログラムを
書いてみてください。
できれば初心者でもアルゴリズムが分かりやすいような書き方でおながい
658 名前：デフォルトの名無しさん mailto:sage [2005/10/10(月) 20:35:14 ]: >>657
やだ
659 名前：デフォルトの名無しさん [2005/10/10(月) 20:50:39 ]: xのy乗を求める問題なんだけど、どこか変なところある？
include <stdio.h>
#include <math.h>

main()
{
double x,y,z;

printf("x =");
scanf("%lf",&x);
printf("y =");
scanf("%lf",&y);

z = pow(x ,y);
printf("x\ty = %lf", z);
}
660 名前：デフォルトの名無しさん mailto:sage [2005/10/10(月) 20:52:12 ]: 頭が変かもしれんな
661 名前：デフォルトの名無しさん mailto:sage [2005/10/10(月) 21:05:09 ]: 書き込むスレの選択が変
662 名前：デフォルトの名無しさん mailto:sage [2005/10/11(火) 04:45:21 ]: >>620
面白い物見つけた。

ttp://www.geocities.jp/shido_takafumi/lisp/macro3.html

Socket 経由で GUI を作ってるっぽいけど、Windows Native でも
似た様なのがあるんじゃないかな。Mac だとこういうのがある。

www.bluem.net/downloads/pashua_en/
663 名前：おしえて厨 [2005/10/11(火) 08:49:23 ]: (defun small (lis)
(cond ((null (rest lis))
lis)
((< (first lis) (first (rest lis)))
(remove (first lis) lis)
(remove (first (rest lis)))
(cons (first lis) lis)
(cons (first (rest lis) lis))
(small lis)
(t (small (rest lis))))))

↑バブルソートしたくて書いてみた。駄目だった。どこが駄目？
664 名前：デフォルトの名無しさん mailto:sage [2005/10/11(火) 09:41:52 ]: バブルソートを使うところが駄目。
665 名前：デフォルトの名無しさん mailto:sage [2005/10/11(火) 10:13:57 ]: (defun merge-sort (lst)
(let ((len (length lst)))
(cond ((< len 2) lst)
((= len 2)
(let ((x (car lst))
(y (cadr lst)))
(if (< x y) (list x y) (list y x))))
(t
(do ((x (merge-sort (butlast lst (ash len -1))))
(y (merge-sort (last lst (ash len -1))))
(r '()))
((or (null x) (null y))
(nconc (nreverse r) x y))
(push (if (< (car x) (car y)) (pop x) (pop y)) r))))))
666 名前：おしえて厨 [2005/10/11(火) 17:25:50 ]: (remove 'a 'a)みたいに一文字だとremoveできないじゃん。
どうやって一文字しかないのを消すの？
あと、(a b c (a ((b))))みたいになってるときのbだけを消して、
(a b c (a (( ))))みたいにする方法って、あるの？
667 名前：デフォルトの名無しさん mailto:sage [2005/10/11(火) 18:03:53 ]: ((lambda (x y)
((lambda (f) (funcall f f y))
(lambda (f y) (typecase y
(list (remove x (mapcar (lambda (y) (funcall f f y)) y)))
(t y)))))
'b '(a b c (a ((b)))))
=> (A C (A (NIL)))
668 名前：おしえて厨 [2005/10/11(火) 19:06:51 ]: 関数が定義されていません: typecase
669 名前：デフォルトの名無しさん mailto:sage [2005/10/11(火) 19:36:09 ]: そりゃ Common Lisp じゃないな。スレ違いだからもうこのスレに来ないように。
670 名前：デフォルトの名無しさん mailto:sage [2005/10/11(火) 19:37:20 ]: >>668
処理系がまがい物だな
671 名前：デフォルトの名無しさん mailto:sage [2005/10/11(火) 20:10:17 ]: xyzzy だな
672 名前：おしえて厨 [2005/10/11(火) 20:43:06 ]: xyzzyなんだけど、typecaseつかわずにできないの？？？
673 名前：デフォルトの名無しさん mailto:sage [2005/10/11(火) 21:12:30 ]: >>672
xyzzy使いのよしみで回答しておくけど、
CommonLisp を勉強するのに xyzzy を処理系として使っちゃダメ。
xyzzy でマクロを書くための勉強ならここで質問するのは間違い。

((lambda (x y)
((lambda (f) (funcall f f y))
(lambda (f y) (if (listp y)
(remove x (mapcar (lambda (y) (funcall f f y)) y))
y))))
'b '(a b c (a ((b)))))
=>(a c (a (nil)))
674 名前：おしえて厨 [2005/10/11(火) 21:57:05 ]: (defun del-atom (n lis)
(cond ((null lis)
nil)
((atom (first lis))
(cond ((eql n (first lis))
(del-atom n (rest lis)))
(t (cons (first lis) (del-atom n (rest lis))))))
((listp (first lis))
(cond ((listp (first (first (first lis))))
(cond ((eql n (first (first (first lis)))))
(del-atom n (rest lis)))
(t (cons (first lis) (del-atom n (rest lis))))))
(cond ((listp n (first (first lis)))
(cond ((eql n (first (first lis)))
(del-atom n (rest lis))))
(t (cons (first lis) (del-atom n (rest lis)))))))))

↑自分でもやってみようとしたら、こんなんなっちゃったよ～～～～
どこが駄目？？？
675 名前：デフォルトの名無しさん mailto:sage [2005/10/12(水) 00:50:11 ]: ((listp (first lis))
(cons (del-atom n (first lis)) (del-atom n (rest lis))))
676 名前：デフォルトの名無しさん mailto:sage [2005/10/12(水) 00:51:18 ]: first とか rest って使われてるんだなぁとそちらのほうに感動してたりする俺。
677 名前：デフォルトの名無しさん mailto:sage [2005/10/12(水) 17:12:58 ]: >>676
それはね、「xyzzy Lisp Programming」のページで、first と rest を推奨す
る、と書かれているからだよ。
www.geocities.jp/m_hiroi/xyzzy_lisp/abclisp02.html
678 名前：デフォルトの名無しさん mailto:sage [2005/10/12(水) 17:23:12 ]: >>677
「first と rest を使うことが推奨されています」なんて書いてるが、「誰が」推奨
しているのか不明だな。少なくとも CLtL2 にも ANSI にもそんな記述は見あた
らないが。（もし見落としてたら教えてくれ）
679 名前：おしえて厨 [2005/10/12(水) 17:33:11 ]: P.H.ウィンストンという人が書いた緑の本に推奨されていた。
まあそれはさておき675さんの指摘がよくわかりません。
どこを直せばいいの？？
680 名前：デフォルトの名無しさん mailto:sage [2005/10/12(水) 18:08:58 ]: >>679
> どこを直せばいいの？？
頭の中身。
お前さんは九九も覚えてないのに数学の問題を見てわからないとわめいてるの
と同じなので、677 が紹介してるサイトの Common Lisp 入門を全部読んで
理解してからもう一度いらっしゃい。
681 名前：デフォルトの名無しさん mailto:sage [2005/10/14(金) 03:51:47 ]: ウィンストンって培風館の奴か？

car,cdrの方が好き
ハード寄りで
682 名前：デフォルトの名無しさん mailto:sage [2005/10/14(金) 11:14:21 ]: >>681
いつの時代の方ですか？
683 名前：デフォルトの名無しさん mailto:sage [2005/10/14(金) 12:23:03 ]: 平成17年
684 名前：デフォルトの名無しさん mailto:sage [2005/10/14(金) 12:27:20 ]: 漏れも car cdr のほうが好きだが、さすがに IBM 7090 （だっけか）は使ったことない。
685 名前：デフォルトの名無しさん mailto:sage [2005/10/14(金) 14:01:44 ]: 8月からLisp触り始めた超初心者だけど
car、cdrのほうが好きだな。
686 名前：デフォルトの名無しさん mailto:sage [2005/10/14(金) 17:17:44 ]: >>679,681
俺もその本持ってる。そのせいか first、rest 派。
自分では使わないから、car や cdr ならともかく caddr ぐらいでもわけわからん。
687 名前：デフォルトの名無しさん mailto:sage [2005/10/14(金) 17:23:31 ]: >>686
caddr と third とどっちがわかりやすいかだわな。
個人的には視覚的にわかる caddr のほうが好き。
688 名前：デフォルトの名無しさん mailto:sage [2005/10/14(金) 22:48:16 ]: nthは邪道ですか、そうですか

いや、俺も使わないけど
689 名前：デフォルトの名無しさん mailto:sage [2005/10/15(土) 14:56:32 ]: (nth 3 L) ≡ (fourth L) なのがなんとも
690 名前：デフォルトの名無しさん mailto:sage [2005/10/15(土) 15:05:25 ]: >>689
nth は aref とともに elt の特別版ということだな。
むしろ、この3つの中で nth だけ引数順が違うのが気になる。
691 名前：デフォルトの名無しさん mailto:sage [2005/10/16(日) 18:18:47 ]: ルプラカ　ルプラクドゥ
パンプルピンプルパムポップン
カッドゥルゥァー
クックドゥー
692 名前：デフォルトの名無しさん mailto:sage [2005/10/18(火) 22:37:29 ]: オブラディ　オブラダ
（・∀・）ｽﾝｽﾝｽｰﾝ
693 名前：デフォルトの名無しさん [2005/10/19(水) 19:16:22 ]: ;;ある基点となるフォルダより下のフォルダのフルパスを全て取得するには再帰でどう書けばいいですか？
694 名前：デフォルトの名無しさん mailto:sage [2005/10/19(水) 20:40:03 ]: 実装依存
695 名前：デフォルトの名無しさん [2005/10/19(水) 20:42:51 ]: xyzzyでは？？
696 名前：デフォルトの名無しさん mailto:sage [2005/10/19(水) 20:45:20 ]: 板違い
697 名前：デフォルトの名無しさん mailto:sage [2005/10/19(水) 20:55:26 ]: (directory PATHNAME)　あたりで調べると良いかも。
698 名前：デフォルトの名無しさん mailto:sage [2005/10/21(金) 00:53:04 ]: ECL使って実現されているプロジェクトでそこそこの規模のやつって誰か知りません？
C/C++とCommon Lispを混ぜた開発したいんだけども、実際の使われ方を見て勉強した方が
理解が早いかなと思って。
それともUFFI使うのが定説ですかね。
699 名前：デフォルトの名無しさん mailto:sage [2005/10/21(金) 01:37:09 ]: どうなんだろう．最近は CFFI とかも出てきてるしねぇ．
まず Lisp 側のインターフェースを決めて，それが十分に抽象化できていれば
その下は UFFI だろうが処理系の FFI だろうがたぶん問題ない．

ECL はあんまり触ったことないので本題には答えられない．スマソ．
キーワードハイライトつきのエディタ作ったとか Planet Lisp に出てたような．
700 名前：698 mailto:sage [2005/10/21(金) 01:58:32 ]: >> 699
ありがと。Planet Lisp行ってきます。
スレ違いって怒られるかも知れないけど、Gaucheとかだと結構事情が違ったりする？
確か開発目標に他の言語と仲良くするってのがあったような。でも最終的には
ネイティブコードで走らせたいんだよなぁ・・・
701 名前：デフォルトの名無しさん mailto:sage [2005/10/21(金) 02:08:50 ]: ネイティブコードってことは性能が欲しいの?
それでフリーなのがいいならCMUCLやSBCLがいいんじゃないかな。
Cの呼び出しやCからのコールバックもそれほど面倒じゃないし。
702 名前：698 mailto:sage [2005/10/21(金) 02:45:04 ]: Planet Lisp行ってきました。
簡単なアナウンスだけ出ててsourceforgeに誘導されてみたらスクリーンショットも
公開されてました。CVS HEADにコードが入っているみたいなのでこれから調査します。

いまはプロトタイピングの段階なので実現可能性の検証が主体です。アルゴリズムの設計と
検証はLispであ～でもないこ～でもないやりながら考えた方がお手軽なのですが
プロジェクトの他のメンバがC/C++でコード書いてるので現状は

・Lispでアルゴリズム練る　→　C++で等価なコードを書いてリポジトリにチェックイン

してます。二度手間でアホらしいんですが最初からC++であれこれ書けないんですよ。
C++の汚さに辟易して大分昔に標準化の動向追いかけるのやめていたこともあって。
で、どうせならLispのコードそのままC/C++に埋め込んじゃうことはできないのかな～と
たくらんでいるところです。

スレ違いになりますが最近STLやらBoostやらLokiやら勉強してみて驚愕しました。
何であんな大変な思いをしてまでC++使うんですかね・・・不思議でたまらん。
703 名前：デフォルトの名無しさん mailto:sage [2005/10/21(金) 02:54:10 ]: >>702
ずいぶんと怪奇なことになってるよね。＞C++
でも、すべてインラインに開いちゃうから確かに速い。
そのかわりコードサイズが大爆発。ｗ
704 名前：デフォルトの名無しさん mailto:sage [2005/10/25(火) 00:24:33 ]: 今ポールグラハムのlisp本でお勉強中なのですが、lispでは
soketを開くとかプロセス制御するとか低レイヤな処理をする場合
どーすんのでしょうか。処理系にそうしたライブラリがなかったりする場合は?
705 名前：デフォルトの名無しさん mailto:sage [2005/10/25(火) 00:34:49 ]: socketです。typoっす。すんません。
706 名前：デフォルトの名無しさん mailto:sage [2005/10/25(火) 01:12:37 ]: >>704
どうにもなりません。そういうライブラリが存在するか、ネイティブコードを
呼ぶなどの方法でなんとかできる処理系を選びましょう。
707 名前：704 mailto:sage [2005/10/25(火) 01:53:21 ]: >>706
むぅ。そういうもんなんですか。教えて頂いて有難うございます。
そういったことは一旦置いておくとすると、学習向けに
オススメの処理系があればご教授頂けると助かります。
今のところ本読んでるだけなのですが手続き型が染み付いた頭には
関数プログラミングって難しい…。
708 名前：デフォルトの名無しさん mailto:sage [2005/10/25(火) 02:04:53 ]: >>707
WindowsならCLISP、UNIX系ならSBCLがいいんじゃないかな。
どちらもソケットなどの拡張機能は持っているよ。
709 名前：704 mailto:sage [2005/10/25(火) 02:12:34 ]: >>708
どもです。SBCLっての調べてみます。。
710 名前：デフォルトの名無しさん mailto:sage [2005/10/28(金) 00:10:41 ]: 潜水艦から発射するミサイルじゃないの？
711 名前：デフォルトの名無しさん mailto:sage [2005/10/28(金) 00:15:22 ]: >>710
それはSLBM
712 名前：デフォルトの名無しさん mailto:sage [2005/10/28(金) 01:26:06 ]: コンパイラ・スクリプトエンジン相談スレで言語処理系の実装にLispを使うべきだ風な
書き込みを見掛けて興味を持ったのですが、具体的にLispで記述されたコンパイラとかで
参考になりそうなものがあれば教えていただけますか？ソースを見てどんな利点があるのか
比較してみたいです。大昔GCCのソースを眺めたとき内部でS式みたいので木を表現して
いたみたいでしたが、表現形式だけじゃなくて実際に内部でLispプログラムが動いてたり
するんだろか。
713 名前：デフォルトの名無しさん mailto:sage [2005/10/28(金) 03:53:37 ]: かつては MacLisp が Fortran と張り合っていたわけだし，今でも Lisp コン
パイラはほとんど Lisp で書かれているよ．ただ，Lisp 製の ML や C コンパ
イラとかもあるけど，入門で読むのは無理だろう．

利点としてはコンパイラを書く時にモロに Lisp コンパイラの機能がつかえる!!
といっても，何の事か Lisp を知らなければまったくイメージできないかもしれない．
だからまず Lisp を学ぶ必要があるとおもうよ．基礎を一通りやったあと，

groups.google.com/group/comp.lang.lisp/msg/2108939e399c5c4e

とか見て，それでもメリットがわからないようなら Lisp の事は忘れたほうが
いい．合う合わないがあるからね．
714 名前：デフォルトの名無しさん mailto:sage [2005/10/28(金) 20:14:18 ]: MacLispか…研究室の物置に5”FDの認知心理のプログラム群があったなぁ
715 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 01:11:05 ]: lispと他のプログラムとの構文とかの対比表ってありませんか?
716 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 03:33:47 ]: MacLisp か…今やプロジェクト Mac の Lisp で Macintosh とは関係ないと
言わないと通じない時代かもしれんな…
717 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 06:51:32 ]: ttp://kasamatusan.sakura.ne.jp/cgi-bin2/src/ichi14589.jpg.html
（竹内）
718 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 11:34:43 ]: >>715 他のプログラム言語，と言いたいのか？具体的には何よ？
719 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 14:47:52 ]: >>718
C,C++,java,perl,ruby,python,PHPなどのメジャーな手続き型のどれか
720 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 16:39:07 ]: >>719
Lisp プログラマのための Python 入門
www.unixuser.org/~euske/doc/python/python-lisp-j.html
こんな感じ？
721 名前：719 mailto:sage [2005/10/30(日) 16:54:13 ]: >>720
thx!
722 名前：デフォルトの名無しさん [2005/10/30(日) 19:46:03 ]: >>716
Windows上で動く？
723 名前：デフォルトの名無しさん [2005/10/30(日) 19:47:42 ]: lispとjavascriptってどっちが優れていますか？
724 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 19:50:17 ]: >>722
PDP-10 とか DEC System 20xx のエミュがあれば。
725 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 19:57:22 ]: >>723
javascript は lisp です
726 名前：デフォルトの名無しさん mailto:sage [2005/10/30(日) 23:48:45 ]: 煽りにもマジレスしておこうか．

Web のクライアントサイドスクリプティングなら圧倒的に JavaScript が優れている．

逆にサーバーサイドでの処理なら Lisp のほうが良いな．でも君が病的に括弧
を恐れているならどこでも JavaScript のほうが優れていると感じるだろう．
基準をしめさない場合，「どちらが優れていか？」というのは主観的な問題だ
から，人に聞いてもあまり意味がないよ．
727 名前：デフォルトの名無しさん mailto:sage [2005/10/31(月) 03:19:26 ]: >lispと他のプログラムとの構文とかの
728 名前：デフォルトの名無しさん mailto:sage [2005/11/01(火) 00:04:26 ]: >>716 Maclisp と綴って欲しい
729 名前：デフォルトの名無しさん [2005/11/01(火) 06:11:42 ]: Win32バイナリが吐けるLispコンパイラはどこですか？
730 名前：デフォルトの名無しさん [2005/11/01(火) 07:05:14 ]: >>726
主観なわけねーじゃん。ばっかじゃないの
731 名前：デフォルトの名無しさん mailto:sage [2005/11/01(火) 10:46:25 ]: >>730
基準をしめさない場合、という条件でどこをどうやったら主観じゃなくなるのだ?
732 名前：デフォルトの名無しさん [2005/11/01(火) 11:35:21 ]: >>730の次のレスは「あまりの恥ずかしさに煽って逃げる」これ。
733 名前：デフォルトの名無しさん mailto:sage [2005/11/01(火) 12:11:48 ]: >>729
コーマンリスプなんてどうだ。
www.cormanlisp.com/
734 名前：デフォルトの名無しさん mailto:sage [2005/11/01(火) 12:54:47 ]: 非商用なら無料なんだ。
corman はチェックしてなかったな。結構寛容なライセンスだね。
735 名前：デフォルトの名無しさん mailto:sage [2005/11/01(火) 13:34:49 ]: どうせポップアップウィンドウに

　　　　　　　　t

とか表示させるだけだろ
736 名前：デフォルトの名無しさん mailto:sage [2005/11/02(水) 00:11:24 ]: ロジャーコーマンは腹出過ぎ。
737 名前：デフォルトの名無しさん mailto:sage [2005/11/02(水) 00:30:12 ]: Corman Lispって日本語通るようになったのかな?
要望あったら聞くよーてなメールも送ってきたくらい個人商店ぽいので
誰か日本で使い物になるなら買うから是非頼むといってやれば
なんとかしてくれるかも。
738 名前：デフォルトの名無しさん mailto:sage [2005/11/02(水) 00:31:55 ]: [CommonLisp とコンパイル - コンパイラスクリプトスレからの続き]

つまり Lisp においては「x に 2 を倍する」プログラムはデータ構造 (* x 2) と表現できるわけだ．
（もし熱烈な C/C++ & XML ファンならこの構文木をつくってよう）
さて，ここで操作する．もし「x に 2 を足す」にしたいと思ったとする．
これは Lisp では (+ x 2) と表現できる．インタプリタ上ならば

> code
(* x 2)
> (setf (car code) '+)
(+ x 2)

となる．（もし熱烈な C/C++ & XML ファンなら，同様の操作を表現してみよう）
さて，これをコンパイルしてみよう．このとき，コードは引数 x を一個とるわけなので関数で
ラップする．これは (lambda (x) (+ x 2)) と書ける．Common Lisp の compile メソッドを使うと

> (compile nil '(lambda (x) (+ x 2)))
#<compiled-function>

これでコンパイルされたコードが得られる．もしネイティブコードコンパイラ
を使っているならネイティブコードが得られる．確認したければ，すかさず

> (disassmble *)

とうてばよい．このようにコンパイラは Lisp 環境と統合されており，利用者が気軽に使える存在なのである．
（もし熱烈な C/C++ & XML ファンなら，表現した構文木をコンパイルしてからディスアセンブルしてみよう）
739 名前：デフォルトの名無しさん mailto:sage [2005/11/02(水) 02:59:33 ]: C で同じことやりたいなら cc -fpic 実行して dlopen するだけじゃない?
KCL 系だってそうやってんだし。
740 名前：デフォルトの名無しさん mailto:sage [2005/11/03(木) 13:38:27 ]: コンパイラスレのからの客人？でも KCL とかっていうことはこのスレの人かな？
まぁ，Lisp では手軽さがケタ違いです．C を直接さわったら操作するたびに，
C のソース <--> データ構造を変換しなきゃいけないのですが，逆に S 式な
ら変換する必要はない．

まぁ，どうしてもと言うなら C っぽく入力列 (S 式風味) をパースしてコンパ
イル，実行という手順でもいい．例として forth 風味の言語を考えよう．

def double
2 *
end
def quad
double double
end
def fib
dup 1 > if
dup 1 - fib swap 2 - fib +
end
end
reset
5 quad fib print

これでフィボナッチ数列の 20 番目を表示したいとする．大袈裟に言うと，
たとえば gcc のバックエンドにこの言語のフロントエンドを作るという事になる．
これは手軽か？（まぁ，手間以外の難易度は Lisp だろうとなんだろうと簡単なんだけど…）
741 名前：デフォルトの名無しさん mailto:sage [2005/11/03(木) 13:41:51 ]: まずパッケージと，基本オペレータを準備する．まぁ，とりあえずスタックはリストで
表現し，スタックのクリア，表示，スタックトップの入れ替え，コピーという基本操作を
使う．算術演算子も lisp のやつを流用する．と，オペレータの定義はこうなる．

(defpackage :mini-forth (:use :cl) (:export #:parse #:run #:forth) (:shadow #:print #:pop #:push #:+ #:- #:* #:/ #:> #:< #:= #:>= #:<=))
(in-package :mini-forth)
(defparameter *stack* nil)
(defmacro defword (word args &body body)
(let ((binds (loop for v in args collect (list v '(cl:pop *stack*)))))
`(defun ,word () (let* ,binds ,@body))))
(defmacro default-operators (&rest operators)
`(progn
,@(loop for op in operators
collect `(defword ,op (x y) (cl:push (,(intern (symbol-name op) :common-lisp) y x) *stack*)))))
(defword print () (loop for e in *stack* for i from 0 do (format t "~&~4D: ~A~%" i e)))
(defword reset () (setf *stack* nil))
(defword swap (x y) (cl:push x *stack*) (cl:push y *stack*))
(defword dup (x) (cl:push x *stack*) (cl:push x *stack*))
(default-operators + - * / > < = >= <=)
742 名前：デフォルトの名無しさん mailto:sage [2005/11/03(木) 13:43:17 ]: あとは入力をパース（手抜き）する．

(defun parse (program &optional (ast nil) &aux (word (first program)))
(cond ((or (null program) (eq word 'end) (eq word 'else))
(values (nreverse ast) program))
((or (stringp word) (numberp word))
(parse (cdr program) (cons `(cl:push ,word *stack*) ast)))
((eq word 'if)
(multiple-value-bind (tree next)
(parse (cdr program))
(multiple-value-bind (tree2 next2)
(parse (if (eq (car next) 'else) (cdr next) next))
(parse (cdr next2) (cons `(if (cl:pop *stack*) (progn ,@tree) (progn ,@tree2)) ast)))))
((eq word 'def)
(multiple-value-bind (tree next)
(parse (cddr program))
(parse (cdr next) (cons `(defword ,(cadr program) () ,@tree) ast))))
(t (parse (cdr program) (cons `(,word) ast)))))

で，得られた S 式をコンパイル（Lisp コンパイラを流用）して実行．

(defun run (program)
(let ((tree (cons 'progn (parse program))))
(funcall (compile nil `(lambda () ,tree)))))
743 名前：デフォルトの名無しさん mailto:sage [2005/11/03(木) 13:51:52 ]: この forth もどきにさっきのプログラムを喰わせる．

MINI-FORTH> (run '( [さっきのプログラム] ))
0: 6765

計算できたッ!! ついでにこの簡易言語で定義された関数 fib とかはLisp コン
パイラでコンパイルされている．つまりネイティブコードコンパイラを使って
いればネイティブコードが得られる．

MINI-FORTH> (disassemble 'fib)
; 09AB6F66: 8BD4 MOV EDX, ESP ; no-arg-parsing entry point
; 6F68: 83EC0C SUB ESP, 12
; 6F6B: 8B05886DAB09 MOV EAX, [#x9AB6D88] ; #<FDEFINITION object for DUP>
; 6F71: 31C9 XOR ECX, ECX
; 6F73: 896AFC MOV [EDX-4], EBP
; 6F76: 8BEA MOV EBP, EDX
; 6F78: FF5005 CALL DWORD PTR [EAX+5]
; 6F7B: 8BE3 MOV ESP, EBX
[...]

…というような説明でどうかな？
744 名前：デフォルトの名無しさん mailto:sage [2005/11/04(金) 01:46:00 ]: む、つまりこれはforthのトランスレータ？
結構短く書けるもんだね。

ところで↓のスレとここはどう使い分けてるの？
スレタイ同じだから混乱するぜ。

【一日】CommonLisp【一門】
pc8.2ch.net/test/read.cgi/tech/1106587515/
745 名前：デフォルトの名無しさん mailto:sage [2005/11/04(金) 02:05:48 ]: スレタイが違うので混乱はしない。
746 名前：デフォルトの名無しさん mailto:sage [2005/11/04(金) 04:54:18 ]: >>744　宣伝乙
747 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 00:07:54 ]: すいませんが、解の公式を使って二次方程式の解を出す関数の定義の仕方を
教えてください。どうも、±がどう表現していいか分からなくて…。
よろしくお願いします。
748 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 00:09:53 ]: ↑宿題？
749 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 00:13:37 ]: たぶん。

>>747
> ±がどう表現していいか
思考様式の変革が必要だと思う
750 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 00:27:29 ]: 多値で返すとか、リストで返すとか好きなやり方選べばいいんでないの。
751 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 00:30:53 ]: つうかやる気ねーんだろ？授業をちゃんと聞いてなかったみたいだし。「

いつも思うんだけどなんで～日までの宿題ですやる気ないんで教えてください、
って素直に言えないのかね？まさか宿題である事を隠してるつもりなのか？なら
人をナメすぎだな。ほらこれを提出してごらん。俺は親切だから罠をしかけたりしないよ。

(defun solve (a b c)
"ax^2 + bx + c = 0"
(let ((A (- b))
(B (sqrt (- (* b b) (* 4 a c))))
(C (* 2 a)))
(values
(/ (+ A B) C)
(/ (- A B) C))))
752 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 00:39:19 ]: 漏れのエスパー能力によると>>747が求めているプログラムは Lispではないな。
753 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 00:41:43 ]: >>750
±にあたるものが存在してないのが問題の山なのかも。
存在してても使いにくそうだけど。
754 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 05:01:13 ]: そういえば複素数も扱えるんだよな
でも>>751はaが非零でないことくらいはチェックした方がいいと思う
755 名前：747 mailto:sage [2005/11/08(火) 22:31:36 ]: どうもどうも。おかげさまで解決しました。
視点を変えました。>>751のプログラムもある意味参考にさせていただきました。
756 名前：デフォルトの名無しさん mailto:sage [2005/11/08(火) 22:55:05 ]: >>755
変数名変えた程度で提出してそうだな．
757 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 10:52:42 ]: 数年前からWIREDで学生のレポートのコピーと教授のいたちごっこが記事になっ
たりとかしてるけど、いっこうに解決してないよな、この問題。
数ヶ月か一年おきくらいの間隔で問題にした記事を見てる気もする。
Comm. ACMの先月号でも Academic Dishonesty and the Internet つって
とりあげてるし。なんでもclass project(宿題というよりはレポートに相当か)
を外注に出す奴までいたそうだ。何のために大学に来たのかと小一時間(ry

そういう学生のイカサマは許さんと頑張ってくれる教官は日本の大学にも
いるんだろうか。なんかそんなやつ放っとけ面倒だと知らんぷりになりそうなんだが。
758 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 10:58:03 ]: 今後の（学内or社会人）人生で困るならその程度だし困らないならそれもまたその程度。
759 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 11:26:00 ]: 企業活動もアウトソーシングに頼る時代なんだから別にいいんじゃない？
卒論だって金でやってもらえる時代ですよ。
教官だって普段の学生の様子を見てれば、まじめにやってるやつと
金で解決したやつの違いくらいわかるでしょ。わからなかったり、
わかっても注意しなかったら、その程度の教官ってこと。

でも>>747はこんなとこで聞く前に、教官に質問しろ。
払った授業料以上のものを貰わないともったいないぞ。
質問しても答えてもらえなかったらダメな先生に当たったと諦めろ。
760 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 11:36:09 ]: 教官としてはどうでもいいんだが。精査したり注意してやる義理もない。
761 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 11:47:02 ]: 無駄なレポート書く暇あったら自分の勉強したいよ
762 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 11:50:21 ]: どうでもいいならレポートや宿題なんて出さないで欲しいよな。
763 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 12:01:17 ]: >>762
君たちにとって無駄でどうでもいいのなら提出しなければいい。
764 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 12:03:45 ]: 単位を貰うために、最小限の労力とリスクで、レポートを仕上げる
765 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 12:30:01 ]: 単位をもらうためならそれでいいよな。
単位に値しないなら労力を割かないほうがよい。
単位取得を重要視するなら学生側でそれくらいのマネジメントくらいしろ。
766 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 12:33:44 ]: やっぱ宿題には黙って答えだけだな。
余計な事言うから >>757-765 のような板違い連中を釣り上げちゃう。
767 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 20:47:57 ]: 自分の望むレスだけしか見たくないんですか?
答えだけ欲しければ宿題スレへいけ。
768 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 21:07:39 ]: じゃあ教授と学生のいたちごっこを見事な再帰で表現>>768
769 名前：デフォルトの名無しさん mailto:sage [2005/11/09(水) 21:51:43 ]: うちの研究室、プログラムの類似度判定やってた。
教授が集めてきた学生たちのレポートを実験の対象にしてた。
結果、年度・言語に関わらず、２～３の大きいグループができると判明した。
770 名前：デフォルトの名無しさん mailto:sage [2005/11/13(日) 01:34:50 ]: 以下のようなことを実行するにはどうすればいいのでしょうか？

(setf a '(+ 1 2))
(setf b '(+ 3 4))
(setf c '(- b a))

(myfunc c)
4

あるリストファイルを読んで内部にツリー構造をつくり、
それを一気に実行することを望んでいます。
具体的には、内部で以下のように展開してから実行したいと
思っています。

(eval '(+ (+ 1 2) (+ 3 4)))

何かヒントだけでも頂けたら嬉しいです。どうぞよろしくお願い致します。
m(_ _)m
771 名前：デフォルトの名無しさん mailto:sage [2005/11/13(日) 01:58:53 ]: >>770
こんなんでどうだ。
(defun expand (x)
　(cond ((symbolp x) (expand (symbol-value x)))
　　　　　((numberp x) x)
　　　　　((listp x) (cons (car x) (mapcar #'expand (cdr x))))
　　　　　(t (error "unknown type: " x))))

(defun myfunc (x) (eval (expand x)))
772 名前：デフォルトの名無しさん mailto:sage [2005/11/13(日) 02:45:02 ]: 変った宿題だな。とりあえず読み込みたいリストファイルの例を示して。
それによって難易度が違うんで。

(+ 1 2)

なのか

(setf a '(+ 1 2))

なのか。使う関数は +, *, -, / なのか Lisp のフル機能の使うのか，など。
773 名前：770 mailto:sage [2005/11/13(日) 12:58:24 ]: >>771
ご回答ありがとうございます。m(_ _)m
採用させていただきます。
初心者のくせに変にマクロに拘ってハマってました・・・

>>772
自主制作ソフトに必要な機能なんです。（趣味です）
リストですが・・・

vA_out 1
vB_out 2
vC_out 3
vD_out 4
fPlus1_in vA_out
fPlus1_in vB_out
fPlus1_out fMinus1_in1
fPlus2_in vC_out
fPlus2_in vD_out
fPlus2_out fMinus1_in2
fMinus1_in1 fPlus1_out
fMinus1_in2 fPlus2_out
fMinus1_out retrun

を予定してます。ちょっと冗長ですが・・・。
関数は将来的に増える予定です。Lispのフル機能を使っていきたいと思います。
774 名前：770つづき mailto:sage [2005/11/13(日) 13:03:05 ]: >>773のリストを読み込んで、内部で>>770のようなツリーを組み立て
最後に実行して答えを返す予定です。

>>772
問題にご興味を持っていただきありがとうございました。
もし宜しければ、ヒントなど頂けたらと思います。
775 名前：デフォルトの名無しさん mailto:sage [2005/11/13(日) 13:54:45 ]: なるほど S 式じゃないプログラムリストって意味だったのか。
このプログラムの動作はどんな動きをするんかな？
今はこのファイルを Lisp のリスト形式 (S式) に手動で変換してるんだよね？

たとえばプログラム言語としての機能を持たせたいなら（条件分岐とか）
>>740 からのレスが参考になるかもしれないし、このリストをもう少し S 式風
にカスタマイズできるなら read 系の関数を使って字句解析を省略できる。
776 名前：770 mailto:sage [2005/11/14(月) 20:37:38 ]: >>775
実はあるプログラム言語をパクろうと思ってます。(^^;
もちろん、自分なりの発展はさせるつもりですが。

>今はこのファイルを Lisp のリスト形式 (S式) に手動で変換してるんだよね？

そうです。

>たとえばプログラム言語としての機能を持たせたいなら（条件分岐とか）
>>>740 からのレスが参考になるかもしれないし、このリストをもう少し S 式風

早速参照してみます。

>にカスタマイズできるなら read 系の関数を使って字句解析を省略できる。

あまり複雑なS式はむりですが、出力の形式を弄る程度でできるS式には
しようと思ってます。
（setf vA 1）　←この程度ですが・・・(^^;

また、質問させていただくかもしれません。今回はアドバイスありがとうございました。
777 名前：デフォルトの名無しさん [2005/11/15(火) 17:38:38 ]: 770 とは別人なのですがついでに聞かせて下さい。
Lisp コードの中にいわゆる普通の infix の数式を入れて書きたいと思ったら
どういう手が考えられるでしょうか。
つまりこんな感じで出来ればいいんですけど
(defun f (x y) ( + 1 y %%% x^2+y^3 %%% ))
プリプロセッサを通すとかじゃなくてやろうと思ったらどうしますか。
778 名前：デフォルトの名無しさん mailto:sage [2005/11/15(火) 17:57:12 ]: つ groups.google.com/group/comp.lang.scheme/msg/1f15027fb2a1bc07
つ groups.google.com/group/comp.lang.scheme/msg/047ee341f2c30c85
779 名前：777 [2005/11/15(火) 18:22:40 ]: 本当にありがとう。やっぱ reader macro で出来るんですね。使います。
780 名前：デフォルトの名無しさん mailto:sage [2005/11/15(火) 23:08:40 ]: 使うのかよ！
781 名前：デフォルトの名無しさん mailto:sage [2005/11/16(水) 12:42:27 ]: reader macroのわかりやすい解説ってないでしょうか?
782 名前：デフォルトの名無しさん mailto:sage [2005/11/16(水) 13:11:18 ]: >>781
なんだかんだ言って CLtL2 が一番わかりやすかった。ｗ
783 名前：デフォルトの名無しさん mailto:sage [2005/12/06(火) 16:53:20 ]: 規格書は紙で持っとくと、初心者レベルの時でも結構役に立つよ。
ansiの店で$18で売ってます。
784 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 10:30:59 ]: 本スレのCLOSの話題について行けないバカな漏れに
MOPのなんたるかから教えて下さい。
785 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 13:04:06 ]: >>784
AMOP読め。または図書館へ行って昔のbit別冊を探せ。
786 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 19:49:24 ]: AMOPって今でも、新刊買えますか？
TinyCLOSは、いじってて面白かったなぁ。またいじりたいなぁ。
Kiczalesは、Aspect orientedなる概念を提唱して、ずぅーっと
遥か彼方まで行ってしまったね。
Kiczalesのアイディアを具体化しようとしている連中は、なぜか
Java、Rubyにご執心みたいだけど。
787 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 20:12:37 ]: >>786
買えるよ。日本アマゾンは3～5週間だが、USアマゾンなら24時間以内発送。
www.amazon.co.jp/exec/obidos/ASIN/0262610744
www.amazon.com/exec/obidos/ASIN/0262610744
788 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 20:15:14 ]: On Lisp邦訳の次はAMOP邦訳に挑戦して頂きたい。＞野田さん
789 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 22:00:57 ]: 翻訳終わる頃には、ネタとして終わってる悪寒。
最先端とはいわないまでも、半分より前、できるなら先頭グループ
を走りたいなら、原著は避けられないと思うよ。
まぁ、かくいう俺も日本語と英語しかわからないのだけどな。
790 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 22:42:59 ]: 先頭グループもなにも、MOPやCLOSはかなり前からあるんじゃないの？
791 名前：デフォルトの名無しさん mailto:sage [2005/12/08(木) 02:30:22 ]: >>786
そうか？ AMOP からさほど進化したとは思えないんだが…
792 名前：デフォルトの名無しさん [2005/12/14(水) 23:14:08 ]: clisp上でMAXIMA使いたいんですが解説サイトとかありませんか？
最新版に対応しているところが見つからないんですが
793 名前：デフォルトの名無しさん mailto:sage [2005/12/20(火) 01:46:09 ]: climacs に期待...
794 名前：デフォルトの名無しさん mailto:sage [2005/12/20(火) 19:14:13 ]: Schemacsとか作る奴はおらんのか？
795 名前：デフォルトの名無しさん mailto:sage [2005/12/20(火) 23:38:21 ]: climacs は SBCL ありきだからなぁ。Scheme で Native Thread が使えて
ネイティブコンパイラな実装があれば話は別だが。
796 名前：デフォルトの名無しさん mailto:sage [2005/12/21(水) 00:26:33 ]: climacsも概ね動くようになったところで飽きて放置に100りちゃーど
797 名前：デフォルトの名無しさん mailto:sage [2005/12/21(水) 07:51:11 ]: >>794
ngscmというものならある。
798 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 05:33:14 ]: シンボルを全部日本語にして日本語Lispとして売り出す（笑）
799 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 07:25:40 ]: >>798
日本語Lispなら、S式はリストの先頭でなく末尾を関数とみなすようにしないと。
800 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 09:57:03 ]: (甲 3 とする)
(乙 5 とする)

(甲乙対にする) => (3 . 5)

((甲 2 加える) 乙乗ずる) => 25

助詞が欲しいな。
801 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 10:13:37 ]: もともとのLispも英文にはなってないんだから、
日本語Lispといっても別に、その辺まですり合わせなくていいんじゃないかな。
802 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 13:05:23 ]: >>799-800
括弧を取ればそのままFORTHになるという利点（？）があるな。
803 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 13:54:53 ]: それだったら最初から Forth の方が。
つまり GikoForth なわけですが。
804 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 19:59:15 ]: （おぼえる　かいじょう　（い）
　　「０から　い　までかけあわせる」
　　（もしも　（ぜろか　い）
　　　　１
　　　　（かける　い　（かいじょう　（いちひく　い）））））
805 名前：デフォルトの名無しさん mailto:sage [2005/12/23(金) 20:28:09 ]: （いれる　●にわとり　「こけこっこー」）
（いれる　●ねこ　「にゃぁにゃぁ」）
（いれる　●ぶた　「ぶーぶー」）

（みる　●にわとり）
→　こけこっこー
806 名前：デフォルトの名無しさん mailto:sage [2005/12/24(土) 01:10:35 ]: SBCL の Win32 ポートがいよいよマージされるみたいだな。

sourceforge.net/mailarchive/message.php?msg_id=14275606

;; Macho のアーカイブ止まっちゃったのか。
807 名前：デフォルトの名無しさん mailto:sage [2005/12/26(月) 22:08:00 ]: >>805
carとかcdrとかcdadarとかはどうやって表現するんだ。
808 名前：デフォルトの名無しさん mailto:sage [2005/12/27(火) 01:04:54 ]: car ⇒ 住所登録所の内容
cdr ⇒ 値登録所の内容
cdadar ⇒ 住所の値の住所の値登録所の内容
809 名前：デフォルトの名無しさん mailto:sage [2005/12/27(火) 01:47:02 ]: car => これ
cdr => それ
cdadar => そこそこれ
810 名前：デフォルトの名無しさん mailto:sage [2005/12/27(火) 01:55:43 ]: car/cdr は箱（コンスセル）から要素を取り出す操作だから、

car: とりだす
cdr: つぎをとりだす
cdadar: つぎのまえのつぎのまえをとりだす

関数は動詞且つ和語で統一したい所だけど、苦しいかな...
811 名前：デフォルトの名無しさん mailto:sage [2005/12/27(火) 02:26:21 ]: >>809
それｲｲﾈ
812 名前：デフォルトの名無しさん mailto:sage [2005/12/27(火) 10:26:20 ]: >>809
anaphoric ifのitはどうすんだ
813 名前：デフォルトの名無しさん mailto:sage [2005/12/27(火) 11:57:15 ]: >>812
「あれ」
814 名前：デフォルトの名無しさん mailto:sage [2005/12/30(金) 19:42:32 ]: clozure.com/cgi-bin/viewcvs.cgi/ccl/ChangeLog?rev=HEAD&cvsroot=Bleeding-edge&content-type=text/vnd.viewcvs-markup

x86 の文字がちらほら見えるけど、OpenMCL も x86 に移植されるみたいだね。
素晴らしい。
815 名前：デフォルトの名無しさん [2006/01/09(月) 22:24:16 ]: lispで作った関数なんかは、何処に保存されてるのでしょうか？
lispのコードをいじる課題が出たのですが、
コードの保存を自分でやらなきゃならなくなって困ってます。
816 名前：デフォルトの名無しさん mailto:sage [2006/01/09(月) 22:52:09 ]: 教官に聞け
817 名前：デフォルトの名無しさん [2006/01/09(月) 22:59:50 ]: それを見つけるのが課題。。
818 名前：デフォルトの名無しさん mailto:sage [2006/01/10(火) 10:08:05 ]: 「エディタで新規にファイル作ってその中に書け」が答のような気もする

っていうかLisp関係ないな
対話的にしかLispを使わない授業だったと推測するが
819 名前：デフォルトの名無しさん mailto:sage [2006/01/10(火) 14:24:33 ]: >>815
それ、Smalltalk使いの私も訊きたいです。

Smalltalkでは、関数（メソッド）が自身のソースを属性として持っていて比較的
容易にたぐれるんですが、Lispでは環境内でのソース管理はどうなっているんでしょうか？

818の行間を読むと、対話的に作られた場合、関数は自身にかかわるソース情報を
（デコンパイルなどで特殊な方法で別途得る以外）他の一般的な言語と同様、
いっさい失ってしまうのが当り前…というような印象を受けるのですが。
820 名前：デフォルトの名無しさん mailto:sage [2006/01/10(火) 22:47:35 ]: >>819
ANSI CL の範囲では無いと思う。ANSI Smalltalk もソースコードの管理までは
規定してないでしょ?
821 名前：デフォルトの名無しさん mailto:sage [2006/01/10(火) 23:15:09 ]: function-lambda-expression()
lambda 式が取れなくても規格合致だけど
822 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 06:36:04 ]: >>819
「関数」はソース＋定義環境だから、ソースだけ取れてもそれを保存
するみたいなことには向かないだろうね。デバッグの助けにするだけなら
いいだろうけれど。

(let ((n 0))
(defun incr (k)
(incf n k)))

なんてした時に、incrのソースはどこからどこまで? ってことね。
823 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 16:34:30 ]: なるほど。Smalltalkのブロック（クロージャ）のソースは、メソッド（関数）のそれと
違って容易にはたぐれない…のと状況は似ていそうですね。ありがとうございます。
824 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 17:02:36 ]: www.shiro.dreamhost.com/scheme/trans/beating-the-averages-j.html
これ読んでLisp使いたくなりました。
入門サイト教えろこの野郎m(__)m
825 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 18:29:40 ]: >>824
ぐぐれこの野郎(^^)
826 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 18:41:45 ]: >>824
www.geocities.jp/m_hiroi/xyzzy_lisp.html
xyzzy向けの内容が入ってるけど
827 名前：デフォルトの名無しさん mailto:sage [2006/01/11(水) 20:37:58 ]: >>824
ttp://www.h7.dion.ne.jp/~matsu/feature/common-lisp/index.html

日本語のサイトではここが一番良かった。
828 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 19:50:45 ]: すまんがLispで生産性があがるってのはどのへんのせいなのでしょうか？
>>824　の本を読んで興味持ったんだけれどよくわからんです。
コンパイル->実行とかの過程も処理対象にできるっていうのはやりようで面白いことできそうかと思ったんですが。
いまはC#つかいなのですが、.NETでのReflection,CodeDOMあたりの機能でしょうか。
829 名前：デフォルトの名無しさん mailto:sage [2006/01/13(金) 20:10:48 ]: いろんな要素が絡んでるから難しいけど。
最近機能が増えた言語や開発環境(なんでもいい)で、これが入って
生産性が上がったなーってもんをリストアップしてみ。
そのリストはLispの生産性の高さの理由のリストとかなり重なると思うよ。
830 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 01:43:00 ]: 使用者への効果でいうと「マルチパラダイム」が一番大きいと思う．型がない．
手続き型でも関数型でも論理型でも並列型でもオブジェクト指向型でも，それ
に合わせられる．クラスによる分類が向かない分野では，迷う事なくそれ以外
の手法をとれるしね．

マクロによるプログラム変形とかはそういった言語カスタマイズのための道具
で，本当はこの「どんなパラダイムでもどんとこい」というのが最大のメリッ
トだと思う．個人的にはね．
831 名前：デフォルトの名無しさん [2006/01/14(土) 04:40:52 ]: あのー
おばかで申し訳ないですが、

自分、VC++でコンソールアプリ作っております。
一部のc++の関数をLispで置き換えたいと思っておるのですが、

これって可能なんでしょうか？

おしえてえらいしと
832 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 13:24:37 ]: >>831
だいたいできると思うけど、GC関係でいろいろややこしいところは覚悟しないといけない。
833 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 14:01:57 ]: 可能だけど，ある程度 C++ と Lisp の知識がいるよ．

1) DLL を出力できる Lisp コンパイラをもっている (普通の DLL と同じ)
2) ecl を組み込む
3) プロセス間通信する

3. がいちばん簡単かなー
834 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 17:27:18 ]: >>829
C++からC#にかわったんだけど
・Generics（これはC#1.0になかったものとして）　テンプレートでないのがちょっと不満。
・リフレクション
・デリゲート　呼び出しをオブジェクト化することでいろいろ使える。
・イベント　デリゲートの呼び出し管理の簡略化
・リモーティング　プロセス間呼び出しを楽にした感じ
・インテリセンス（これは開発環境）　これあってすごい楽になった。ヘルプとか引く回数激減。
条件に基づいてコード生成、それの管理とかできるともっといろいろ面白いことできるのかなぁとおもうけど。
835 名前：831 [2006/01/14(土) 17:46:11 ]: >>831
>>832

情報㌧クス

・・・ここ数日間、GCL,CLisp ( Chicken, Gambit-C )
が吐き出すCコードをVCでコンパイルして.Libを作成しようとしてますた

直接　DLLを出力できるLispコンパイラ使わないと駄目何すね

・・・DLLを出力できるLispコンパイラ、知っていたら教えてくらはい
（上で騒がれてた、ACLってやつなのかな？）

教えて訓でスマソ
836 名前：831 [2006/01/14(土) 17:48:34 ]: ↑
↑　自分に礼いってた　orz

>>832
>>833
ですた
837 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 17:55:44 ]: >>834
敢えて挑発的に書けば...

Generics: 動的型なら元から不要
リフレクション: 元からある
デリゲート: クロージャの劣化再発明
イベント: クロージャが無いから無理してる
リモーティング: S式送ってevalさせればいいだけじゃん
インテリセンス: 80年代からあると思うけど

もちろん、静的型言語が持つ型安全性の保証とかはLispは弱い。
自分でがりがり書けば出来なくはないけれど。

条件に基づいてコード生成って?
838 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 18:10:18 ]: LispWorks はできるよ．ACL もできるんじゃねーかな．
ECL もできる．GCL もできそうだけど… GCL 知らないスマン

# しかし CLISP は C コード吐かないだろう．
839 名前：831 [2006/01/14(土) 18:43:48 ]: >>838

どうもっす
ECLでゆきます

・・CLisp、間違えます田
色んなのためしてたらわからなくなてた

ありがとうございました
840 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 19:04:59 ]: >>837
C++から入ってC#やってるのでその辺の概念がまったくわからんです。
なんか最近頭がうにになってるし。
オブジェクト指向に頭が固まってる希ガス。

Lispというか関数型の利点がいまいちわかってないのでC++とかだとこんな風にしかできないけどそこをこんなエレガントにできるよって感じで教えてもらえないですか？

条件に基づいてコード生成ってのは、画面の生成とかをXAMLみたいなスクリプトに落として扱ってるんだけれどそれをそのままプログラムコードで生成したりしとか操作に基づいてロジックを生成してそのままプログラム中で扱えたりするといろいろできるかという話。
841 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 20:25:20 ]: >>840
>操作に基づいてロジックを生成

これって具体的にはどういうイメージで言ってるの?
842 名前：デフォルトの名無しさん [2006/01/14(土) 23:07:07 ]: gclでｳｨﾝﾄﾞｳを生成してその中で二点を定めて
線を引くというような簡素なプログラムを組みたい
のですがどうすればよいでしょうか？どなたかご存知な
方お願いします。
まずｳｨﾝﾄﾞｳを生成するやり方からわかりません。。
843 名前：デフォルトの名無しさん mailto:sage [2006/01/14(土) 23:29:43 ]: GCL 使った事無いけど、これじゃないの?
Tcl/Tk は別途インスコする必要あるかもしれないけど。

www.sunsite.ualberta.ca/Documentation/Gnu/gcl-2.3.6/html_mono/gcl-tk.html#SEC55
844 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 00:02:22 ]: >>841　行った操作を覚えたりとか、拡張言語として使うとかですかね。
845 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 00:41:22 ]: >>843
ありがとうございます。
結構使えそうです。
846 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 02:04:13 ]: >>837
> インテリセンス: 80年代からあると思うけど
あればなんでもいいってわけじゃないだろｗ
開発環境が（良くも悪くも）重厚長大ですげえんだよMSのは。
847 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 02:22:14 ]: >>846
世界の狭い奴だな
848 名前：デフォルトの名無しさん [2006/01/15(日) 04:14:14 ]: lispのコンソールから打ち込んだ文字（プログラムを走らせる前）
をすべて保存するようにしたいのですが、
打ち込んだ文字列は、なんていう変数やらストリームに保存されてるんですか？
849 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 04:21:20 ]: つwww.franz.com/support/documentation/7.0/ansicl/dictentr/dribble.htm
850 名前：デフォルトの名無しさん [2006/01/15(日) 04:33:06 ]: ありがとうございます。
でも、コマンドラインの変数名も知りたいのです。
わからないでしょうか？
851 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 08:15:48 ]: あ、そういうことか。失敬。
それは処理系依存だと思う。例えばAllegroならcommand-line-argumentsという
関数で取れる。処理系のマニュアルを読むべし。
852 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 09:38:00 ]: >>847
しかしあのＭＳの統合開発環境に太刀打ちできる環境はないな。
853 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 09:51:57 ]: まーGeneraの頃とはソフトウェアの規模が違うのは認めるが。
854 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 10:18:37 ]: MSの貧者の統合環境ってどうなんだろうね。
敷居を下げたのが功か無能を引き入れたのが罪か。
855 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 10:29:10 ]: レベルの低い開発者をふるい落とすのは開発環境の役目ではない
856 名前：３５０ [2006/01/15(日) 11:06:09 ]: ＞＞３５１
kyoto common lispのコマンドラインの変数名を知りたいのですが、
ネットでは見つかりません。
しらないでしょうか？
857 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 11:07:04 ]: 優れたデバッガのおかげで本来動くはずのないプログラムが出たとこ修正で動くようになる。当然、潜在バグてんこ盛り。
論よりＲＵＮとか言っているアフォも居るし。
Lispもそんなもんなのか？
858 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 11:46:22 ]: >>856
アホがよって来るから、メール欄に sage って入れてくれ。
859 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 14:30:44 ]: 早く common-lisp.net 復旧しないかな...
860 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 14:37:43 ]: .NETで使えるLispというのはないんでせうか？
ちょっとみたけれどわからず・・・
861 名前：デフォルトの名無しさん mailto:sage [2006/01/15(日) 14:43:09 ]: >>860
ある。
862 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 00:04:23 ]: ソースつきサンプルが標準でどっかのディレクトリに入って滝がした
863 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 01:34:22 ]: >>860 .NET 向けなら LSharp ってのがあるよ．まぁ，Common Lisp でも Scheme でもないけど．
864 名前：デフォルトの名無しさん [2006/01/16(月) 03:23:56 ]: kyoto common lispのコマンドラインの変数名を知りたいのですが、
誰か知りませんか？
865 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 05:06:02 ]: つうかなんで今更KCL?
GCLならsi:*command-args* みたいな名前の変数だったと思う。
とりあえず、aproposでそれらしい名前を探してみたら?
866 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 14:29:04 ]: オブジェクト指向が染み付いてるんですが、LISPってどんなイメージでプログラミングするの？
867 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 16:35:33 ]: クラスを定義してメソッドを書いてゆく。(こともできる)
868 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 16:38:07 ]: >>867　それオブジェクト指向とどう違うの？
869 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 16:51:22 ]: 違わないだろ
Lispでもオブジェクト指向やれますよって言ってるんだから
870 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 17:05:27 ]: んじゃ、オブジェクト指向的に書くとして、その場合のJava、C++などとの違いはどこに出るの？
871 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 17:22:49 ]: >>870
括弧
872 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 17:35:38 ]: >>871
まあ、依然としてLispである、ってとこかな。
873 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 18:12:17 ]: >>872　そのLISPであるのはどこ？
874 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 18:15:40 ]: >>873
括弧
875 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 18:20:36 ]: 単に「JavaやC++と比べてLispはどう違うのか」の答と一緒かと
876 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 18:27:39 ]: >>875
最初の質問に戻るかも試練が・・・わかんねーよｳﾜｧﾝ。
877 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 18:29:17 ]: On Lisp の最初の方を読むといいかも。
878 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 18:42:58 ]: >>877
みつけますた。よんでみます。
ただまとめて印刷できるページがほしかった・・・
879 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 20:41:02 ]: スピード面とか考慮したうえでLispに向くもの向かないものってあるんでしょうか？
880 名前：デフォルトの名無しさん mailto:sage [2006/01/16(月) 22:37:05 ]: LSharp以外に.NETでつかえるLispあるならつかいたいんだがどうよ。
881 名前：831 [2006/01/17(火) 00:03:55 ]: ECLを使って見ますた

Windows上でインストールさせて、
簡単な関数を書いたLispファイルをコンパイルしてみると
おぉ、ECLから.dll　.Lib　.hファイルを取得できますた

早速C++に組み込んでみようとすると、
　..わからん、どうやって引数を渡すんだ？

マニュアルとECLのヘッダーファイルを週末読み込んでみたものの、
わたすの低レベルな頭ではプログラムを走らせることができませんですた
（変換された関数はECL独自の構造体(共有体?)しか受け取ってくれない）

やはりCに書き出すことはできたとしても、
Lisp->Cへの組み込み時において、変換された関数のインターフェースが
問題であることをようやく理解。

そこで今回、Lisp->Cのインターフェースがうまく扱えそうな
LispWorksに方向転換してマニュアルを呼んでます

LispWorksで変換したLispコードをCから呼び出してる人、
使い心地はどうですか？
知ってる人おりましたら、おしえてくらはい。

・・・長文、駄文、あと頭悪くてすいません
882 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 00:06:55 ]: >>880
何で .NET が良いのか、LSharp の何が気に入らなかったのかを書いたら
教えてやらんでもないけど、マイナーな処理系使っても幸せにはなれないよ。

>>876
個人的には REPL の有る無しが大きい。データを直に触りながら書く感じ。
883 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 01:11:33 ]: >>831

メール欄に sage って書いてホスィ．ひょっとしてPerl とか Python とかの組
み込みの経験ないってこと？むーC / Lisp ともにちょっとスキル不足かもしれ
ない．

LispWorks の使い心地だけど

(fli:define-foreign-callable ("Double" :result-type :int)
((x :int) (y :int))
(* x y))

で DLL 作ると int Double(int x, int y) { return x*y; } に見える．
884 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 02:17:35 ]: >>882
．ＮＥＴの理由：既存資産があるしライブラリあるから
LSharp以外の理由：LSharpは気に入らなかったのではなく比較のため。
885 名前：884 mailto:sage [2006/01/17(火) 02:20:44 ]: 眠いとだめだな日本語おかしい・・・orz
ライブラリ->マイライブラリ
LSharpは->LSharpを
886 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 02:24:04 ]: >>884,885
ほい。

dotlisp.sourceforge.net/dotlisp.htm
www-sop.inria.fr/mimosa/fp/Bigloo/
887 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 02:46:43 ]: >>884, 885
ほれ．

RDNZL - A .NET layer for Common Lisp
www.weitz.de/rdnzl/
888 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 02:48:57 ]: >>884,885
あと、この辺かな。

weitz.de/rdnzl/
foil.sourceforge.net/
bc.tech.coop/blog/040927.html
bc.tech.coop/blog/041210.html
bc.tech.coop/blog/041216.html

せっかく答えてくれたのに、参考にならなかったらｽﾏｿ。
889 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 02:50:32 ]: わぉ、こんな夜更けに被ってしまった...
890 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 03:27:55 ]: >>879
Lisper は環境に合わせて Lisp 処理系を書いてしまうから、向かない物は無いとも言える。
GOOL とか XS Lisp とか LispMe とか Schemix とか。LispM もあったし。

向いてないのは、人月投入してナンボのプロジェクトとかかな。Lisper は希少種だから。
891 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 10:55:18 ]: 正式発表キタ！！

>A port of OpenMCL to X86-64 (AMD64) Linux is underway;
>it's scheduled for release in Q2/2006.

openmcl.clozure.com/index.html
892 名前：デフォルトの名無しさん mailto:sage [2006/01/17(火) 10:59:58 ]: >>886-888　さんくすこ。みてみます。
893 名前：831 mailto:sage [2006/01/18(水) 01:04:30 ]: >>883
情報サンクス

使い勝手、よさそうですね
マニュアルのページ参照できますた

Personal Editionだとファイル出力できないことがたった今判明。
..約１１万かぁ　要検討します

おっしゃるとおり、組み込み系、Lisp共に超初心者です、はい。
Lispは本を1時間よんだくらい。まずは環境整備と思い、現在に至ります。
Cはちょいとかじってます。
言語解析やりたくてLIｓｐはじめようかと。

ついでに質問いいですか？教えて訓ですみません。
CまたはC++に組み込む場合、.DLLに加えて.h,.libファイルが必要ですよね？

マニュアルにこれらの出力関数が見当たらなかったんすけど、
きちんと装備されています？、LispWorks。
まちがい、かんちがいあったらすいません。

宜しくお願いします。

sage気おつけます。２ｃｈ書き込みも実は８３１がはじめて。
894 名前：デフォルトの名無しさん mailto:sage [2006/01/18(水) 01:44:47 ]: > 言語解析やりたくてLIｓｐはじめようかと。

自然言語解析だとすると LispWorks は日本語対応が UNICODE のみなんで，お
すすめできないなぁ．あんまり日本語処理強くないよ．最終目標はどんなかん
じなの？

> CまたはC++に組み込む場合、.DLLに加えて.h,.libファイルが必要ですよね？

DLL を LoadLibrary して使えます．でも普通は Lisp から C の DLL を呼ぶと
思うけどなー．そっちのほうが資料が充実してるし楽だ．あるいはソケットで
通信とかね．
895 名前：831 mailto:sage [2006/01/18(水) 21:35:14 ]: >>894

情報サンクス

言語解析はそんなレベル高いものではない（と思う）
というのも認知心理学ちょっとやりたくて買った本が
「Lispで学ぶ認知心理学」ってやつ。

そこにでてくるプログラム参考に勉強していこうかと。
ただ、1980年に出版されたもんだからユニコードうんぬんではないのです。
たとえば　"NINCHI" "SHINRIGAKU"とかで、全部ローマ字で処理。
文章とかの階層構造を定義したいなぁ、なんて。

ただここの本にでてくる考え方は学んでみたいとおもい、＆　組み込み対象が自作のC++プログラム。
っていうかんじです。

引き続き、組み込み向けのLisp、ソケット通信調べてみます。

長文駄文ソマソ。
896 名前：デフォルトの名無しさん mailto:sage [2006/01/19(木) 00:43:18 ]: >>895
clisp.sourceforge.net/impnotes.html#ex-call-in
clisp.sourceforge.net/impnotes.html#ex-call-in-dll
common-lisp.net/project/cffi/manual/cffi-manual.html#Tutorial_002dCallbacks
897 名前：831 mailto:sage [2006/01/19(木) 01:00:17 ]: >>896

･ﾟ･(ﾉд`)･ﾟ･なんでそんなにやさしいんですか？

有難う御座います。
がんばります。

...職場の人だってここまでやさしくない
898 名前：デフォルトの名無しさん mailto:sage [2006/01/19(木) 05:00:56 ]: >>895　あれってMACLISPじゃなかったっけか？
899 名前：831 mailto:sage [2006/01/20(金) 00:25:21 ]: >>898

ども。

本には「APPLE LISP」を基準にしているとの記述が。
中まだ呼んでないからわからないけど
defun を　DE で記述ますね。

今日は帰りが遅かったからほとんど手付かず。

週末はLisperになりたい。
900 名前：デフォルトの名無しさん mailto:sage [2006/01/20(金) 01:44:44 ]: まーがんがれ。言語仕様はずいぶんかわってるので，アルゴリズムに集中して
勉強したほうがいいね。まぁ，おれはその本読んだ事ないのでアレだけど，お勧めは

- C をある程度知っているなら ANSI Common Lisp あたりを読んでみる
- 難しいと感じたなら，古い本だけど培風館の Lisp (1) (2) に挑戦
こっちは学生に訳させたのか日本語が破綻しているが，内容的には
入門から簡単な Garbage Collection の仕組みまでと充実してる．
- 英語が苦にならないなら Practical Common Lisp とか Norvig の PAIP，OnLisp とか
アカデミックな風味が好きなら Programming Scheme, HTDP, SICP にも挑戦してもいい

自然言語ネタならPAIP にもちょっとあるよ．PAIP の一番最初の例はルールベー
スのランダム文章作成だよん．

(defparameter *simple-grammar*
'((sentence -> (noun-phrase verb-phrase))
(noun-phrase -> (Article Noun))
(verb-phrase -> (Verb noun-phrase))
(Article -> the a)
(Noun -> man ball woman table)
(Verb -> hit took saw liked)))
(defvar *grammar* *simple-grammar*)
(defun rule-lhs (rule) (first rule))
(defun rule-rhs (rule) (rest (rest rule)))
(defun rewrites (category) (rule-rhs (assoc category *grammar*)))
(defun generate (phrase)
(cond ((listp phrase) (mappend #'generate phrase))
((rewrites phrase) (generate (random-elt (rewrites phrase))))
(t (list phrase))))
901 名前：デフォルトの名無しさん [2006/01/20(金) 21:09:46 ]: kyoto common lispのコマンドラインの変数名を知りたいのですが、
誰か知りませんか？
902 名前：デフォルトの名無しさん mailto:sage [2006/01/20(金) 21:21:08 ]: 変な宿題出してるがっこがあるようだな。
pc8.2ch.net/test/read.cgi/tech/1132275726/349
903 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 00:10:07 ]: いまどき KCL ？？？ネタか？しかも本スレとマルチ？
メール欄に sage もしくは学生番号を書いたら考えるけど……
904 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 00:42:29 ]: >>856 >>864 も
アフォは無視すれ
905 名前：831 mailto:sage [2006/01/21(土) 01:13:44 ]: >>900
応援サンクス.参考書チェックしてみす。
今度町にでたら立ち読みしなければ。
...ランダム文章作成　ひじょーに博学ですね。
わたすの頭からあれがでてくるよう念じたら　いつかでてくるのかな

週末だけのうみそ交換しませんか？

...毎度すいません、教えてくんになってよいですか。
教えて頂いたURL、目を通して見ます田。２つ質問あります。
1つ目：Example31.7 Calling Lisp from C dynamicallyの考え方、
　　　これであってます？↓
------Lispソース(FFI含む)----
| |
|(インターフェース部を書いた|
|　Cソースを |
| コンパイルしたdll) |----------------> (Lispソースを
| | ↑　　　　　　コンパイルしたDLL)
| | CLisp　　　　　　　　　　
|---------------------------| でコンパイル　　　　　　↑C/C++に組み込み可

2つ目：もう一つ御願いします。
ClispではFFIを使用するためには特別な操作が必要なんすか？
上記考え方に基づいて
Example31.7のCソース部分からDLLを作成。
その後Lispソース部で作成（.dllの名前はきちんと入力）。
できたhoge.ｌispファイルを(load "hoge.lisp" )すると
CLispが「skip (DEF-CALL-OUT CALLOUT # ...」っていってとまっちゃいます田。

アドバイス頂けませんか？宜しくおねがいします。
906 名前：831 mailto:sage [2006/01/21(土) 01:20:28 ]: orz　絵がずれちゃいました。

訂正

-----Lispソース(FFI含む)--------------
| インターフェース部を書いたCソースを|------------------------->C/C++で組み込み可能なDLL
| コンパイルしたdll__________________| Clispでコンパイル
--------------------------------------

またずれたら逝きます
907 名前：831 mailto:sage [2006/01/21(土) 01:33:09 ]: スレよごしすいません

再訂正
１. インターフェース部を書いたCソースをCコンパイラ（VC＋＋）でDLLを作成
２. VCからでできたDLLをLispソースに組み込んで、CLisp（FFIパッケージ使用）でコンパイル。
３. CLispからでてきたDLLをC/C++に組み込む
　　　　　　　　　　
...すいませんでした。
908 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 01:40:25 ]: 残念．CLISP の FFI ってのは CLISP から Dynamic Library (DLL とか) を扱
うための仕組みのこと．

CALL-OUT: CLISP から DLL の関数を呼び出す
+-------+ -----> +-----+
| CLISP | | DLL |
+-------+ <----- +-----+
CALL-IN: DLL 内から CLISP の関数を呼び出す

なので，C/C++ に組み込み可能な DLL は CLISP では作れない．ずいぶん
C/C++ にこだわりを持ているようだけれど，ゲームでも作ってそっから Lisp
の機能を呼びたいのかな？
909 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 01:46:17 ]: CLISP は DLL を出力できません．ので，C のアプリから CLISP で作った機能を呼び出すには

1. ソケットを使う
2. パイプを使う
3. 共有メモリを使う (CLISP に拡張がいるかな？)

のいずれかの手段が必要です．
910 名前：831 mailto:sage [2006/01/21(土) 02:01:40 ]: >>908

解説、ありがとうございます。
自分、英語苦手なのばれちゃいましたね。

学生のときC/C++で記憶のモデルをつくってますた
へたれな出来だったけど。
へたれソフトには一応それなりに考えて実装しますた。
それはそのままにして、新しい機能をLispで加えられたらと。
当時の研究、あまりいい結果でなかったけど
おもしろかたんで社会にでても時間みつけてつづけてるって感じです。

...素直にLispWorks購入しようかな
911 名前：831 mailto:sage [2006/01/21(土) 02:08:25 ]: おお、
すいません、すれちがっちゃいました。

まずはアドバイスのとおり1,2,3について調べてみます
情報ありがとうございます。
ホント、世話になってます
912 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 11:06:07 ]: WindowsならCorman Common Lispって手もある。IDE使わなきゃ無料だし、
ソースコードもついてたハズなんで見てみれば？
トライアル版とはいえAllegro Common Lispに手を出してしまうとアホらしくて
他の処理系を使う気が失せるが個人で購入するには高すぎて手が出せない罠。
913 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 12:30:40 ]: Cormanって日本語使えるようになったの? 以前試したときはダメだったけど。
914 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 13:28:16 ]: >>912
そんなに高くは無いだろ。
915 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 22:49:24 ]: Allegro, UNIX でもマルチスレッドに対応にしてくれると
多少高くても買うんだけどなあ…
916 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 23:07:47 ]: >>914
え？いくらなの？ 50 万くらいかと思ってたけど
しかもそれでランタイムライセンスなしみたいな…
俺騙されてた？
917 名前：デフォルトの名無しさん mailto:sage [2006/01/21(土) 23:21:37 ]: 一番安いのだと十数万じゃなかったっけ。
918 名前：デフォルトの名無しさん [2006/01/21(土) 23:46:29 ]: 本には
(setf x '(a b c))
(setf (nthcdr 2 x) '(1 2))
とすると、xが(a b 1 2)となると書いてあるんですが、
エラーになります。処理系によって違いがあるんですか？

自分が試したのがclispとAllegro CL (共にWindows)で、
本が想定してるのがMac Common Lispです。
919 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 00:05:42 ]: www.lispworks.com/documentation/HyperSpec/Body/03_abac.htm
The consequences are undefined if literal objects (including
self-evaluating objects) are destructively modified.

本の名前晒せ
920 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 00:14:11 ]: Mac Common Lispの動作としてそうなるという説明であれば正しい
記述なのかもしれない。>>919の言うように現在のCommon Lispの
仕様としては「不定」が正解。

ただし、動作が不定であるということが明確化されたのはCLtL2から
だからそれ以前の本ならそういう記述があっても止むを得ない。
921 名前：デフォルトの名無しさん [2006/01/22(日) 00:21:24 ]: >>919
本はこれです。
プログラミング言語Lisp入門からマルチメディアまで ASCII SOFTWARE
www.amazon.co.jp/exec/obidos/ASIN/4756139264/

今初めてアマゾンでレビュー見たんですが、
どうやらMacに依存した内容が多いようですね。

上のコードはMacじゃないと動かないという事なんですね。
922 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 00:30:39 ]: エラーの原因はリテラルオブジェクトの書き換えではなく、(setf nthcdr)の未定義
じゃないかな。手元のclispだと、
(setf x '(a b c))
(setf (cdr x) '(1 2))
ならちゃんと通って、x = (A 1 2) になる。元のプログラムだと(setf nthcdr)の未定義
でエラーになる。
923 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 00:44:13 ]: OpenMCL では問題無し。SBCL では (setf nthcdr) の未定義でエラー。

% ./dppccl
Welcome to OpenMCL Version 1.0 (DarwinPPC32)!
? (setf x '(a b c))
(A B C)
? (setf (nthcdr 2 x) '(1 2))
(1 2)
? x
(A B 1 2)

MCL 系に依存したコードみたいね。>>921 の本は ANSI CL という
よりは MCL の使い方を書いた本なんで問題無すぃ。
924 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 01:20:08 ]: >>915
Windows以外はまだOSスレッドに対応してないんだっけ。8.0でも変わらないのかな。
925 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 02:01:16 ]: >>831
VB だが。

www.cs.stevens.edu/~dlong/vbecl/
926 名前：918 [2006/01/22(日) 09:23:08 ]: 皆さんありがとうございます。
ANSI標準のCommon Lispを勉強したかったんで、別の本を探して見ます。
Common Lispならどの処理系でも同じなのかと思ってました。
927 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 10:50:15 ]: >>916
前は10万円以下のがＨＰでセールスしてたが今はアカデミック向けのが99ドルで載ってるな。
928 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 11:53:28 ]: >>918
> ANSI標準のCommon Lispを勉強したかったんで、別の本を探して見ます。
仕様には規定されている事とされていない事がある。specified と unspecified ね。
さらに実装依存(implementation-defined)と定義されている事もある:
(例) (disassemble) での表示形式とか
declare で最適化するとかしないとか
は規格で「実装による」と規定されている。だから本 + HyperSpec をつきあわ
せながら勉強してけばいいんじゃね。ANSI Common Lisp (Paul Graham) あたりは
入門にはちょっと難しいと思われ。英語でもがんがる気合いがあるなら
Practiclal Common Lisp がオススメ

>>927
もう卒業したんでアカデミックダメポ…。学生時代はアカデミックが安ければ
いと思っていたけどな。アカデミックが安いだけではダメな事に気がついた。
予算は Win なら MSDN にもってかれちゃうしな。
929 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 12:00:57 ]: >>924
してない.
7 -> 8 の差分ってすごく小さい
930 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 13:19:36 ]: >>895
> >>894
> 情報サンクス
> 言語解析はそんなレベル高いものではない（と思う）
> というのも認知心理学ちょっとやりたくて買った本が
> 「Lispで学ぶ認知心理学」ってやつ。

おおおっ、もしやサンプルがAPPLE LISP でプログラムされているやつでは！
931 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 13:28:49 ]: APPLE LISP は8bitマシンであるAPPLE ][ 用に慶応大の大西先生が
実装した処理系ですね。 6502のマシン語で書いたそうです。

メモリの一部がグラフィックメモリと共用なのでガベージコレクションして
いるのが”見えた”ので教育用としても有用だった。
932 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 13:48:36 ]: >>931
をいをい、大西先生じゃねーよ。中西先生な。死んじゃったけど。
933 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 15:02:48 ]: >>923
OpenMCL では本当に問題ないのかなあ。CMUCL や SBCL では
(setf x '(a b c))
(setf y '(a b c))
(setf (cdr x) '(1 2))
(print (list x y))
をコンパイルしてロードすると、リテラルが共有されるため
((A 1 2) (A 1 2))
となるんだけど、そういった想定外のことが起こったりしない?
934 名前：デフォルトの名無しさん mailto:sage [2006/01/22(日) 15:47:12 ]: OpenMCL では↓になったけど、リテラルリストに破壊的操作をするのは良くないですね。

((A 1 2) (A B C))

(proclaim '(optimize (speed 3) (space 0) (debug 0))) しても一緒でした。
OpenMCL が SBCL や CMUCL に比べて遅いと言われてるのは、こういう所からなのかな。
935 名前：831 mailto:sage [2006/01/22(日) 23:26:26 ]: どもです。

>>912
情報サンクス
Corman Lisp 調べてみますた。

これ、なかなか使いやすそう。
お値段も　249$ (3万弱?)くらいで手が届く。
サンプルソースから推測するに、
実はこれC/C++に組み込めるのでは？（しかもCとのインターフェース部、自分でも扱えるレベル！？）
ちょいいじってDLL出力させてみたとこ、ヘッダーとDLLでてきますた。
LoadLibraryでVC++から読み込ませたら一応コンパイルは通った。
実行させると　ダイアログで「Cormanなんとか.dll」がなんとかかんとかって言ってた。
お金はらえば、わたすの願いかなうんですかね？
ソケット通信調べる前に、もうちょいいじってみます。

>>925
情報サンクス
ダウンロードさせていただきます田。
時間あるとき、いじらさせて頂きます。

>>930、931
自分、全くの初心者なんでAPPLE Lispのすごさわかりませんが、とても読みやすいと感じますね。
環境整えてからって思ってたけど、今日からこの本を読み恥じめてます。
自分の場合、手段(Lisp)と目的(認知)が同時に学習できますんで、効率的だと思ってアマゾンで購入。
3巻同時に手に入れられたのは運がよかった。
んー　ホントにLisperになりたい。

900さんにも言われたとおり、
アルゴリズムに集中して勉強してゆきます～
936 名前：831 mailto:sage [2006/01/23(月) 01:43:11 ]: >>935　にて
>ちょいいじってDLL出力させてみたとこ、ヘッダーとDLLでてきますた。
訂正：
すいません、勘違い訂正します。
もともとあったexampleフォルダ内で用意されてたtestdll.dllを利用しますた

んー最近すれよごしばかり。
少し書き込み控えます。
937 名前：デフォルトの名無しさん mailto:sage [2006/01/25(水) 00:52:04 ]: c.l.l.のなが～いスレッド読んで知ったこと。
ACLって成果物(って呼び方でいいんだろか)配布するのに毎年ライセンス料を払い
続けなければいけないらしい。へぇ。だから皆高い高いって言うんだ。
これってGCCで作ったバイナリ勝手に配っちゃダメって言ってるのと一緒でしょ？
間違ってたら訂正願います＞詳しい方
938 名前：デフォルトの名無しさん mailto:sage [2006/01/25(水) 01:23:54 ]: まぁ (loop (print (evel (read)))) みたいなのコンパイルしてバイナリ配ったら
Lisp そのものになっちゃうからな。配布ライセンスが必要という気持ちも理解
できないことはない。

個人的にはフリーソフトの発展に期待。
939 名前：831 mailto:sage [2006/01/26(木) 00:44:57 ]: 例題をやってて呼び出せない関数がいくつか。

put (putpropもだめ)
unpack (explodeもだめ)
maknam (pack inplodeもだめ)

現在、Corman LIsp使ってます。
これら関数の別名もしくは使い方知っているひといたら教えてください。

>>Corman Lisp使っている人
trace の使い方、教えてください。

・・・教えて訓ですいません
940 名前：デフォルトの名無しさん mailto:sage [2006/01/26(木) 00:51:37 ]: >>939
それぞれ
setf + get
symbol-name
make-symbol
で代用すべし。つーか、Common Lispの仕様持ってないの？
941 名前：831 mailto:sage [2006/01/26(木) 01:05:18 ]: >>940

情報サンクス

>つーか、Common Lispの仕様持ってないの？

今週末、本買いにゆきます
すいません～
942 名前：デフォルトの名無しさん mailto:sage [2006/01/26(木) 01:06:13 ]: >>939
その聞き方じゃ現代 Lisper にはわかんねーよぅ
943 名前：デフォルトの名無しさん mailto:sage [2006/01/26(木) 01:23:25 ]: car とか cdr とか禁止で

短くていいじゃんと思う俺はきっと汚染されてる
944 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 05:11:44 ]: >>939
(trace 'func)
でトレースしたい関数の記号を引数にとる。
あとは普通にfuncを実行すればトレースの結果が表示される

ところで、いい加減Javaくらいできないとマズいかなと思い
借りてきた本の著者が井田昌之だった
945 名前：デフォルトの名無しさん mailto:sage [2006/01/27(金) 09:56:04 ]: lispができるならJavaいらんだろ。CがまだならC、CができるならC++かC#にしとけ。
946 名前：デフォルトの名無しさん [2006/01/29(日) 13:22:00 ]: gclのソースを弄って、gclを立ち上げるときに、
自動的にこちらの指定したlispのコードを実行させるようにしたいのですが、
どうすればいいでしょうか？
947 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 13:36:57 ]: 宿題は自分でやれ。
948 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 13:59:48 ]: >>946
そんなのソースをいじらんでもコマンドラインオプションでできねーか？
949 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 14:04:10 ]: どこの小学校だ、変な宿題出しているのは。
950 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 16:00:26 ]: 理素譜
951 名前：デフォルトの名無しさん [2006/01/29(日) 16:29:24 ]: gclを弄って、ｇｃｌが起動したら、自動的にlispのコードが実行されるようにするのが、
課題なんです。
ｇｃｌのstdinに、lispのコードでもプリントで書き込めばいいのでしょうか？
わけわからん。
952 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 16:39:04 ]: お前にはセンスも才能も将来もないことはよくわかった。
向上心が少しでも残されてるなら宿題は自分でやれ。
953 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 16:50:14 ]: ってか出題者は何を意図してんだろ。本気で小学校レベルなのかな。
954 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 17:06:54 ]: >>953
”翻訳”を通すとこうなる。
よくあることなので気に病まないほうがよい。
955 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 17:09:21 ]: 少なくともLispの課題ではないのだろう。（C言語の課題かな？）
正しい質問場所を見つけるのも課題なのかな。ｗ
956 名前：デフォルトの名無しさん [2006/01/29(日) 17:31:19 ]: 日本人です。
gclを起動→自動的にlispの関数が実行され、
読み込み状態になる。

を実現しなきゃいけないんです。
処理系弄るの初めてなので、
ちょっと困ってます。
957 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 17:35:50 ]: >>956
そうですか。ちなみに私は困っていません。
958 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 18:23:55 ]: おまいらちゃんと>>1を読み直せ。このスレはまた～りが信条じゃなかったのか？
GCLってとこが致命的だな。いまどきGCLメインで使ってる人ってどれくらい居るんだろ。

普通に考えたらREPL起動前にユーザ定義の処理を走らせるとかその程度のことは処理系が
持ってるはずなんで>>948の言い分を調べてみるのが先決かと。
調べた結果「無い」ってことならそれを実装しろってのが課題の主旨と思われるので
REPLに突入する前に自前のコード突っ込めば終わりじゃね？
959 名前：デフォルトの名無しさん mailto:sage [2006/01/29(日) 18:29:04 ]: Lispの授業じゃなくてコードリーディングみたいなのの課題なんじゃない？
さすがにスレ違いだと思うよ。
960 名前：デフォルトの名無しさん [2006/01/30(月) 00:02:17 ]: gclに、iniファイルとかは使えますか？
961 名前：デフォルトの名無しさん mailto:sage [2006/01/30(月) 00:05:06 ]: >>958
もうちょいまともな聞き方すれば数日前に答えが手にはいったのにな。
ちょっと酷いからスルーしてしまってた。

1. まず hogehoge.lisp ってファイルをエディタでつくる。
% vi hogehoge.lisp
2. -load オプションをつかって gcl を起動する
% gcl -load hogehoge.lisp
最近の GCL ならこれで gcl が起動し hogehoge.lisp を読み込まれる

もし本当に GCL を改造しろという課題なら 2ch でダメダメな質問してる時点
で自力で解くのは諦めたほうがいい。クラスのできそうなやつに飯でもおごる
とかしてやってもらうのが唯一の方法だろ。

>>958 行動を選択してください [A/B/C]
A. 知りたい事がわかったので礼も言わずに消える
B. 礼を言って消える
C. 回答が的はずれだ俺の知りたい事はxxxxとかいいだす
962 名前：デフォルトの名無しさん mailto:sage [2006/01/30(月) 00:14:34 ]: 2ch でだいぶんトンデモ質問にも慣れたと思っていたけどこれは…
もう超能力で補うしかねぇな。まっとうなところなら

A. GCL のオプション設定を ini ファイルで指定できますか？
→ コマンドラインからの ni ファイルの解析を自分でやらないと標準で ini ファイル

B. GCL で ini ファイルを読み書きするライブラリは標準でついていますか？
→ ついてません。ini ファイルの読み書きがしたい場合は自力でなんとかしてください。

C. GCL で ini ファイルを読み書きする事は可能でしょうか？
→ 自分で処理を書く、Win32API を呼び出すなどすればできます。が C でini が扱える程度の技術が必要です。

どれか当ってねぇかな～と期待
963 名前：デフォルトの名無しさん [2006/01/30(月) 00:22:34 ]: すみません。
gclを起動したら、初期設定ファイルを読み込んで、
こちらの指定したコードを実行させるようにはできないかと思ったのです。
schemeではiniファイルを読ませることができたので。
どうすればいいですか？
964 名前：958 mailto:sage [2006/01/30(月) 00:30:10 ]: ぉ。風呂から出てきたら俺が質問者になってるみたいだな。
ほんじゃ>>961 の回答は以下でファイナルアンサーってことでよろしく。

D. 誰か次スレ立ててねはぁと(w

あと質問してる人、sage覚えてね。
965 名前：デフォルトの名無しさん mailto:sage [2006/01/30(月) 00:36:19 ]: >>958 殿へ
どうみても誤爆です。
拙者責任をとって切腹つかまつるゆえ次スレは立てられませぬ。
966 名前：デフォルトの名無しさん mailto:sage [2006/01/30(月) 00:38:39 ]: 次スレいらんだろ。
このスレ使いきるまで一年以上かかってるし、本スレに合流でいい。
967 名前：デフォルトの名無しさん mailto:sage [2006/01/30(月) 00:49:46 ]: >>961
> 本当に GCL を改造
main関数をmain2とかに改名して、
argcとargv弄るだけ…でいいんだろうか。
それだと学校の課題としては変だよなぁ…。
968 名前：デフォルトの名無しさん mailto:sage [2006/01/30(月) 00:54:34 ]: GCLの質問する奴、みんな質問の仕方が妙だよな。
気になるから誰か課題の全文をウプ汁。
おじさんが模範解答を作ってやる。
969 名前：デフォルトの名無しさん mailto:sage [2006/01/30(月) 01:18:05 ]: 何か盛り上がりそうだけど本スレ汚すのも気が引けるんであふれたら
過疎化したスレのリサイクルにご協力をお願いします。

【一日】CommonLisp【一門】
pc8.2ch.net/test/read.cgi/tech/1106587515/
970 名前：９６３ [2006/01/30(月) 01:22:43 ]: ＞＞９６７
「他のcのプログラムから、gclのmain関数を呼び出し、
その時点で、こちらの指定したlispのコードが実行され、
ユーザの入力待ち状態にすること」
です。
971 名前：デフォルトの名無しさん mailto:sage [2006/02/01(水) 01:50:05 ]: >>970
ほんとにそんなダメ日本語な問題なのか？思い込みで解釈せずに正確に写せ。
あと Mail 欄には sage と入力してください。それができたら解答する。
972 名前：デフォルトの名無しさん mailto:sage [2006/02/02(木) 03:22:43 ]: >2006-01-30 02:39 gb
>
> * lisp-kernel/freebsd8664/: Makefile, elf_x86_64.x: New files.
>
> FreeBSD make (and gmake) both want to rebuild all .s files, but
> this otherwise seems to work.

FreeBSD にも対応するのかな。
973 名前：デフォルトの名無しさん mailto:sage [2006/02/04(土) 02:32:09 ]: Lispで記述された結構な量のライブラリがあって、これをC/C++から簡単に呼び出せる
ようにしたいのですがお勧めの処理系はどれになりますか？
LispからC/C++を呼び出す例はいろんな処理系でドキュメントが整備されてますが
逆はあまりやられてないようなので。ECLがC/C++との親和性が高いかなと思っていじって
いるんですがどの程度規格に準拠してるかとか、いまのライブラリがそのまま
コンパイルできるかなとか疑問な点がまだ多いので識者の意見をお聞かせいただければ、と。
974 名前：デフォルトの名無しさん mailto:sage [2006/02/07(火) 04:04:49 ]: 授業でLISP習ったんだけど
最初なんじゃこりゃ頭いてーと思ったけど
これ結構おもすれー（＾ω＾）
975 名前：デフォルトの名無しさん mailto:sage [2006/02/13(月) 23:01:02 ]: （eval '（＾ω＾）)
おもすれー
おもすれー
976 名前：デフォルトの名無しさん [2006/02/14(火) 16:39:01 ]: JAVAからclispを呼び出せるようになったのだが、何に使えるだろう？
977 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 19:36:49 ]: >>976
JAVAからclispを呼び出すのに使える
978 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 19:48:30 ]: >>977
それには気がつかなかった
979 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 21:49:00 ]: >>977
目からうろこが(ry
ま、clispがjavaから呼べてもLISPを使用しなければならない
業務処理が思いつかん。
やｈり無駄なものを作ってしまったか。
980 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 21:55:01 ]: Servlet を Common Lisp で書けたりすると面白いかも。
そうなると Lisp 自体も Java VM 上で動かして、高速に相互呼び出しできる
ようにしたくなるね。
981 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 21:58:04 ]: じゃ、ABCL で。
982 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 22:37:55 ]: >Java VM 上で動かして

それってjavaでlispの処理系を書くということ？
どこかにありそうな気がするな。
基本的にjarかなんかでjavaコードの中でlispコードが
走れば最高なんだけどな。
XMLのパースとか楽になるんだが。
983 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 22:40:37 ]: >>982
それが >>981(armedbear.org/abcl.html) です...
984 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 23:03:52 ]: >>983
すごいねｺﾚ。
早速使ってみるわ、thx
985 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 23:10:57 ]: (format t \"Hello, world!~%\")が8秒かかるんだが、
compileすれば早くなる？
986 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 23:16:04 ]: ｽﾏｿ。俺はちゃんと使った事がある訳じゃないんで詳細は知りません。
テキストエディタに使われているくらいだから、そんなに遅くはないと
思いたいけど。

armedbear-j.sourceforge.net/

JavaVM の起動とクラスのロードに時間が掛かってるとかじゃなくて?
987 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 23:21:24 ]: >JavaVM の起動

それだ。
別のVMを起動するのに時間がかかっているのか。
同一VMで動くようにすれば早そうだ。
988 名前：デフォルトの名無しさん mailto:sage [2006/02/14(火) 23:53:28 ]: うちではこんな感じ。jikes でコンパイルしてたから、javac ならもっと速いかも。
別の VM を起動したりはしないと思うよ。初回だけ妙に遅いね。

% ./abcl
Armed Bear Common Lisp 0.0.9 (built Tue Feb 14 2006 23:40:55 --900)
Java 1.4.2_09 Apple Computer, Inc.
Java HotSpot(TM) Client VM
Low-level initialization completed in 2.388 seconds.
Startup completed in 9.052 seconds.
Type :HELP for a list of available commands.
CL-USER(1): (time (format t "hello, world~%"))
hello, world
5.287 seconds real time
62770 cons cells
NIL
CL-USER(2): (time (format t "hello, world~%"))
hello, world
0.0020 seconds real time
67 cons cells
NIL
CL-USER(3):
989 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 00:54:59 ]: うちは Windows でやってみたが、やはり一発目は遅いね。
クラスライブラリのロードか何かだろう。

Armed Bear Common Lisp 0.0.9 (built Wed Feb 15 2006 00:49:19 --900)
Java 1.5.0_04 Sun Microsystems Inc.
Java HotSpot(TM) Client VM
Low-level initialization completed in 0.563 seconds.
Startup completed in 2.172 seconds.
Type :HELP for a list of available commands.
CL-USER(1): (time (format t "hello, world~%"))
hello, world
1.203 seconds real time
62770 cons cells
NIL
CL-USER(2): (time (format t "hello, world~%"))
hello, world
0.0 seconds real time
67 cons cells
NIL
CL-USER(3):
990 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 01:19:54 ]: すみません、インストールしてabclからjreのメソッドとかは呼び出せるんですがサンプルのhello.javaがコンパイルできません。
どうすれば・・・いいんでしょう
F:\abcl-0.0.9\examples>javac hello.java
hello.java:1: パッケージ org.armedbear.lisp は存在しません。
import org.armedbear.lisp.*;
^
hello.java:8: シンボルを見つけられません。
シンボル: クラス Interpreter
場所 : hello のクラス
Interpreter interpreter = Interpreter.createInstance();
^
hello.java:8: シンボルを見つけられません。
シンボル: 変数 Interpreter
場所 : hello のクラス
Interpreter interpreter = Interpreter.createInstance();
^
エラー 3 個
991 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 01:38:37 ]: >>990
cd examples
javac -classpath ../abcl.jar hello.java
java -classpath ../abcl.jar;. hello
みたいな感じで動いたよ。
992 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 01:46:49 ]: >>991
おお！動いた、動きましたありがとう！
993 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 13:05:42 ]: ABCLでだが
Interpreter interpreter = Interpreter.createInstance();
LispObject obj = interpreter.eval("(print (directory \"c:/\")");
これが動かない理由が分からない。
XYZZYだと動くんだが。
994 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 13:54:15 ]: >>993
Common Lisp の仕様判ってる？
xyzzy なんて方言を持ち出されても・・・
995 名前：ｹﾞﾊｼﾏ mailto:sage [2006/02/15(水) 19:17:27 ]: >>994
偉そうに言うだけか？
仕様とやらを示してみろよ
996 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 20:17:09 ]: >>995
大馬鹿発見！！
997 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 20:18:53 ]: とりあえず >>102
998 名前：993 mailto:sage [2006/02/15(水) 20:59:40 ]: >994
主にjavaしか触らないので言語仕様は良くはしらないが、
XYZZYとは微妙に違うということは解った。

>995
あんた誰？
999 名前：993 mailto:sage [2006/02/15(水) 21:12:49 ]: あるディレクトリの拡張子が指定されたものであった場合に、条件に
合致する全てのファイルを削除するlisp式ってどう書きます？
1000 名前：デフォルトの名無しさん mailto:sage [2006/02/15(水) 21:21:35 ]: CL-FAD を使えば

(fad:walk-directory
#p"/home/onjo/tmp/" ;; ディレクトリを指定
#'(lambda (p)
(when (string-equal (pathname-type p) "txt") ;; 条件判定
(fad:delete-directory-and-files p))))
1001 名前：１００１ [Over 1000 Thread]: このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef