Lisp Scheme Part18

過去スレ
Part17: ttp://pc11.2ch.net/test/read.cgi/tech/1177065699/
Part16: ttp://pc11.2ch.net/test/read.cgi/tech/1172404795/
Part15: ttp://pc10.2ch.net/test/read.cgi/tech/1151025773/
Part14: ttp://pc8.2ch.net/test/read.cgi/tech/1132275726/
Part13: ttp://pc8.2ch.net/test/read.cgi/tech/1115901841/
Part12: ttp://pc8.2ch.net/test/read.cgi/tech/1100229366/
Part11: ttp://pc5.2ch.net/test/read.cgi/tech/1091456033/
Part10: ttp://pc5.2ch.net/test/read.cgi/tech/1075630259/
Part9: ttp://pc2.2ch.net/test/read.cgi/tech/1069594582/
Part8: ttp://pc5.2ch.net/tech/kako/1058/10582/1058263391.html
Part7: ttp://pc5.2ch.net/tech/kako/1042/10421/1042167213.html
Part6: ttp://pc3.2ch.net/tech/kako/1031/10315/1031560687.html
Part5: ttp://pc3.2ch.net/tech/kako/1023/10230/1023091882.html
Part4: ttp://pc.2ch.net/tech/kako/1016/10162/1016211619.html
Part3: ttp://pc.2ch.net/tech/kako/1008/10082/1008220265.html
Part2: ttp://pc.2ch.net/tech/kako/1002/10025/1002584344.html
Part1: ttp://piza2.2ch.net/tech/kako/987/987169286.html

□参考リンク□
日本Lispユーザ会(日本語) http://jp.franz.com/jlug/index.html
ここにかなりの情報があります。 削るとAllegro Common Lispのページへ

プログラミング言語Scheme(日本語)
ttp://www.sci.toyama-u.ac.jp/~iwao/Scheme/scheme.html
Schemeの人はまずここを見ましょう。

Lisper への道(日本語)
ttp://www.geocities.co.jp/SiliconValley-Oakland/1680/rakup.html
判りやすいLISP入門サイト。

Schemeへの道(日本語)
ttp://www.stdio.h.kyoto-u.ac.jp/~hioki/gairon-enshuu/SchemeNotes/scheme.html
ここはschemeの入門サイト。

慶応の授業のページ・記号処理プログラミング 2001
ttp://buri.sfc.keio.ac.jp/lisp/menu.html

Practical Scheme(日本語)
ttp://practical-scheme.net/index-j.html
「普通のやつらの上を行け」など、興味深い文書を沢山翻訳されてます。
(Gaucheという完成度の高いscheme処理系作者さんのページでもあります。)

□仕様関係□
CLtL2: Common Lisp the Language 2nd edition
ttp://www-2.cs.cmu.edu/Groups/AI/html/cltl/cltl2.html
CLHS: Common Lisp Hyper Spec
ttp://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/FrontMatter/Chapter-Index.html
R5RS: Revised(5) Scheme(ja)
ttp://www.sci.toyama-u.ac.jp/~iwao/Scheme/r5rsj/html/r5rsj.html

□SICP関係□

SICP(英語)
ttp://mitpress.mit.edu/sicp/full-text/book/book.html
「計算機プログラムの構造と解釈」の原書です。 全てオンラインで読めます。

計算機プログラムの構造と解釈 第二版 (snip) に関連するホームページ
ttp://www.ipl.t.u-tokyo.ac.jp/sicp/

SICPの回答集
ttp://www.melt.kyutech.ac.jp/~gogogo/sicp_ex/
ttp://pluto.aurorasd.co.jp/~mkama/sicp/
ttp://www.ipl.t.u-tokyo.ac.jp/sicp/solution.root.html
ttp://www.sampou.org/scheme/sicp/answer/

□wikipedia関連□
http://ja.wikipedia.org/wiki/LISP
http://ja.wikipedia.org/wiki/Common_Lisp
http://ja.wikipedia.org/wiki/Scheme

□継続□
なんでも継続
ttp://practical-scheme.net/docs/cont-j.html
Schemeへの道:継続
ttp://www.stdio.h.kyoto-u.ac.jp/~hioki/gairon-enshuu/SchemeNotes/continuation.html
継続の使い方
ttp://www.geocities.co.jp/SiliconValley-PaloAlto/7043/index.html#continuation
継続の使用法
ttp://www.ice.nuie.nagoya-u.ac.jp/~h003149b/lang/block.html
CPS(継続渡しスタイル)の説明
ttp://www.csl.sony.co.jp/person/masui/Forum/data/20011215023622/
Kahua: 継続ベースのアプリケーションサーバー
ttp://www.kahua.org/

□その他□ (便利な情報リソース）
John McCarthy's Home Page
ttp://www-formal.stanford.edu/jmc/
LISPの生みの親、Ｊ・マッカーシーのページだそうです。

Association of Lisp Users 米国のLispユーザ会
ttp://www.alu.org/alu/home

CMUのLisp Repository 新旧様々なプログラムが置いてある
ftp://ftp.cs.cmu.edu/afs/cs/project/ai-repository/ai/lang/lisp/0.html

The Common Lisp Cookbook: いわゆる Cookbook
ttp://cl-cookbook.sourceforge.net/

Bibliography of Scheme-related Research Scheme関連の論文リンク集
ttp://library.readscheme.org/

Scheme Hash(英語) S式でXMLを使える様にするSXMLなど
ttp://okmij.org/ftp/Scheme/index.html

幻の「入門Scheme」 オンラインで読める
ttp://www4.ocn.ne.jp/~inukai/scheme_primer_j.html

各種scheme処理系をcygwin上からビルドする方法など。
ttp://www.geocities.co.jp/SiliconValley-PaloAlto/7043/

encyCMUCLopedia (cmucl以外でも有益なはず )
ttp://www.isr.ist.utl.pt/library/docs/encycmuclopedia/doc/

□実装□
Bit (mini-schemeよりも小さい(?)bytecode変換系 )
ttp://www.iro.umontreal.ca/~dube/
Lisp 言語処理系: CAMPUS LIsP, Lemon version (Cでわずか1000行)
ttp://aten.aial.hiroshima-u.ac.jp/~kakugawa/clisp/index-ja.shtml
Schemix (Linuxのkernelへのパッチで/dev/として扱えるTinyScheme )
ttp://www.abstractnonsense.com/schemix/
awkで書かれたわずか500行のLispインタプリタ
ttp://www.accesscom.com/~darius/
Schemeで書かれた正規表現ライブラリ
ttp://www.cs.rice.edu/~dorai/pregexp/pregexp.html
Tiny CLOS Tutorial
ttp://home.adelphi.edu/~sbloch/class/272/tclos/tutorial.shtml
Hotdog Scheme MS が金出してたみたい
ttp://rover.cs.nwu.edu/~scheme/
Bigloo　CLR 用のコードを吐けるようになったらしい
ttp://www-sop.inria.fr/mimosa/fp/Bigloo/
SECDR-Scheme: SECD machine model に基づく実装
ttp://lily.fan.gr.jp/~kmd/adhoc/view.rhtml?n=SECDR-Scheme_woyomu
Minischeme: 1 ファイルに凝縮された Scheme 処理系
ttp://tinyscheme.sourceforge.net/minischeme.tar.gz
TinyScheme: Minischeme を色々弄ったもの
ttp://tinyscheme.sourceforge.net/
KI-Scheme, AM-Scheme, etc...
ttp://www.nifty.com/download/dos/prog/lisp/
LispMe: Palm 上で動く Scheme 処理系. これも SECD virtual machine.
ttp://www.lispme.de/lispme/

□その他□ (抜け)
LISP Scheme Part9 (html化) って、なんでこれだけ
ttp://ruku.qp.tc/dat2ch/0403/01/1069594582.html
独習 Scheme 三週間 (Schemeの教科書 )
ttp://www.sampou.org/scheme/t-y-scheme/t-y-scheme-Z-H-1.html
Cliki (CLコードがたくさん紹介されている。)
ttp://www.cliki.net/index
よろずや (lispの実用的な情報が色々。 )
ttp://www.geocities.co.jp/SiliconValley-SanJose/7474/
Common-Lisp.net: 多くのプロジェクトがホスティングされてる
ttp://common-lisp.net/
Bill Clementson's Blog: Lisp関連の話題が中心のBlog
ttp://home.comcast.net/~bc19191/blog/
Practical Common Lisp: S式の羅列で現実的な問題をどう解くのかそのギャップに悩まされてる人に
ttp://www.gigamonkeys.com/book/

□イベント□
GaucheNight(2007-05-09)
http://practical-scheme.net/wiliki/wiliki.cgi?GaucheNight
川合史朗、黒田寿男、まつもとゆきひろ(Skype中継)、小飼弾、
伊東勝利、久井亨、小黒直樹、ほか

黒田氏関係 (黒板の人)
ttp://pc10.2ch.net/test/read.cgi/tech/1151025773/901-909
http://cl-www.msi.co.jp/solutions/knowledge/lisp-world/articles/scheme
Scheme:マクロ:CommonLispとの比較
ttp://practical-scheme.net/wiliki/wiliki.cgi?Scheme%3a%e3%83%9e%e3%82%af%e3%83%ad%3aCommonLisp%e3%81%a8%e3%81%ae%e6%af%94%e8%bc%83
Script Languages
ttp://cl-www.msi.co.jp/solutions/knowledge/lisp-world/articles/script-lang

□2ch上にあるLISP関係のスレ□ (現在)

【入門】Common Lisp その３【質問よろず】
http://pc11.2ch.net/test/read.cgi/tech/1181479267/
【ＣＧＩ】実用比較Lisp vs C/C++【ＧＵＩ】
http://pc11.2ch.net/test/read.cgi/tech/1150501484/
Ｃ式（Ｃ言語風汎用データ形式）を作ろう！
http://pc10.2ch.net/test/read.cgi/tech/1158259643/
【ﾔﾊﾟｰﾘ】XMLをS式に置換えていくスレ【LISP最強】
http://pc10.2ch.net/test/read.cgi/tech/1140006937/
Emacs Lisp 2
http://pc10.2ch.net/test/read.cgi/tech/1068467385/
【叩かれて】Emacs Lisp道場【強くなれ】
http://pc10.2ch.net/test/read.cgi/unix/1063880951/
Lisp@UNIX版
http://pc10.2ch.net/test/read.cgi/unix/1019926525/


以上終わり。
適当に並べ替えてやった。

お疲れ。

>>8の抜け

【SICP】計算機プログラムの構造と解釈【Scheme】
http://pc11.2ch.net/test/read.cgi/tech/1107345738/

>>1乙だよ>>1

>>2 リンク先変更

プログラミング言語Scheme(日本語)
ttp://www.sci.u-toyama.ac.jp/~iwao/Scheme/scheme.html
Schemeの人はまずここを見ましょう。

うお−っ>>1

乙>>1

いちもつ

最初に頭で浮かべるコードが
Scheme + Rubyって俺は少数派？

>>15
それ括弧が全て begin と end に置き換わった Scheme の事?

CL だけど前スレより転載。

SBCL Buildbot
ttp://sbcl.static.net/

LispUser.net (よろずや？)
http://lispuser.net/

begin-endはPascalだろｗ

これからLispを学ぼうとしてリンク先を一つ一つ見ていったんですけど結構リンク切れがあります。

Lisper への道(日本語)
ttp://www.geocities.co.jp/SiliconValley-Oakland/1680/rakup.html
慶応の授業のページ・記号処理プログラミング 2001
ttp://buri.sfc.keio.ac.jp/lisp/menu.html
R5RS: Revised(5) Scheme(ja)
ttp://www.sci.toyama-u.ac.jp/~iwao/Scheme/r5rsj/html/r5rsj.html
SICPの回答集
ttp://www.melt.kyutech.ac.jp/~gogogo/sicp_ex/
ttp://pluto.aurorasd.co.jp/~mkama/sicp/
CPS(継続渡しスタイル)の説明
ttp://www.csl.sony.co.jp/person/masui/Forum/data/20011215023622/
Lisp 言語処理系: CAMPUS LIsP, Lemon version (Cでわずか1000行)
ttp://aten.aial.hiroshima-u.ac.jp/~kakugawa/clisp/index-ja.shtml
Schemeで書かれた正規表現ライブラリ
ttp://www.cs.rice.edu/~dorai/pregexp/pregexp.html
Tiny CLOS Tutorial
ttp://home.adelphi.edu/~sbloch/class/272/tclos/tutorial.shtml
Hotdog Scheme MS が金出してたみたい
ttp://rover.cs.nwu.edu/~scheme/
SECDR-Scheme: SECD machine model に基づく実装
ttp://lily.fan.gr.jp/~kmd/adhoc/view.rhtml?n=SECDR-Scheme_woyomu
KI-Scheme, AM-Scheme, etc...
ttp://www.nifty.com/download/dos/prog/lisp/
LispMe: Palm 上で動く Scheme 処理系. これも SECD virtual machine.
ttp://www.lispme.de/lispme/
LISP Scheme Part9 (html化) って、なんでこれだけ
ttp://ruku.qp.tc/dat2ch/0403/01/1069594582.html

986 ：デフォルトの名無しさん ：sage ：2007/08/12(日) 03:39:44
Gauche本、まだ出ないのかなぁ

中の人ですがgauche.nightの後shiroさんと打合せをして、
Web公開版とは構成が劇的に変わりました。

現在8/31 DTP入稿を目指して作業中、今秋発売予定です。

>>20
この4月に、Gauche本のことを知ったのがSchemeを始めるはずみになったので、
嬉しいっすね。出版されたらぜひ読みたいと思います。

表紙がなにか気になる

>>22
フムフムヌクヌクアプアアだよ

そういう名前の魚が本当にいるから困る

gauche ってまだ1.0にもなってないのに本が出るの？
時期尚早じゃね？

>>25
へへーんだっ

Perl6 は言語も処理系もできてないのに本がでてたくらいだから
いいんでないの？ 0.8.10 とはいえかなり安定してるし。

まぁ、1.0 といってもたとえば SBCL なんかは特になにかあったわけではなく
マーケティングのために 1.0 にしただけ、ってのもあるけどね。

バージョン番号なんて作者やメーカーにより様々
1.0の定義だってバラバラなんだからこだわっても意味ないべ

じゃあ逆に gauche 1.0 で欲しいものは？

x86 用のネイティブコードコンパイラ
コンパイルした結果をオブジェクトファイルに保存出来る事

Schemeはみんなgauche使ってるの？

俺はKawaがメイン

俺はDrSchemeかな

俺はまだまだ入門レベルだけど、処理系は意味なく入れるだけは複数入れてみてる。
Guile,MzScheme,Petite Chez Scheme,Scheme48,mit-scheme,bigloo
他にもあったかも。でもGauche以外ほとんど使ってないなぁ。

機能的に拘らないときは guile を使ったりする。たいていプリインストールされているからね。

ttp://homepage3.nifty.com/strcat/steel/index.html
こんなん見つけたけどどうよ？

新しい言語の紹介ページ見るたびいつも思うけど
紹介文だらだら書かないで何か小さいプログラムを載せておいて欲しい

そうだな
その言語ならではの流儀ってもんが判らんと
その言語がどう良いのかよく分からん

Schemeで再帰使わないの勿体ないし
awkで「テキストファイルの各行に対して処理」する場合ほとんどループ書かないし
Perlは色んな処理にもっと短い書き方があるし
PHPで print "<HTML>"; なんてまずしないし
"SELECT * FROM テーブル"なんてSQLを発行してプログラム側で選択射影するのは勘弁だし
そういえばCOBOLですら「レコードを桁で区切る」コードは他の言語にはない書き方をする

2chに書き込んでも嫌みでない程度に短く、
Schemeの特長がよくでていて、
知らない人にも簡単に説明できる、
Scheme向きの例題となるとどんなものに
なりますか。

gauche 0.8.11おめ。

>>39 そゆのはスクリプト言語の得意分野だとおもうよ
Scheme が目指してるのは数行で特徴を自慢することじゃないから

schemeを会社で使ったりしますか？
常識的に考えれば Haskell を使いますが。

どういう常識だろう。

>>43
「非」

>>39
こんなのとか？
(let f ((a 0) (b 0) (r '()))
(if (> b 10000) (reverse r)
(f b (+ a b) (cons a r))))

>>39
"Hello,world!"

>>46
確かにSchemeの特長がよくでていて、知らない人にも簡単に説明できるな。ｗ

>>45
なんか最後にreverseするのがダサい

じゃあどうしろと

named letはダサい

>>50
ダサい部分も含めてSchemeの特徴がよく出ている例なの鴨

>>49
漢なら reverse! だな

ﾑﾁｬｼﾔｶﾞｯﾃ

((lambda (lambda) (lambda lambda)) (lambda (lambda) (lambda lambda)))

>>54
無限ループった

>>45ってaもbも増えずに無限ループするんじゃないの ?

>56
俺のGaucheでは動いた
フィボナッチ数列の頭にゼロが入ったものが返る式

これ a も b も増えないな

>>57
ウソ付いちゃいかん、aもbも初期値が0なので(+ a b)が0のままだぞ

カウンタを書くとこんな感じ

(define (returnobj x)
(define (proc1)
(set! x (+ x 1)))
(define (proc0)
(set! x (- x 1)))
(define (count)
x)
(define (interface z)
(cond((eq? z 'age)
(proc1))
((eq? z 'sage)
(proc0))
((eq? z 'count)
x)
(else (display "(www" ))))
interface)

実行結果

Welcome to DrScheme, version 370 [3m].
Language: Standard (R5RS).
> (define obj (returnobj 6))
> (obj 'count)
6
> (obj 'age)
> (obj 'age)
> (obj 'count)
8
> (obj 'sage)
> (obj 'count)
7
> (obj 'els)
(www
>

>>59
すまん (b 1) に脳内変換してくれ

フィボナッチしたいならどちらにしろ
初期値は a も b も 1 で始めなきゃおかしくね？

フィボナッチの定義次第

>>62
コードみてfibっぽいな〜とは解ったんだが何で初期値が０かと考えたらタダの嫌がらせにしか見えなくなった俺の立場は？

「バグったプログラム」の実例としては良くできていた

>>48
(let f ((a 1) (b 1))
(if (> b 100)
'()
(cons a (f b (+ a b)))))

というかnamed ｌｅｔって構文はじめて知った

見づらいリスト・・・？

named let に付ける名前って loop とか良く見掛けるけど
あれはあくまで慣例に過ぎないの？

慣例じゃないという発想がどこから沸いて出たのかが知りたいところ

>>69
うん

>>54
((call/cc call/cc) (call/cc call/cc))

schemeは素晴らしいな

(内包表記マクロ)って当たり前のように使ってますか？

内包表記ってのが SRFI-42 のことならlet するよりてっとりばやいしよく使う。

そう、SRFI-42 のことです。

>> let するよりてっとりばやい

うーん、全然ピンと来ません。とても難しいと感じてるんですが、
どの辺から入っていけば良いのか…

ttp://practical-scheme.net/gauche/man/gauche-refj_114.html
数の対(x y)の集合を生成します。ここでxは 2以上 5未満、yは1以上 x 未満です。

(list-ec (: x 2 5) (: y 1 x) (list x y))
⇒ ((2 1) (3 1) (3 2) (4 1) (4 2) (4 3))

これの意味がわからない

>>77
ループの入れ子になる、と考えれば判るかな。
dotimes 使って同じ結果を得るにはこんな感じ。

(let1 acc '() (dotimes (x 3 (reverse! acc)) (dotimes (y (+ x 1)) (push! acc (list (+ x 2) (+ y 1))) )))

>>77
x は 2 .. 5 で、 y は 1 .. x の範囲の x y をリストにしたものの集合を返す。
どのレベルでわかんないの？逆に↓だとどのへんまでわかる？
1. (list-ec (: x 0 10) x) == (iota 10)
2. (list-ec (: x 0 10) (* x 2)) == (mapcar (lambda (x) (* x 2)) (iota 10))
3. (list-ec (: x 0 10) (: y 0 10) (cons x y))
4. (list-ec (: x 0 10) (: y 0 x) (cons x y))
(: ...) の意味がわからんとかそーゆう意味だろうか。

あー意味わかった
なんか「集合」って言葉に惑わされてた
対のユニークな組み合わせ生成するのかと思って
>>77のどこがそうなんだとか変に難しく考えてた
ただのループ生成器か

(comprehension-macro qualifier … body)
ということですが、むしろ body の書き方のほうがよくわからんです。

(do-ec (:range i 0 10)
(display i))

=>0123456789

偶数の場合に2回出力させてみようとして、(if test) を付けると前の (display i) を
begin で括らないとならない…。更に、3回出力させようとすると後の (display i) も
begin で括らないとならない…。何ででしょう？

(do-ec (:range i 0 10)
(begin (display i))
(if (even? i))
(display i))

=>001223445667889

(do-ec (:range i 0 10)
(begin (display i))
(if (even? i))
(begin (display i)
(display i)))

=>00012223444566678889

ttp://ll.jus.or.jp/2006/blog/doukaku1
(use srfi-42)
(list-ec (: n 2 101) (if (not(any?-ec(: j 2 n)(zero?(modulo n j)))))n)
これで100までの素数が出るみたいですがわかりません

どうわからないのかくらい書ける人間になりましょう

こうですか、わかりません!!!

(: j 2 (sqrt n))じゃないのがわかりません。

Eager Comprehensions が少し見えてきたので記念パピコ
(let1 l (list-ec (:range n 2 101)
(list-ec (:range j 2 n)
(cons n (modulo n j))))
(list-ec (:list x (cdr l))
(if (not (any?-ec (:list y x) (zero? (cdr y)))))
(caar x)))

IronLisp きました
ttp://ironpython-urls.blogspot.com/2007/08/new-dlr-based-net-language-ironlisp.html

ダメだ、夏場に読むとアイロンLISPに見えて暑くてかなわん。

>>85
ちゃんと見ないでコメントするけど、
平方根の計算でループの終端をnにするか√nにするかは本質じゃないだろ

平方根の計算、じゃなくて素数の計算だ
すまん

そうですか
はい次

>>87
また俺LISPか

IronCommonLispなら欲しい

L#はどう?

IronGaucheが欲しいｗ

Iron Chefがほしい

IronErlangがほしい

スレチどすえ

某scheme本の中で分からない部分があって質問させてください。
以下の定義のmultirember-coをつかって
(multirember-co 'a '((a) ((a))) (lambda (x y) y))
とすると、
((a) ((a)))
が返るのですが、これを(a a)とするにはどうすればよいでしょうか？


(define multirember-co
(lambda (a lat col)
(cond
((null? lat)
(col '() '()))
((atom? (car lat)) (cond
((eq? (car lat) a)
(multirember-co a (cdr lat)
(lambda (newlat seen)
(col newlat (cons (car lat) seen)))))
(else
(multirember-co a (cdr lat)
(lambda (newlat seen)
(col (cons (car lat) newlat) seen))))))
(else (multirember-co a (car lat)
(lambda (newlat seen)
(multirember-co a (cdr lat) (lambda (newlat2 seen2)
(col (cons newlat newlat2)
(cons seen seen2))))))))))

99です。
上記の質問よりも、最後のelse以下のところをどのように理解すればよいのか
ヒントとかをもらえたら助かります。上記の処理の内容は、
(multirember-co 'a '(a b c) (lambda (x y) x))
=> (b c)
というように、1つめの引数(atom)を2つめの引数(list)から取る処理です。
このとき、2つめの引数が((a b) a b c d)の時に、つまり(car lat)が
atomでないときの動作が理解しにくいです。一旦(car lat)に対する処理を
行って、それが最後までいった後に、残りの(cdr lat)への処理を続ける
のだと思うのですが、、、、

長々と失礼しました。

>>97
アーランは既に JIT あるじゃん。

>>99-100
その本は読んでないのでコード見た印象で。

要は継続渡しなんだと思うけど、else のところは
1 まず (car lat) に対する処理をする
2 次に (cdr lat) に対する処理をする
3 二つの結果を cons してから残りの処理をする
という手順で処理するということが書いてある。

> (lambda (newlat seen)
>       (multirember-co a (cdr lat) (lambda (newlat2 seen2)
>                                     (col (cons newlat newlat2)
>                                          (cons seen seen2)))))
ここが 2,3 をまとめたもので、これを 1 のあとにやるべき処理として渡してる。
その内側の lambda が 3 に対応してる。

gosh> (gauche-version)
"0.8.11"

gosh> (read)
(foo, bar)
(foo ,bar)

あるいは、

gosh> '(foo, bar, baz)
(foo ,bar ,baz)

となりますがこれはこういうものなんでしょうか？

カンマをunquoteとして見てないとか、そういう話かな。
ちゃんと基礎やってから出直しておいで。

>>103
他の言語のリストやタプルの書き方と混同してない？

そういえば LISP 1.5 はカンマとスペースが等価だった。45年も前の話だが。
http://community.computerhistory.org/scc/projects/LISP/book/LISP%201.5%20Programmers%20Manual.pdf

そういえば","をマクロの非展開指示子にするようになったのっていつの何からなんだろう？

103です
ファイルに (Fri, Aug 24 23:30:43+0900 2007) のように記録されていて
(read) で読み取ろうと思ったんですが
=>(Fri ,Aug 24 |23:30:43+0900| 2007)

("Fri, Aug 24 23:30:43+0900 2007")
のように記録しとかないとならなかったということでした
readはあまり使ったことないんです、＿|￣|○

>>107
1980年頃のMaclispには有った

ttp://www.lingr.com/room/gauche/archives/2007/08/24#msg-13988600

MSVC版ktkr

emacs 18 にはなかった... >> quasiquote & unquote

>>102
なるほど、これが継続なんですね。
もうちょっとで二冊目に行けそうなんですが、
これが理解できずに止まってました。
処理を一つ一つ追っていくとこんがらがってきてたのですが、
してくれた説明を読んだおかげでコードがわかりやすくなった感じです。
(ただ、自分ではまだ書ける気がしません)

ありがとうございました！

おまいらは俺schemeを実装するときの仮想マシンの設計どうしてますか？

SECD

andやorって
関数で定義したほうがapply出来たりして柔軟性が増すと思うんですが、
R5RSだと7.3でsyntax-rulesで定義がされてます。
関数で定義するとなんか問題が発生したりするんでしょうか。

関数にしちゃうと、必ず全引数評価しちゃうから困る。
(and (pair? foo) (car foo))
みたいなのができない。

どう違うかぐらい自分で確かめなさい

>>115
そこまでやるなら if や define も関数にしたら如何？ｗ

andにしろifにしろ
陽にlambdaを渡すようにすれば関数でもいいわけだよな
果てしなく面倒くさいが

Haskell みたいにデフォルトで遅延評価にしちゃえば、関数で問題ないんだけどね。

>>119
その場合、各引数を lambda で包んでその関数に渡すようなマクロが欲しくなるかもw

スペシャルフォームじゃだめなん？

スッペシャルジェネレーションのほうがすき

デフォルトで遅延評価にしちゃえばマクロは用なしになるのかな？
現在のマクロは
Schemeだと名前呼び＋レキシカルスコープの関数
CLだと名前呼び＋ダイナミックスコープの関数と等価？

r6rsキタ

へー、批准されたんだ…

scheme構文もCLマクロもファーストクラスじゃないから関数と等価ではないかな
R6+RSで構文オブジェクトもファーストクラスにならないかな

ところでR6RSどこにキタの？

単純に、関数で setq って書けないよね。
引数を評価しないでシンボルのまま扱う手段が必要で、遅延評価だけじゃ足りない。

LISP 1.5にはマクロは無く、代わりにFSUBR/FEXPRという引数を評価しない関数があった。
評価すべき部分（例えば setq の第2引数みたいなの）は明示的に eval を呼ぶわけだが、
スコープの関係とかぐちゃぐちゃになって使いにくかったらしい。

>>126
ttp://lists.r6rs.org/pipermail/r6rs-discuss/2007-August/003272.html
ttp://www.r6rs.org/ratification/results.html

YESの人たちとNOの人たちのコメントの差が物悲しい(量・質共に)。

preliminary resultsが出た時は承認ラインが全投票人数の60%と
なぜか思い込んでたもんで、僅差(67/112)で届かないと思って
ホッとしてたりもしたんだけど、まぁ有効投票数ですよね、普通。

little schemerを読み終わったのですが、
どうして
(atom? (1 2 3))
はだめで、
(atom? '(1 2 3))
はよいのか、わかりません。
どうかおしえてください。

>>130
「よい」「だめ」とは？

>>130
上は手続きの呼び出し
下はリスト

1 っていう名前の関数はないから、(1 2 3) っていう関数呼び出しは実行できないってことだな

ここで聞く話じゃないのかもしれないが....

設定言語みたいなのから, マクロ使いまくりで関数自動生成しまくってる
lisp プログラムを "C に移植して" ってな話を持ちかけられたんだけど,
やっぱ yacc とか bison のお世話になるしかないのかな?

ここでまずけりゃ, 適当なところにルーティングして...

その仕事は ECL をリンクしたらお終いなんじゃないの。

>>135
おぉ... ありがとん

ERR5RS (Extended R5RS Scheme)
http://scheme-punks.cyber-rush.org/wiki/index.php?title=ERR5RS:Charter

どうよ

Q5V0we <a href="http://ghquxaunglno.com/">ghquxaunglno</a>, [url=http://vvxxkzczfvpn.com/]vvxxkzczfvpn[/url], [link=http://nvygioywhlms.com/]nvygioywhlms[/link], http://pscwakgskwjm.com/

ulTr67 <a href="http://uqsisuuxrasb.com/">uqsisuuxrasb</a>, [url=http://qqpugdriqdic.com/]qqpugdriqdic[/url], [link=http://wxhmyrzltzhg.com/]wxhmyrzltzhg[/link], http://fmwwcqtbhkjz.com/

> 138-139
これってどういう事？

２ｃｈと互換性のある掲示板にスパム飛ばそうとしてたら２ｃｈに間違えて飛ばしちゃったみたいなことかな

PinlxK <a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0484.html">big cock</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0484.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0531.html">big cocks</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0531.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0682.html">big dick</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0682.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0731.html">big dicks</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0731.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0874.html">big naturals</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0874.html]pussy[/URL]

nleTxn <a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0484.html">big cock</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0484.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0531.html">big cocks</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0531.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0682.html">big dick</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0682.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0731.html">big dicks</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0731.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0874.html">big naturals</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0874.html]pussy[/URL]

よくわからんが、誰か通報しとけ

お前が通報しろ。

じゃあ俺がやるよ

いやいや俺が

そんじゃ俺が・・・

俺は断る

>>149
ｗｗｗｗｗｗ

7S9kFC <a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0942.html">big nipples</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big0942.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big1022.html">big tits</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big1022.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big1155.html">big tits round asses</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=big1155.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=black0124.html">black lesbians</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=black0124.html]pussy[/URL]
<a href="http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=black0284.html">black pussy</a>
[URL=http://www.pic.ucla.edu/~nathan/cgi-bin/moin.cgi/Dirioly?action=AttachFile&do=get&target=black0284.html]pussy[/URL]

嘘だけど通報しといた

嘘かよｗ

じゃあ俺がやるよ

俺はもうやったぜ

いや、俺がやったんだし

はあ？お前がやったんだろ

ということは、俺じゃなかったの？

え、つーか俺やった記憶あるんだけど

お前がやったの見たぜ

俺は、髪の長い女がやってるのを見た

ずっと見てたのか？

そうだ、着替えまで見てた

それは俺のをか？

着替えがあるならそう言ってくれなくちゃだよ。俺帰っちゃったじゃん。

甘いな、俺は風呂まで見たぜ

でも誰も入っていなかったのが残念だ

勝手に決めつけんなよ
俺にはフルチンのイジが見えたのだが

((quote))
こんなんみえた

,@female
脱がしてる感するよね

劇ﾜﾛﾀｗ

DrSchemeでtraceは使えないんでしょうか？

Allegro CL free express editionて良いの？

用途によるな。どんな用途を考えてる？あと環境は？

プログラミング初心者でLispを覚えたいのです。
CLISP+Emacsなどでも覚えられると思うのですが、ACLが素晴らしいIDEだと書いてあったので
最初からそういうものを使うのが良いのか悪いのかもわかりませんが(^^;)

環境はWindowsXPです。

ACL の IDE(elisp) はいいよ。Emacsをちゃんと使えるなら。
ストレスなくlispを勉強できると思うよ。

つか、elisp なのにあれほど完成度高いのは異常。

Lisp を覚えたいという点なら、あとは Free Edition の制限に心理的抵抗がなければ良い環境だ。
ただし「IDE が素晴しい」ってのは微妙だな。どこで読んだの？
VB みたいな GUI ビルダーとかプロファイラとかが充実してるという意味ならそうだが、
コードを書く作業だけは Emacs と SLIME もしくは ELI (ACL附属の SLIME みたいなもん) を使うほうが一般的。

車の免許にたとえると、
- ACL Express: 初心者向けに調整されてリミッターかけまくったレーシングカー
- CLISP: リミッターはなしの限界まで使いたおせる軽自動車

Emacs のセットアップがめんどうなら LispWorks なんかもいいかもね。エディタも Emacs ライクだし。
まぁ、かくいう俺は学生時代はリミッターつきというのが気に入らなくて CLISP とかフリーのを使ってたけどね。

LispWorkssのフリー版はcons cellの数に制限があって、リミットがくるとダイアログがでる。
で、値段も手頃とは言い難いが手が出ないほどじゃない（ACLは無理！）ので購入しようとしたのだけど。
国内じゃ扱ってないのでしょんぼり。

そこでコーマンリスプですよ

ありがとうございます。
なんとなくイメージがつかめました。かな？

> ただし「IDE が素晴しい」ってのは微妙だな。どこで読んだの？
ここです。
http://tamago-club.cocolog-nifty.com/nitris1/2006/05/15_truefalse__aa13.html#more

Emacsは大学で端末室にあったUNIXでパンキョウの課題のレポートなどを
書くときに使ったり、設定をコピペして変えて遊んだりしたくらいでして、
使いこなしているというレベルではありませんｗ
一応Emacsではこれを最近ダウソして弄くってみているところです。
http://www.gigamonkeys.com/book/lispbox/

お話の途中で申し訳ないんですが、質問させてください。
第2引数のリストから第1引数と同じ要素を取り除くプログラムを下のように書いたのですが上手く動きません。
どこがどう間違っているのでしょうか。インタプリタはgaucheです。
(begin
　(define rember
　　(lambda (a l)
　　　(cond
　　　( (null? l) () )
　　　( (list? (car l) ) (cons (rember a (car l)) (rember a (cdr l))))
　　　( else
　　　　( cond
　　　　( (string=? a (car l)) (rember a (cdr l)))
　　　　( else ( cons (car l)(rember a (cdr l))))
　　　)))))
　(rember "hoge" '("hello" '("hello" "world" ) "hoge" "world")))

実行しただけだが、1行( (null? l) '()) と直しただけで、
後は説明通りに動いてるように見えるけど。
どう上手く動かしたいのかな？

ちなみにこれが返ってきたが
=>("hello" '("hello" "world") "world")

>>183
自分の環境で実行すると下のようにエラーが出てしまうんです。
何が悪いのか全然わからなくて…

gosh> *** ERROR: string required, but got quote
Stack Trace:
_______________________________________
0 (string=? a (car l))
At line 219 of "(stdin)"
1 (rember a (car l))
At line 216 of "(stdin)"
2 (rember a (cdr l))
At line 220 of "(stdin)"

そういうことならリスト中のquoteを外せば動くけど、
string=?する前にはstring?の述語入れた方がいいね。
こっちで試した処理系はたまたまsymbolと文字列が
同じ扱いなんで混乱させてしまった。

やれやれ

- ( (string=? a (car l)) (rember a (cdr l)))
+ ( (and (string? (car l)) (string=? a (car l))) (rember a (cdr l)))

symbol に string=? を適用したので error になってる、っていってるじゃん。

そういうアバウトな要素の比較はequal?のが良いと思う。
string=?は文字列が来る事が確実な時にのみ使うべき。

おいおいw

→ (rember "hoge" '("hello" ("hello" "world" ) "hoge" "world")))
→ remover
ってことじゃないんですかねw

>>185 >>187 >>188
symbolについての理解不足を指摘していただいてありがとうございます。
schemeの理解が少し進みました。
symbolだから何が入っててもおかしくないわけですね。listでも、文字列でも、関数でも。
関数のリストって考えもできるのがおもしろそうです。
ありがとうございました。

ACLのインストーラ落として起動したら、「200Mあるおw」
って言われたので断念しました。
LISPBoxで勉強します。

よくわからん…ドキュメントとかライブラリとか込みで 200MB だろ？
VisualStudio なんかに比べたら激しく小さいと思うけど、どれくらいのサイズなら OK なの？

２００Ｍ入らなくて諦めるってのはその程度の意気込みと言うこと

そんなふうに意見を切りすてるのは勿体無い。理由をちゃんと聞けば対応できるかもしれないじゃん。
ドキュメントをあきらめて Web 参照にするだけで数十M減らせるし。ただでさえマイナーで、俺たちは死滅しかけているんだぞっと。
意気込みとかなくても気軽に Lisp の世界に参加できる事をもっとアピールしたい。Emacs からでもいいじゃない。

関係者居るんだな…

ん？ ACL のってことか？全然関係ねーよ。でも Franz の人は c.l.l とかに出てきてるから意見を言うくらいはできるだろう。

悪いこととは思ってないんだが。

>>196=>>198？
「関係者」とか「悪いこと」とか、
自分の脳内だけでこの場と関係してる概念持ち出されても
何がやりたいのかさっぱりなんだけど。

いいよもう黒板で。

200MB？
Schemeってそんなにあんの？
cygwinのSchemeとかもそんくらいあんの？

そんな話題どうでもええ

little schemer,seaseoned schemer,reasoned schemerはちゃんと読みたいし、
SICPも読んでみたいし、λ計算とかの数学的な背景もきちんと勉強したいが、
仕事しながらだと何年たってもおわらなそう。
みんなはやっぱ情報専攻で大学の時にやったの？うらやましいわ。

寝食を忘れて読めばいい
少年老いやすく学成りがたし、一瞬の光陰軽んずべからず
λ計算に王道なし

睡眠はとれよ

やだよ

禿げるよ

剥げるか、読み通すか、それが問題だ。

ぜんぜん

呼んだ〜？
http://eecsfacweb.mit.edu/facpages/sussman.html

どうして Lisp と関係ない話題だと元気になるのですか？自演なのですか？

>>203
経験を積んだ大人じゃないとLispの良さは分からない。

どうも２ちゃんに来ると攻撃的なレスつけちゃうよね。
Lispに関して気軽に話せる場なんて他にないんだし仲良くやってこうよ。

>>212
Paul Grahamが25,6歳以上の奴にはLispは無理って言ってなかったっけ

LISPで2chツール（ブラウザ他）作ったら人気出ると思うんだ。

歳をとると経験のバイアスがかかって新しい事へ挑戦しにくくなるってのはあるけど、本当は歳なんて関係ない。

LISPは自然言語だからな。

Paul Grahamが「裸エプロンより裸ランドセルだ」って言っていた

>>215
Navi2ch とか 2ch-mode for xyzzy はLispでないと？

>>214
Ｏｒｚ

>>213
お前はなにか勘違いしている
２ｃｈは議論をするところでも仲良しごっこをするところでもない
レスで喧嘩して遊ぶところだ

その中にたまにいい情報が混じっている、くらいのもんだ

萌Emacsとかあったらいいな。
2chブラウザもWinnyもShareも出来て、もちろんだが全てメイドが奉仕してくれるんだ。
つまりそれを使っているとそのうち魔法使いになれる。どうかな。

>>219
それはEmacsやXyzzyを使う人にしか魅力がないよね。
そうじゃなくて独立したアプリなんだけどLISPでないと出来にくいような
そして魅力的なものってこと。
作れたら作ってるんで所詮ないものねだりだけど。
普及させたいって人が居るみたいだから言ってみた。

LISPでないと出来にくいようなって物が、そもそも無いんじゃないの？

専ブラに関して言えば、出尽くした感があるし。

>>223
ランタイムライセンスがフリーでギコナビレベルのGUIの作れるLispってあったけ？

>>223
しようと思えばnavi2chは独立なアプリにもできるよ。
普通にインストールされた状態のEmacsはつまるところ、
elisp言語処理系にエディタ用拡張モジュールをビルトインした状態のものだから。

普通はEmacsを立ち上げてその中で作業の一環としてM-x navi2chするから
わざわざ独立したコマンドに仕立てないだけ。

独立したアプリという意味がまったくわかってないな
頭悪そう

>>224
人工ポールグレアムはLispじゃないと作れなかったよ。
このスレで初級的な質問に回答させてるけど、よくできてるだろ？

227のいう意味とやらがはっきりしないが、もしかしてdumpということをご存じないのかな?

マジでか！

そうそう。EmacsとかなしでWYSIWYGで誰でも簡単に使えなきゃ、ってこと。
そういうとこから入る訳じゃない。子供は。

こんにちは人工苫米地です。洗脳しにきました。

どったのこの速さ？
と思ったらキチガイが一匹紛れ込んでるだけかよ

> (= (+ 1 1) 1)
t
ほんとだ！

僕のオナニーみてください＞＜　まで読んだ

>>229
毎回あの糞重い起動で？
設定を全部テキストとＳ式で設定して？
ファイルサイズは？

独立アプリとしてかなり致命的だと思うんだけど
つーか話の流れを見ればただたんに「できる」って話をしていないのは判るだろう
読解力無いのかよ・・・

>>215
>LISPで2chツール（ブラウザ他）作ったら人気出ると思うんだ。

まずこの仮定が間違ってるから仕方がない。

LISPerはプログラムは作ってもアプリは作らない

>>238
!!!

処理系作りで忙しいから応用には興味がないとかｗ

言語の乗り換えの契機になるようなアプリって何だろうね。
Rails は Ruby 書く人を (たぶん) 増やしたのだろうけど、
それは、今の時代の空気 (「WEB2.0」だの「アジャイル」だの) に
良く合っていたからかな。Rails はアプリじゃないが。
次の時代の空気を先取りする Lisp 製アプリ

を、俺が作ろうと思っている。ちょっとまちなー

アプリが増えても書く人は増えないな。やっぱフレームワークですよ。
魔法のようなやつだれか作ってくれ。

47氏キター！

記念真紀子age

schemeがどこまでできるのかわからん・・・
組み込み関数のリファレンス的なページないですか＞＜

ocamlとかhaskellなら開発効率が全然違うって話だけどね。
pugsとかいうperl6の処理系を作った大学生はhaskellの勉強から3ヶ月でpugs完成させたっていうけど。
俺は3ヶ月じゃhaskell使いこなせ無さそうだし。

Haskellから得るものは大きいが
Lispから得たものはないと言ってみる

>>246
ここに全部書いてあるよ
http://www.r6rs.org/

個人的な感覚では、ocamlは型にうるさいschemeって感じだけど、
haskellは全然別物って気がしてる。
haskellは入門書を読んで、ちょろちょろ書いてみる程度しか知らないが。

R6RSでたんだ。知らなかったよ。
どこが変わったのかな・・・

REPL が無くなったんだっけ? >> R6RS

WindowsのUIがまともに使えるLispってACL以外にあるのけ？

>>253
>>180

つ LispWorks

分散処理のライブラリを書いてたらLispっぽくなってきた
／（ ＾o＾ ）＼なんてこったい

>>254
Corman、日本語扱えるようになったの?

日本語っつーかunicode対応してないの？

>>256
グリーンスパンの(ry

>>249
�dクス！

なんで誰も>>204に「“一寸”ですよ」と教えてあげない件

宣言的という事がよくわかりません。どうしたらいいですか。
タコな質問ですみません。

処理の手順を書くのは手続き型言語で良いんだけど
その中でも、何かを求める式を考えるときは Scheme を使う俺
手続き型言語で複雑な式は考えたくない

しっかしLispってマイナーだよね…
誰も知らんぞ

どんなとこに居るんだよｗ

>>264
中学高校のパソ部ですか？ｗｗ

このつまらない流れは自演なの？

しっかしLispってマイナーだよね…
×誰も知らんぞ
○誰も開発に使ってないぞ

Lispなら聞いたことあるくらいは言ってもらえる。
Schemeとなると更に知名度下がるけど。

俺の周りの奴には一通りプログラミング言語の歴史を説明しておいたから
Lisp を知らない人は居ない。まあ憶える必要の無い言語くらいに思われている
みたいだけど。

これを見せればOK＼(^o^)／
http://www.asahi-net.or.jp/%7Eki4s-nkmr/lisp20061121/l

URL切れちゃった／(^o^)＼
http://www.asahi-net.or.jp/%7Eki4s-nkmr/lisp20061121/lisp.html

次からテンプレに貼ります。

>>272のリンクにあるみたいにLispがそんなにすげーなら
なんで>>268みたいなことになるんだ？
逆に言えばLispって誰も使わないってことは…

Lisperはジェダイかニュータイプなんだよ。

>>274
凄すぎて普通程度の脳みそだと使いにくいってことじゃね？

>>274
Lisperは一向に完成する見込みのない「LISP以上の何か」を作るのに忙しい

マジレスすると、仕事でプログラムやってる奴の
ほとんどは仕事として淡々と与えられたものを使っているだけ。
プログラム自身に興味がある奴はごく一部。

programing言語を選択する managerには有り難味がわからない言語だからな。

Lispの凄さが真実なら、マネージャーにはすげーありがたい話だろ。
でも誰も使わないっていうんはつまりそういうことなんじゃね？

なんで日本政府は一般的にもっと教育、啓蒙しなかったのかな。
その尻拭いに日本政府が金出して安い開発環境作れよ＼(^Λ^)／
Allegro高いから買えないんだよ／(^Λ^)＼

頭のとんがったマネージャーが悪いんだなw

啓蒙しようとして先行き過ぎて第5世代がこけちゃったんだよ。
それにちゃんと国のお金で Kyoto Common Lisp (aka GCL) をつくってるじゃん。

そうでしたか。すみません＼(^λ^)＼

r5rs→r6rsのdiff解説ページありますか?

http://practical-scheme.net/wiliki/wiliki.cgi?R6RS

>>280
つまりそういうこと。
たまたま巡り合わせで一緒に仕事してるだけの玉石混合の面子の中に、
「全員が使いこなせること」を期待して投入できる言語じゃないんだな。
だからマネージャーにはLispは選べない。ほぼ全員が「できる奴」である稀な場合を除いて。
マネージャーに選んでもらえるように作られたJavaあたりとは、そのへん対極だね。

"Common Scheme"ｷﾀｺﾚ

質問させてください。
gaucheでマクロを展開した結果を確認したいのですが、
macroexpandで完全に（展開できなくなるまで）展開されません。

例えば

(define-syntax my-let
(syntax-rules ()
((_ () . body)
(begin . body))
((_ ((var expr) . binds) . body)
(let1 var expr (my-let binds . body)))))

(macroexpand '(my-let ( (b 3)) (list a b)))
;;=> (#<identifier gauche#let> ((b 3)) (#<identifier user#my-let> () (list a b)))

という感じです。my-letが1段階しか展開されません。

完全に展開した結果を得るにはどうしたらよいのでしょうか？

>>287
しかしできない奴はとことんできないので、言語はあまり関係ないかも。
言語よりも開発を進めやすいツール・環境を整えられるかが大事だと思った。

そういう意味でJavaは選ばれやすいかもしれない。
Lispにチーム開発向けのツール類ってあるのかな。

Lisp信者が言うほどにLispが優れてるって証拠が出て来ないんだよね。
俺たちはLispが最高だって信じてるぜ！って話しでいいならそれでいいけど。

自分の周囲を一般化しすぎなんだろう…。
米軍とかスピンアウトしたロボティクス企業とかはいまだに使ってるし、
ちゃんとその手のエンジニアを募集している。
A. 自分の周囲でだれも使ってない → 世間でだれも使ってない
B. 自分の周囲ではマニアが趣味でやってる → 世間でもマニアしか使ってない
は飛躍しすぎだろう。人数ベースでいえば Java より使われていない事は事実だけど、
コンパイラメーカーがやっていける程度の需要はあるってこと。

勉強もしないでうわべだけ知ってるつもりになりたいだけならあきらめたほうがいいよ

>>291
別に優れてはいないと思うよ。自分で好きにいじくれるところが好きなんであって、
1. 速度ではアセンブラや C でチューニングしたものには劣る
2. 文字数単位での表記の簡潔さやライブラリの充実度では LL 言語よりすくない
3. ユーザー数は C/C++/Java/LL言語 あたりよりすくない
あたりなら大抵の Lisper/Schemer なら認めるところだろう。

少なくとも俺が Lisp をやめらんないのは自由さ、それだけが理由。
師匠の受けうりだが、他にもっといい言語や表記方法があれば速攻乗りかえるよ。

そのマイナー言語で何が達成されたのか？
その自由な言語で何が達成されたのか？
新卒の学生だって面接で聞かれるようなことなのに、Lisp信者が全然答えられないってことが問題なんだ。
Java,C++はいろんなところでたくさんの人の役に立ってる。
Perl,JavaScriptは業界標準だし、Rubyにはrailsがある。
同じ関数型言語のhaskellはpugsの実装を3ヶ月と経たずに達成した。
じゃあLispは一体何をもたらしたんだ？

>>289
macroexpandはよくわからんが、
そのマクロ自体がR5RS的には変じゃね？

(define-syntax my-let
(syntax-rules ()
((_ () body ...)
(begin body ...))
((_ ((var expr) binds ...) body ...)
(let1 var expr (my-let (binds ...) body ...)))))

たぶん、この辺の話題と絡んでくると思う。
http://practical-scheme.net/wiliki/wiliki.cgi?R6RS%3a%e5%a4%89%e6%9b%b4%e7%82%b9#H-t80rzg

なんか俺もあんまり理解できてないので詳しい人の見解が聞きたい。

本気で逝ってるの？釣り？

>>295
釣り師いいかげんうざいよ。それとも本気？
本気で知りたいならまず１年Lispを使ってみな。

残念ながらここは面接室じゃないんだよ。

>そのマイナー言語で何が達成されたのか？
我々のプロジェクトのプロトタイプをクライアントに承認させるに十分な性能を短期間で叩き出した
>その自由な言語で何が達成されたのか？
同上
>新卒の学生だって面接で聞かれるようなことなのに、Lisp信者が全然答えられないってことが問題なんだ。
小僧の人生経験なんか知ったことか
>Java,C++はいろんなところでたくさんの人の役に立ってる。
それを否定した事はいちどもねぇよ
>Perl,JavaScriptは業界標準だし、Rubyにはrailsがある。
LLが役に立つ分野を否定した覚えもないが？
>同じ関数型言語のhaskellはpugsの実装を3ヶ月と経たずに達成した。
それがどうした？
>じゃあLispは一体何をもたらしたんだ？
生まれてから今までいくつネタを提供したとおもっているんだ？
だいたいマジな理由なら最初に答えたよ。

米軍の兵站システムや軍事シミュレーション、ロボット制御で役に立ってるよ。
過去の実績というなら Prolog、ML、JavaScript、Haskell の実装をもたらした。
あと GUI 統合システムの先駆けで、ガベージコレクション技術を進歩させ、
ファミコン時代の開発環境を提供し、3D-CG 開発環境としてマリオ64などをもたらした。
あと Java 作者の Gosling や Guy L Steel、Java の世界に世代別 GC を導入した David Moon、
Ghostscript の作者 Peter といった分野で貢献してるね。そうか Richard M Stallman がいなけば GNU はなかったので GCC もなかったね。
まぁ、ひたすら難癖をつけるのが目的なんだろうけど…

あー有名人の名前を出すとよけい粘着否定したくなるか。300 は忘れてくれ。

Lisp を否定する物ではないけど、Lisp は常にプロトタイプの為の言語かもしれない、
とは割と本気で思う。Lisp が解くのは先端の尖った領域の課題で、
一般的に広まるようなものは、きっとLispでは解かれた後に別の言語で
書きなおされるんだろう。

Lispは継続的に宣伝してくれるSun並みの規模の企業いないだろ。
まずそれが第一の問題。

ていうかマジでもう答でてるよな。
自由で柔軟で強力で、ゆえに「言語の意味と生産性」が使い手の能力の高純度の反映となる言語。

だいたい、多くの人間に等しく効能を与えるタイプの言語じゃないことは散々触れられているのに、
ここに来てまだ
> Java,C++はいろんなところでたくさんの人の役に立ってる。
> Perl,JavaScriptは業界標準だし、Rubyにはrailsがある。
みたいな「たくさんの人が使うことがその言語の凄さ」という価値観から来る例をもってくるあたり、
いかに「人の話をまったく聞かずに、誰も俺に答えない誰も俺に答えないと連呼してる」かってのがよくわかる。

>>300
有名人云々はともかく、昔GCCをhackしていて、ターゲットアーキテクチャの定義とかがなんか
Lispっぽい言語で書いてあって驚いたことがある。Lisp（的な発想）が無ければあれだけ簡潔に
ポータブルなコンパイラを作るのは難しかったかもしれないね。

>>304
たぶんプログラムなんて書いたこともない人なんだろうね。

>>296
. bodyみたいな使い方は
http://www.ice.nuie.nagoya-u.ac.jp/~h003149b/lang/p/notes/2004_06_07a.html
を見て知ったんですが、どうなんでしょう。

define-syntaxはdefine-macroより制約が多すぎてなかなか書けない……

>>300
OO, generics, reflectionの世界に果たした貢献も大きい。
今も昔もプログラミング言語の実験場の一つ。

一部の人間の宣伝文句の割りにはマイナーなのも事実。
ラテン語みたいなもんかなあ。

>>303
だけど、宣伝されて皆が興味を持つLisp、なんてありえると思う？
Lispは永遠にスーパーエンジニアの秘密兵器なんじゃないだろうか。
ま、おれはLispで凄いキラーアプリつくる予定だけど。

>>238

>>305
RMS の経歴を考えれば妥当でしょ。俺は↓のほうがびっくりした。
http://lispuser.net/memo/misc/2007-05-17-23-48.html
AoE II 遊んでただけど知らなかったわ。

慣れないうちは（）の多さに目が疲れる
それを乗り越えれればきっとはまれる

KiczalesだってAMOPの中の人だもんなあ

最初気になった括弧が、段々ただの「紙の端」くらいにしか思わなくなってくるから不思議だ。

昔の自分は何故、閉じ括弧が連続している部分をあんなに不安げに見つめていたのか、
もううまく思い出せないよ。あんな箇所、全然見る必要無いのにな。

>>313
エディタの設定で括弧の色を薄くするという、なんともチープなハックもあるがw

ところで括弧の話が出たついでにおまえらに聞くが、R6RSの [ ] ってどう思う？
Lisp慣れてる人は「そんなの要らん」だろうけど、これで少しでも慣れない人に
わかりやすくなるならアリなのかな、とも思うのだが。

あら、ちょっと探している間にずいぶんと流れてる…
>>307
http://practical-scheme.net/wiliki/wiliki.cgi?Scheme%3a%e3%83%9e%e3%82%af%e3%83%ad%3aCommonLisp%e3%81%a8%e3%81%ae%e6%af%94%e8%bc%83%3a%e6%84%8f%e5%91%b3%e8%ab%96

って探すのに15分以上かかったのね…

工学の為の工学か

>>317
おれは関数適用以外の括弧に[]つかうのはアリだと思うけど、
R6RSの投票結果ページにあった反対意見の中には、
処理系独自の拡張用に[]をとっておいて欲しい、というのもあった。
なるほどなあとも思った。

独自拡張は#〜使えよ。

>>315
その不安感分かるｗ
そして慣れると段々とカッコが見えなくなってくる。脳での処理方法が変わるんだろうね。
>>317
初心者に何の助けにもならないと思う>>[]
別に()の数が減るわけじゃないし。「異様」なカッコだらけのLispプログラムに、
ちょっと違うカッコ付けたって、普通のプログラムになるわけじゃないし。

>>320
確か CLtL にも [ ] を（デフォルトでは）定義しない理由でそんなことが書いてあったな

>>317
最小にこだわってたんじゃなかったか？とツッコミたくなるね。[ ] をユーザーに解放しないなんてとんでもない。

つうか define-syntax もよー。チューリング完全ならいいってもんじゃねーだろ。
パターンマッチ + 実用上十分な衝突の回避を defmacro の上に実装してよって思うね。

KOKUBANに書ければどうだっていいんだよ

>>316
括弧の良さというのは表現の“軽さ”だと思うんだよね。あれ以上シンプルな記号はあまりない。
これが begin 〜 end とか、XMLみたいな表記だったら、仮に論理的に同じこと書けても使い物にならんと思う。

その昔スーパー括弧閉じってのがあってですね。

>>327
パンチカードでは重宝であったｗ

支援機能つきエディタの発展とともに消えたんだよな >スーパー括弧

どんなことがあってもXSLTの再帰関数よりは簡潔です

vimですら、対応する括弧が常にハイライト表示なのに、
今時、括弧羅列が見にくいなんてあり得ないわ。

本とかで習うとそういう印象なのかもね

適切にインデントされてるのとインデントの部分に薄い縦線引いてくれるといいんだけどなぁ。＞本

>>318
R6RSでそのへんの意味論が決定されたってことは、
R6RS的には後者もOKってことでいいのかな？

S式に対する意味論だからそうだね。
まあ以前でも . 使えない実装の方が珍しかっただろうけど。

C系から来た人間には、閉じ括弧を纏めちゃうのも疑問だったよ。
閉じ括弧は一つ一つ書いた方が判りやすいのに、って。
実際最初はそうやって書いてた。
今は閉じるのが楽だし慣れたけど。

まっとうなインデントの為されたソースなら、何がどう書いてあっても
(hoge (fuga ...
　　　　(hage (higii 10 ...
　　　　　　(ahya ...
　　　　(pugera ...
このあたりの形で「骨組みの把握」は済んじゃうんだよね。「右っかわ」は殆どディテール専門。
だから閉じ括弧を纏めたほうがスッキリなんだろうな。
もちろん極論だけど、閉じ括弧はリーダが構造を捉える為のものであって、人間が構造を捉える為の
ものではない、という感じ。

これ、Pythonソースの見方に近いのかな？　Python触ったことないけど。
少なくともC系のソースは、同じ「骨組みの把握」をするにも、もうちょっとこう、文のアタマ側とケツ側、
両方からじわじわ捉えていく感覚が必要になる。俺の場合は。

パイソンは;等を省略すると、
構文構造を追うものがインデントしかない。
だから構文解析から得た情報で、
正しいインデント処理をエディタに任せる書き方慣れていると、
いろいろと面倒な時もある。
インデントは人間が明示的に行う場面が多くなる。
行末で)や}や;の代りに、次の行でのインデント上げを行う。

それが良いんだよ。

工学のための工学とか頭悪すぎて笑った。

自演乙

Lisper/Schemerオナニー見せ合いきめえｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

オナニーすら出来ない技術者以前の厨が喚いてます

R6RSの日本語訳ﾏﾀﾞｰ？

Common LispでもSchemeでもない俺様Lispって今どれぐらいあるのかな
どこかに一覧無い？

いったいどうやってそんな一覧を作るんだよ。

そのオレ様リスプ使用者が集まってくれないと作りようがないんだがｗ

俺様リスプをつくるような奴が、一覧をつくるとか、そんな無駄なことをする人間だと思うのか？

"俺様"抽出は他の人で
http://www.dmoz.org/Computers/Programming/Languages/Lisp/Compilers_and_Interpreters/
http://www.dmoz.org/Computers/Programming/Languages/Lisp/Scheme/Implementations/

Lisp処理系の作成って情報系じゃ普通に宿題で出るらしいね

たしかにMLで作った気がするなあ。しょぼいやつだったけど。

設定ファイルが必要になった->XMLで->なんか項目が増えすぎ->動的変更したくなった->なんかLispみたいになった->どうせならLispでいいじゃん->そのまま製品に

こういう事なら２度あった

Lisp使って仕事させてくれるなんて羨ましいな。
俺の会社じゃ絶対無理だ。「Lisp?何それ?それで書くと何人月減るのか証明しろよ」って言われる。
…やっぱschemeで仕事できる会社探すわ。

馬鹿だな、こっそり使うんだよ。とんがり頭の上司にバレた頃にはもう手遅れなのだ。

見付かったら
「これはXMLファイルですよ。＜＞の変わりに（）を使うのがWeb2.0なんですよ？」
と言えばおk。

巡回構造のS式の印字表現(read/writeできる)てありますか？
なんかGaucheでは#なんとか#みたいなのを見た事ありますが、
一般的なんでしょうか。

すいません
巡回じゃなくて循環ですた

>>356
srfi なので一般的って言っていいんじゃないでしょうか。
http://srfi.schemers.org/srfi-38/srfi-38.html

common lisp 由来ですね。
http://www.lispworks.com/documentation/HyperSpec/Body/02_dhp.htm

あ、SRFIにあるんすね。
こういうのって、相互参照してる場合どうなるのかなと。
(define x (list 'a 'b))
(define y (list 'c 'd))
(begin (set-cdr! (cdr x) y) #t)
(begin (set-cdr! (cdr y) x) #t)
(write-with-shared-structure x)
#1=(a b c d . #1#)
(write-with-shared-structure y)
#1=(c d a b . #1#)

やっぱこうなるか。
write-with-shared-structureで各々の変数を保存して、
後でread〜で取り出せるかなと思ったんですが、
共有関係が消えてしまいますね。
(define x '#1=(a b #2#))
(define y '#2=(c d #1#))
みたいな事は可能なのかな。
完全に構造を保存する場合はセルをダンプするしかない？

(define x '#1=(a b . #2#))
(define y '#2=(c d . #1#))
の間違いです。
参照先が全部確定するまでread-with-shared-structureは結果を
保留する必要があるし、write〜も一度に関係するリストを全て渡すか
しないと無理だから、このサンプルみたいなインターフェースじゃ無理ですね。

Lisper&Schemerの誰か、異論・反論よろしく

http://pc11.2ch.net/test/read.cgi/prog/1190731526/311
311 名前： 仕様書無しさん [sage] 投稿日： 2007/10/07(日) 02:56:19
> ではメッセージをちゃんとメッセージ（オブジェクト）として実装している言語はないか
> というとそんなこともなくて、古くは、メッセージングのＯＯの影響を受けて作られた
　　　　　　　　　　　　　　　　　　　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
> ACTOR という言語（これは、メッセージングのＯＯから派生したアクター理論に基づいて
　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
> 作られました）では、メッセージもちゃんとオブジェクト（ACTOR ではアクターと呼ぶ）で
　〜〜〜〜〜〜
> 表わされていましたし、最近の言語なら Io という言語で、同じくメッセージは
> 実体のあるオブジェクトとして内部的にも表現されている、という例があります。でも希有です。

Racter懐かしいな。「警官の髭は完成半ば」だっけ？

昔は「OOを思想からマスターしてオッサン技術者共を超えてやるぜ！」
とか思ってた。
で、CLOS勉強したら結局OOって単なるメソッドディスパッチなのね、
と思って萎えた…。

CLOS の記法は即物的で夢が無い

マルチプルディスパッチの夢は見ないのか？

>>364
だが、そこがいい

夢は無くとも簡潔さがある！効率がある！自由度がある！
…なんかLispが人気にならない理由が分かった気がする。

>>365
夜は:around methodに包まれて寝る。

人気がないのは新しくないからじゃね？

>>238

関数名で処理内容がわかりづらいのはどうにかしてほしいな
○○*とかprincとかprin1とか

まあそこらへんは……歴史が長い言語だからねぇ

OOは、実用的には呼び出し元の再利用と考えると良いと思う。

実用的には特に何も考えなくて良いだろう。

Lisp使えるからってオブジェクト指向がばっちりなわけでも無ければ、
SICPをちゃんと読んだわけでも無さそうだね。

>>375
おれはオブジェクト指向バッチグーだけど、
SICPにオブジェクト指向なんてあったっけ？抽象化はあったけど。

>>376
「〜でもなければ〜でもない」の意味も分からないのか

>>377
自分の句読点の位置を見直しましょう。

、< もうやめて！わたしの為に争わないで！

このタイミングでSICPを持ってくるのか
schemeキチガイは黒板と現実の区別がつかないのな

高度に発達した黒板は現実と区別がつかない。

オーオー、お前等楽しそうじゃん#AA略

>>380はLisp>schemeって考えてんのか？

不等号ｷﾀｰ!

schemeとLispはイスラム教とキリスト教の関係なのか？

>>383
コンピュータで動かすことを考えればね。
黒板上なら別にそんなことはないと思う。

>>383
中置記法か。お前Lisperじゃないな

なんかこういう
http://www.prescod.net/xml/sexprs.html
事を言っている人が居るみたいなんですが、
どうも的外れな気がするんですが…
皆さんどう思われますか?

CommonLispは土方専用だろ
洗練された知的階級の為のSchemeと同じスレで扱う事自体がおかしい

schemeはpythonとかと同じで教育用っつーかお試し用っつーかそういうもんだろ

↑土方乙。しかもPythonすら理解できてないのかｗｗｗｗｗ

Common Lisp: 土方歳三
Scheme: 原田左之助

洗練された知的階級なんて言葉で自己言及した時点で洗練された知的階級じゃないよ！

ってことを身をもって明らかにするschemerならではの反面教師的教育なのです

教育用の言語使ってる割には頭悪そうだな

これから教育を受ける段階にある奴ってことだからね。

教育すら受けられない中卒Common Lisper

そもそも >>389 は Common Lisp も Scheme も使った事が無いんだから
放っといたら良いじゃん

つれないこというなよ

>383
仕様のサイズ的には合ってね？

SchemeはR6RSでかなり分厚くなったと聞いたが

それだけ不純になったのよ

>>388
斜め読みしただけだけど、やってることは S 式の標準的な書式の見た目を
XML 文書と比較してるだけなのかな。
だとすると
> XML is not S-Expressions
このタイトルは不適切だな。

S式はCSVみたいにRFCに定義されたりしないの？

ISLISPがRFCになってなかったっけ？

ISLISPって全然はやってないんだなｗ

>>392
Mormon Lisp (Ruby): まつもと ゆきひろ

CommonLisp+末尾最適化+継続 = 大方のSchemerは文句いわない
Scheme - 末尾最適化 - 継続 = 粗大ゴミ

つまり素のLISPはゴミって事？

CL = RedHat Linux
Scheme = Plan9

てな感じ

今となっては RHL はあんまりw

>>408
そりゃCommonLisp以前に戻るんだからしょうがないべよ
その他大勢の方言の一つでしかないんだもの。

CommonLISPは分別ゴミ

>>408
素のLispはただの理論だからなぁ。
道具として便利であるためには、当然肉付けが必要になるよ。

クロージャすらないようではゴミと言われてもしかたあるまい

>>414
？

>>414
つ FUNARG

CL = スイスアーミーナイフ
Scheme = 肥後の守

Lispとかけてイケメンととく。

その心は、


「かっこが大変よろしゅうございますｗ」

とかヌカスつもりじゃないだろーな？

あーそれ俺が言おうと思ってたやつなのに・・・ひどい

むしろ「カッコばかりで中身がありません」じゃないのか？

でも簡単にペアになれるんだぜ？

少数点以下多数ある数値少数第1位までにして、切り上げして出力する方法ってある？
20.767841011743453→20.8
処理系はgaucheで。

ほんとにそれだけしたいなら(10進で)10倍してceiling(かな？)でいいんとちゃう？
単純でわかりやすいし。

>>422
うまいこと言うなあ

>>422
ウホッ

>>424
ありがとうございます。出来ました。
もうひとつ同じような内容ですが、
例えば、-1.0という答えを-1.000という回答に小数点以下第3位まで出す場合はどうすればよろしいですか？
やはりgaucheで

http://www.premiumtv.12gbfree.com/?RTV+4514/ChuckBraman/JazzPlayer

>>406
Moron Lispだと思った。

どうでもいいけど、S式でXML表現するときって名前空間はどうすんの？

>>429
それも正解。

>>427
かなり無理やりっぽいが…

(define (hoge kazu keta)
(let ((b (exact->inexact kazu))
(c (string-length
(number->string
(inexact->exact (round kazu))))))
(format #f "~v,,,'0,a" (+ c keta 1) b)))

(hoge 1 3)

もっとまっとうな方法がありそうな気がする

それってformatでパッとできないの？

>>430
コモンリスプならパッケージで桶

>>434
返信ありがとう。
URNとかも平気なのかな。
まあ、完全な同値変換はできないだろうけど。勉強してみる。

こんな表現にすればぁ
(tag :namespace (...) :attribute (...) :nodes (...))

>>430
A Lisp Based XML Parser
・LXML parse output format
http://franz.com/support/documentation/8.0/doc/pxml.htm#lxml

追加
http://opensource.franz.com/xmlutils/

このスレを見ている人はこんなスレも見ています。(ver 0.20)
Bart's PE Builder スレッド 5枚目 [Windows]
懲りずに騙されて花火板にまで飛ばされたわけだが３ [花火]
【CFNM】ちんちん見〜ちゃった☆Part14【えっ〜！】 [game12tr]
uim スレッド 7 [Linux]
2ch特化型サーバ・ロケーション構築作戦 Part26 [2ch運用情報]

>>19
> Schemeで書かれた正規表現ライブラリ
> ttp://www.cs.rice.edu/~dorai/pregexp/pregexp.html

http://www.ccs.neu.edu/home/dorai/pregexp/pregexp.html

gaucheのGauche-mingw-0.8.11＋meadow使ってるんですが、日本語の扱いが上手くいきません。
(print "こんにちは")
だと
縺薙ｓ縺ｫ縺｡縺ｯ
って出てしまう。
どのようにすればよろしいでしょうか？

文字コード

>>441
set-buffer-file-coding-systemとset-buffer-process-coding-systemで設定。
どっちかっていうとemacsの設定の話だな。

文字列が定義されてるとき、その文字列の組み合わせを列挙して、その数も表示する関数(com k seq)を作ってます。(setq abcd (list 'A 'B 'C 'D))として、たとえば(com 3 abcd)を評価すると、
(ABC)
(ABD)
(ACD)
(BCD)
4
となります。
先頭を選んで残りからk-1個選ぶ。先頭を選ばず残りからk個選ぶ。というのを再帰で書けば出来そうというのは考えたんですが、うまくかけません。習ってるのはdefun cond if cons car cdr print list null setqとかで、これだけで書きたいです。
また要素のi番目を調べる関数(ith seq i)と、2つのリストを結合する関数(merg seq1 seq2)、リストに一つの要素を加える関数appは以前に作ってて、これは使えます。
どなたか教えてくれませんか？

>>444
Common Lisp 入門スレにヒントがでてたよ。どのくらいまで自力でできたの？

うーん。いろいろ書いてみたんですが、うまく書けなくて…

(defun top (seq tmp)
(print (app tmp (car seq)))
(cond ((null (cdr seq)) )
(T (top (cdr seq) tmp)))
(setq tmp NIL)
)
(defun comb (seq k)



(cond ((= k 1) (top seq tmp) )
((null (cdr seq)) )
(T (setq tmp (list (car seq))) (comb (cdr seq) (- k 1)) (comb (cdr seq) k)
)))




>(comb abcd 2)

(A B)
(A C)
(A D)
(B C)
(B D)
(C D)

K=2のときはうまくいくんですが、3以上のときがうまくいかなくて・・・
どうしたらいいのか・・・・

(defun comb (seq k)
(setq tmp NIL)
(comb2 seq k tmp)
)

(defun top (seq tmp)
(print (app tmp (car seq)))
(cond ((null (cdr seq)) )
(T (top (cdr seq) tmp)))

)
(defun comb2 (seq k tmp)



(cond ((= k 1) (top seq tmp) )
((null (cdr seq)) )
(T (setq tmp (app tmp (car seq))) (comb2 (cdr seq) (- k 1) tmp)
)))
こうしたら
(ABC)
(ABD)はでるようになりました。
先頭を選ばず残りからｋ個選ぶ部分がうまくできません。

(comb '(a b c d) 3)
=> ((a b c) (a b d) (a c d) (b c d))
みたいな関数を作って表示は別にしたほうがいいかもしれんね

>>449
一応表示は top関数で表示してます。

(defun comb (seq k)
(setq tmp NIL)
(comb2 seq k tmp)
)

(defun top (seq tmp)
　 (print (app tmp (car seq)))
　 (cond ((null (cdr seq)) )
　　 (T (top (cdr seq) tmp)))
)

(defun comb2 (seq k tmp)

(cond ((= k 1) (top seq tmp) )
　　　 ((null (cdr seq)) )
　　　 (T (setq tmp (app tmp (car seq))) (comb2 (cdr seq) (- k 1) tmp) (comb2 (cdr seq) k NIL)
))
としました。

結果は

[37]> (comb abcd 3)

(A B C)
(A B D)
(C D)
(B C D)
T
[38]> (comb abcde 3)

(A B C)
(A B D)
(A B E)
(C D)
(C E)
(D E)
(B C D)
(B C E)
(D E)
(C D E)
T
ここまでなんとかなりました。　あと先頭要素が加わってないやつに加えられれば良いんですが・・・・

comb2定義の最後の括弧が抜けました・・・

>>449
読み違いました。そういう手もありですね。
しかしどうやるのか・・・

まず紙にでも書いて整理しろよ
頭で想像できてない事をプログラムできるわけないだろ

紙にも書いてみましたが>>450のやつから進みません・・・

紙に書いても判らんなら、もう一度単純ケースの把握からやってみれば？
ABC 2のケースとか。
あと、リスト処理と考えるより単純な集合の比較の問題って思った方がいいぞ。
carとかnullとかリストオペレーターをそのまま使うんじゃなくて
問題に適合するように抽象化してみるとか。

ABC 2 だったら
A選ぶ場合
B選ぶ場合
AB
B選ばない場合
AC
A選ばない場合
B選ぶ場合
BC
B選ばない場合
なし
って感じですよね？でもプログラムだとうまくいかないんですよねぇ。

プログラム的に考えてみろよ
例えばビットの組み合わせ問題として解く

1) 記号が3種類なので3ビットで表す
A 001
B 010
C 100

2) 重複に注目しながら全パターンを列挙してみる
AB 011
AC 101
BA 011 x 重複
BC 110
CA 101 x 重複
CB 110 x 重複

答え 110 101 110 すなわち AB AC BC

ごめん
答え011 101 110 すなわち AB AC BC
ね。

ABCD 3のケースならビット1が3つあるパターン
A 0001
B 0010
C 0100
D 1000
ならば
ACD 1101
ABD 1011
ABC 0111
BCD 1110

>>450
再帰関数についてもうちょっと勉強しないと…

(defun comb (seq k)
(top (comb2 seq k))
) としておいて、comb2は、
kが0でなければ、
　seqから一つxを抜き出して、
　(comb2 (seqからxを除いたもの) (- k 1))の先頭にxを付け足すしたリスト
　を全てのxに対して行って、皆listして返す。
k=0ならNILを返す。

k-1の時の結果から、kの時の結果を作り出す部分と
k=0の時の結果から再帰関数を構成する。

>>458
それはわかるんですが。うーん
>>460
先頭にxをつけ加えたリストをすべてのxに対して行うって言うのが書けないんです。正直、言うと誰か書いてもらいたいです。一旦答えわかったら理解できるかもしれないです

再帰で書く。
(car seq)に対して行った結果を、(cdr seq)についてやった結果に付け加える。
nilになるまでやる。

やっぱりできないんで、答えお願いしてもいいですか

やっぱりできないんで、答えお願いしてもいいですか

>>258
r6rsでは、
> Characters are objects that represent Unicode scalar values.

ちょっと困ったのが、stringはseqence of characterだから、
サロゲートペアを含めるには、stringじゃなくてbytevectorにしないと、
r6rs準拠にならない。

>>463>>464
宿題スレに行け。

>>465
なんで?
文字を素直に UCS-4 にしてしまえばいいじゃないか。

それじゃ「Unicode scalar values」じゃなくなってしまう。


> (integer->char sv) procedure
>
> Sv must be a Unicode scalar value,
> i.e., a non-negative exact integer object
> in [0, #xD7FF] ∪ [#xE000, #x10FFFF].

いや、サロゲートペアなんてのが出てくるのは UTF-16 をそのまま 16bit 値として
扱った場合だけでしょ。
string の内部形式として UTF-32 を使ってればそもそも気にする必要はないし、
内部形式に UTF-16 を使っていたとしても、char アクセス時にそれなりに変換
すればいい。
内部形式を UTF-16 にした string で、それをナイーブに char の配列として
実装しちゃいかんというだけのように読めるけどなあ。

UTF-16とかUTF-32とか関係ないです。
R6RSの文字は"Unicode scalar value"を表現します。
またR6RSに従うならそれしかできません。
"Unicode scalar value"はちゃんとした定義のある言葉です。

サロゲートペアってのは UTF-16 でしか使われないんだから、UTF-16 と無関係
なわけないじゃないか。
たとえば、U+2000B は UTF-16 で 0xD840 0xDC0B というサロゲートペアで
表されるけど、U+D840 や U+DC0B なんて文字があるわけではない。

あんたが (string (integer->char #xD840) (integer->char #xDC0B)) ができないって
言ってるみたいだから、俺は (string (integer->char #x2000B)) すればいいって
言ってるんだけど、何か勘違いしてる?

468で既に自分が何言ってるのかわかってないことを暴露している奴に、
そんな親切につきあわなくても……。もはやスレ違い同然。

Schemeのリスト操作関数について質問です。
Webでサンプルコードとかを検索すると、n番目のリストを参照するための
オペレーターとしてlist-refという名前の関数がよく使われてるっぽいんですが、
これに対応するlist-set!がみつかりませんでした。
ペアに対してのオペレーター(car cdr set-car! set-cdr!)は標準でありますが、
リストに対しては整備されてないんでしょうか。
↓みたいなのがSRFIとかで定義されていればそれを使いたいのですが。

;n番目以降の部分リストを返す
(define (list-tail l n) (if (zero? n) l (list-tail (cdr l) (- n 1))))
;n番目の要素を返す
(define (list-ref l n) (car (list-tail l n)))
; 破壊版 set
(define (list-set! l n obj) (set-car! (list-tail l n) obj) l)
; 非破壊版 set (list-replace?)
(define (list-set l n obj)
(let loop ((i 0) (x l) (r '()))
(if (pair? x)
(if (= i n)
(loop (+ i 1) (cdr x) (cons obj r))
(loop (+ i 1) (cdr x) (cons (car x) r)))
(reverse r))))

ちょっと今調べたらlist-tailとlist-refはR5RSにあるみたいですが
list-set!やlist-set相当はありませんでした。

そんな操作を使いまくるようならベクタを使う気がする。

魔法言語リリカル☆Lispフリーウェア化
http://blog.bugyo.tk/lyrical/2007/10/post_40.html

効率の話はともかくとして、list-setみたいなパターンはよく使うと思うんですが。
インターフェースを揃えておく利点として、他のコンテナに簡単に移行できる
という今更語るまでもなくCLや他の言語でも証明されてる事ですし。
takeやdropはSRFIで定義されてるのに不思議ですね。

欲しいと思ったことないけどな。
ランダムアクセスするなら >>475 の言うようにベクタを使うべきなんじゃないの？

>>478
〜するべき、とかの話はおいといて、
例えばプロトタイピグとかでコンテナをいちいち決めたくないと思いませんか。
list-set相当の処理は入るけど大部分が副作用なしのリスト処理の場合とか。

正直言って思わない。１分で作れるし。

setfみたいのならいいけど、
〜-set!が、コンテナの数だけあるのも、なんだかな。

やっぱOOが必要なんだろうけど、
プログラミング業界で一番OOに盛り上がりがないからな。
CLOSの頃と違って。

とりあえずlist-set相当は無いらしいという事は判ったので
この話は終わりますね。

>>481
OOというよりイディオムとしてのインターフェースは統一した方が
判りやすいと考えてるんですが。(今のところOOは必要と思ったことないです)

>>480みたいな人が多くて、
方言上等！みたいなのがこの世界です。

君が思ってるほどよく使われるイディオムでは無いってこと。ベクタってものがあるから。

>>481
setf 的な set! だったら srfi にあるね。
http://srfi.schemers.org/srfi-17/srfi-17.html

>>482
> (今のところOOは必要と思ったことないです)

今のところlist-set!は必要と思ったことないです

クラス作ってどうこうのOOじゃなくて、MP的な意味でのOOじゃだめなの？

MPってなんや

Meta Programmingちゃいまっか?

MP = Message Passing

Magic Point

もっとぷにぷにして

マッスルパワーだろ、常考

『みじめな　ポインター』じゃねーの？

もぷー

お前ら何言ってるんだ。
「Mですか?」の略だろ。LISP的に考えて。

My Program?

KXW9XK <a href="http://nycokewromgk.com/">nycokewromgk</a>, [url=http://bezgtedzkmkl.com/]bezgtedzkmkl[/url], [link=http://ckqlcozchtel.com/]ckqlcozchtel[/link], http://mtedzghiaczp.com/

バカな流れになるとこれが沸いてくるのはなんでだ

偶然です

以前、このスレ（だっけ）でも話題になった、eclipse用のslimeの様なもの。
swank backend を使った、開発環境が、取り上げられています。

ttp://www.ibm.com/developerworks/library/os-eclipse-lispcusp/index.html

screen shotを見る限りでは、現時点でも、ずいぶんイケてるっぽいです。

わたしは、eclipse環境を使ってないので、今すぐに試す気はしませんが、
補完候補が、GUIで縦に表示されるのを、そのうち味わってみたいです。

Schemeってなんか使いやすくないですか？

そうですね

だよね

やっぱりね

でもそんなの関係ねー

はい、おっぱっぴー

前にもそういう一発系のネタあったよね。
どんなだったか忘れちゃったけど。
LISPの永続性と真逆の関係だね。

YコンビネータってなんでY　？
「ワイはコンビネーターや」ってことかい？

そんなあほな

「ワイは猿や！コンビネーター猿や！」
「必殺、包み包み！」

なにゆうてまんねん

ポール・グレアムが耳だけ出した覆面かぶってるって話

>>513
それはポール大好きグラハム・ちゃっぷまん＠世界の料理ショーじゃまいか？

グラハム・カー＠世界の料理ショー
ビリー・グラハム＠テレビ宣教師

このスレは勉強になります

うそをつかないでください

グラハム・ボネット＠横山やすし

r6rsってスタンダードになれなさそうだよねぇ
後始末が面倒くさそう

Cltl3はまだですか？

君が書くんだ

電話帳なみにぶ厚い仕様書を頼む

黒板に書けば1枚でも分厚いよ

うちの村の電話帳は薄いよ

>>520
アレをかける人で執筆時間がとれる人いるんだろうか。

GLSを拉致して・・・

3冊ほどLisp本ｷﾎﾞﾝ

Common Lisp the Language, 2nd Edition
On Lisp
Practical Common Lisp

入門書がないのはナゼ。

始めるならschemeがいいよ
CLはつまんない制約ばっかりで最初は滅入るから

>>529
入門は一生に一度だけだから、比較的マイナーな分野だと言えよう

>>530
そんなこたあない

>>531
そんなこたあない

>>528
thx
>>534-
他の皆さんは？（・∀・ ）っ/凵 ⌒☆ﾁﾝﾁﾝ

>>531
BSD類のインストーラに凝ったものが無い、というのと同じような気がする

ttp://www.hi-ho.ne.jp/a_ogawa/oedit/

・マクロ(schemeインタプリタ)を実装

だって。

>>535
浦島かよ。
PC-BSDのインストーラはLinuxみたいに凝ってるし、
FreeBSDも7からGUIインストーラが用意される予定。

予定に過ぎないのであれば大筋合ってるじゃん

>>537
OpenBSDのインストーラは最後の砦だｗ

>>537
浦島かよ。
FreeBSDのGUIインストーラは7に入らないことが決定済み。

もまえら、Unix板に返れ。

もまえら、Unix板に変えれ。

SFUが.NETみたいに標準搭載になればいいのにねえ。
WinFXでWin32を順次置き換えていくらしいから、
もう既にWin32で囲い込みする必要もないだろうに。
サポートの手間がメンドクサイからまあ、なさそうだけど。

マイクロカーネルだって事を M$ 自身が忘れてしまっている

>>543
なぜこのスレで書いてるのか知らんが、Windows Vista では
Enterprise、Ultimate 版に SFU の後継である SUA が載ってるよ。

slime専用sbcl coreをmake一発で作りたいとおもい、
sbcl-core:
rm -f ${SBCL_CORE}
sbcl <<EOF
(load "${SRC_DIR}/${PACKAGE_NAME}/swank-loader.lisp")
(save-lisp-and-die "${SBCL_CORE}")
EOF
としてみたのですがうまくいきません
どうしたらよいでしょうか。

エラーメッセージは?

makeの継続行は最後に\
here documentでは必要ないが、
makeは一行で1 shell script。行継続しないと。ってことかな?

schemeで
common lispの
(let ((count 0))
　(defun increment ..
　(defun decrement ..

のような処理をしたい場合はどうすればいいのでしょうか?

>>548
(define inc #f)
(define dec #f)
(let ((count 0))
  (set! inc (lambda ...))
  (set! dec (lambda ...)))

>>549
schemeの理論をそれほどちゃんと理解しているわけじゃないが、
厳密に言えばincrementをlambdaに束縛するのがincrementを呼ぶ前に
行われるとは限らないんじゃないか？

(let ((count 0))
　(define inc (lambda ...))
　(define dec (lambda ...)))
ってできないの？

最近勉強始めたんだけどschemeで作るプログラムのアーキテクチャが全然想像できない
オブジェクト指向だったらMMVCとかあるけどschemeでオブジェクト指向やってもうれしくもなんともないし

うれしくなければやらなければいい。

>>551
r5rs - 5.2.2 Interanal Definition

初心者で質問なんだけど、手続きが可変長引数を取るとき、
その全てを引数として他の可変長引数を取る手続きに渡すにはどうすれば良い？

(define (f1 . x)
x)
(define (f2 . x)
(f1 x))
(f2 1 2 3 4 5 6) ; ((1 2 3 4 5 6))になっちゃう(1 2 3 4 5 6)にしたい

(apply f1 x)

>>555
ありがとー

>>552
scheme とか lisp には言語を自由に拡張できるマクロが...
なので
> プログラムのアーキテクチャ
てなものを考えてもしょうがないと思うけど...

「特定の言語とかモデルに捕らわれないで問題領域解決用の専用言語を作る」
のが lisp 系言語の流儀だと思う.

Lisp : 粘土
Java : 煉瓦
Ruby : 絵の具

俺言語とかDSLを作らなくても最終目的に向かう途中で実行系自体がDSLみたいな状態になる。
プログラムを作るというより実行系の環境を最終目的物に書き換えていくみたいな感じ。

粘土細工作るときの作業台全体みたいな物だと思ってるんだけどどうなんだろう。

うわ、くだらねぇもの書いている間にシンプルなお答えが orz

その点、haskellとかocamlとかどー考えてんだろ

Haskell 実行する前に問題解決

>>551
出来る
けど内部定義のdefineだから
グローバルな束縛にならない

一方set!なら可視な束縛の変更だから
グローバルな環境の変更もできる

553がシンプルな答えだけど

>>563 の言うようにset!がシンプルだけど，
let環境の値としてinc, dec（を含むリスト）を返し，それを外部でinc, decで束縛すれば...

(define tmp
　(let1 count 0
　　(define (inc) ...)
　　(define (dec) ...)
　　(list inc dec)))

(define inc (car tmp))
(define dec (cadr tmp))

;; 自分では動くか試してない（ぉ

それなら、defineせんでも、lambda式返せばいい。

>547
ありがとうございます

make sbcl-core
rm -f /home/hoge/.sbcl/sbcl.core-with-slime
sbcl <<EOF
This is SBCL 0.9.17, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
* (load "../src//slime-cvs/swank-loader.lisp")
load: not found
*** Error code 127

というメッセージが出ているので、makeの問題では無いと思うんですが…

Scheme も internal define なんて導入せず、それ以前の Lisp みたいに
define は top level をいじることにしとけばよかったのにな。
そうすれば begin の
5.1 Programs
> At the top level of a program (begin <form1> ...,) is equivalent
> to the sequence of expressions, definitions, and syntax
> definitions that form the body of the begin.
5.2.2 Internal definitions
> Wherever an internal definition may occur (begin <definition1>
> ...,) is equivalent to the sequence of definitions that form the
> body of the begin.
みたいな特別扱いも不要だし
(define x 10)
(define y x)
y => 10
(let ()
  (define x 10)
  (define y x)
  y) --> error
なんてわかりづらいこともなくなったのに。

beginのその特別扱いってなんであるんだ?
処理系書くとき邪魔だよねえ。

しかしdefineで内部関数を書けるのは便利。
labelsとかfsetとかは醜い。書きづらいし読みづらい。

二つ目の方が、
(begin <form1> ...)じゃないから、
(begin (begin <definition1> ...))を機械的に、
<definition1> ...とsplicingするわけにいかないのがきつい…

こっちはR6RSではないんでしょ。
・Internal definitions are now defined in term of letrec*.

トップレベルの方はライブラリがらみでまた気にするところ増えたけど。

(begin (begin <definition1> ...))が
(begin <definition1> ...)になって、次は、
<definition1> ...でいいんじゃないのかなあ?

その辺り、R6RSの方が解釈しやすい書き方だけど。
<body> <library body> <top-level body>と、
構文上のノンターミナル使って定義してあるから。
R5RSは文章での説明が多くて理解するのに頭を使う。

The Little Shemerを簡単じゃないかと思衣ながら読んでいたら、
８章の途中から泣きそうになった(高階関数のあたり)。

何とか理屈はわかったけれど、身に付くかどうか・・・
がんばってみます。

>>571
おお仲間だ！
multiremberEcoとかcontinuationとか出てきたあたりで学習速度がすっごいダウンするよね

The Little Shemerは、
曖昧に理解せず、身に付けさせるための本だから、
ちゃんと読み終わったら身に付くよ。

seasonedとかreasonedはどうだった？

lisp で並列分散処理プログラムを実際に書いている人は居ます？
どういった処理系もしくはライブラリを使ってますか？
やっぱりほとんどいないのかな。。

3行目があるせいで釣りにしか見えん。

まじめに自分もその環境でコーディングしたいと考えています。
並列プログラミングの話ってほとんど語られていないと思ったんで。

Erlisp は期待してたんだけど、どうなったのだろう

cmlisp とか, *lispとかの話かい???

CL のライブラリだよ

アナルlisp？

Schemeの入門はLittle Schemerしかないのかな。
手習いや湯浅先生の入門本は入手しづらいし。

あなりすぷ・・・

(cons 'ちんぽ 'アナル)

`(ちんぽ . アナル)

Python実装だけど並列処理の記述はLispでやる予定の俺がいますよ

みんなschemeの処理系なに使ってんの？
みんな自作？

ごうしゅをつかってまつ

Gauche 時々 MIT

587 じゃないけど...

MIT 使ってる人は初めてだ。もし良かったら、
どんな時に Gauche じゃなくて MIT を使うか
教えて下さい。

MITしか入ってない環境で作業するとき･･･。

職場で借りてるファイルサーバになぜか入ってて時々使ってるって程度の話ね。

多くのディストリとかcygwinに、わりとデフォで入っているという理由で guile を使うことがある

>>591,592
どうもありがとう。何か拘りがあって使ってらっしゃるのかと思いました。

>>587
slang

リストの中からある要素を探して、その要素の前にあるオブジェクトを破壊的に挿入する
にはどうしたらいいでしょう。例えば、3 の前に 'a を挿入したいです。
(let ((x 3))
(let ((ls (list 1 2 3 4 5)))
;; ここ
ls))
=>(1 2 'a 3 4 5)

俺初心者で悪いけど、こういうこと？

(define (find-insert lst fnd val)
(define (find-cdr lst f)
(if (equal? (cadr lst) f)
lst
(find-cdr (cdr lst) f)))
(let ((l (find-cdr lst fnd)))
(set! (cdr l) (cons val (cdr l)))))

(define ls '(1 2 3 4 5))
(define x 3)
(find-insert ls x 'a)
(write ls)

>>597
お付き合いいただいてどうもです。ヒントになりました。
setf を使えば良かったみたいです。3 の後になってしまいますが、
次善の策としてこれでも良いです。
(let ((x 3))
(let ((ls (list 1 2 3 4 5)))
(let ((place (member x ls)))
(setf (cdr place) (cons 'a (cdr place))))
ls))
=>(1 2 3 a 4 5)

>>587
俺はPLTだな…IDEが付いてくるからって理由だけだが。

gaucheとscm。
scmはdefaultでreadlineがあるからちょこちょこ書くときはこっち。

scheme48（とguile）
有理数が使えていろんな環境で使えるのはこれくらいしかない（と思う）
ocsなんかも面白そうだけどまだあんまり使ったことない

一度どれか使っちゃうと、
独自仕様部分のポーティングが面倒になる。

つまりスキームなんてどれも使うな、コモンリスプ最強ってことか？

>>603
Common Lispの処理系が動かない環境もあるんでつ(´・ω・`)

どんな環境？

zaurus-openbsdとか

clispくらい動きそうだけどな

つPalmOS

>>607
動きそうだけど動かないですねぇ
clispもGCLもGaucheもMzSchemeもGambit-Cも

Gambit-Cはビルドは成功するけどリーダがいかれてて
3 -> 0
8 -> unbound error
とかになります
ソースが機械翻訳のCだから追う気になれないけど
規則性のあるバグだから見つかればつぶせそうです

scheme48は依存ライブラリもなく、GCも多倍長計算も有理数も自前なのにi386 onlyでポーティングされてるのが疑問
だから自分でパッケージ作っていれてます

Linuxならi386以外にもportされてるけどな
ttp://packages.debian.org/sid/scheme48

というかzaurusなら普通にscheme48のパッケージが流通しているわけであるが。

感度の悪いアンテナ持ってるやつってどうよ？

>>611
zaurus-"OpenBSD"の話です
i386のみにportingされているのは事実です
i386じゃなくても動くのも事実ですけどね

好きで使っているOSへの愚痴は、そのOSの板でやってくれ。

そう、ここは好きじゃないのに使わされている OS への愚痴を書き込む場所です

好きでも嫌いでもないOSの愚痴はどこに書き込んでもいいです

押忍

OCS ってこれか。

http://will.iki.fi/software/ocs/

御意

>>600
ledit使えばいいんじゃね? > readline

$ ledit gosh -i

$ alias gau='ledit gosh -i'してる。

SECDR-Schemeってソース見てみたいんだけど、誰か持ってない？
テンプレのリンクは切れてて見れませんでしたわ。

以前ダウンロードしたときはリンク切れから適当にURLを推定して当てた記憶があるですよ。

だから、そのダウンロードしたソースを持ってないでしょうか？
って聞いてるんだわ。（＾〜＾）

　 　 　 　　　　　　　｢￣ ｀ヽ､ 　　＿_＿_＿_
　 　 　 　　　　　　　Ｌ -‐ '´ ￣ ｀ヽ- ､　　　〉
　　　　　　　　　　／ 　 　 　　　　　　ヽ＼ /
　　　　　　　　／/ 　/ 　/ 　 　 　ヽヽ　ヽ〈
　 　　　　　　ヽ､レ! {　 ﾑ-t ﾊ　li ､ i　i　　}ﾄ､
　　　　　　　　　ﾊＮ |　lヽ八l ヽｊﾊVヽ､ｉ j/ l　!
　 　　　　　　　/ﾊ. ｌ ヽｋ=＝　,　r= ､ﾉﾙｌ　lＬ」
　　　　　　　　ヽN､ﾊ ｌ　 　┌‐┐ 　 ﾞl ﾉl　l
　 　　　　　　　　　ヽﾄjヽ､　ヽ_ノ 　 ノ//ﾚ′
　　　　r７７７７７７７７７tﾉ｀ ｰ　r ´ﾌ/′
　　　ｊ´ﾆゝ 　　　　　　　ｌ|ヽ 　_/｀＼
　 　〈　‐　持ってるが　ｌﾄ、　/ 　 〃ゝ、
　 　〈､ﾈ.. 　　　　　　 　.ｌＦ Ｖ=＝"／ ｲl.
　　　ト |お前の態度が とニヽ二／　　ｌ
　　　ヽ.|l　　　　 　 　　〈ｰ- 　 !　｀ヽ. 　 ｌ
　 　 　 |l気に入らない ｌﾄﾆ､_ﾉ 　 　 ヾ、!
　 　 　 |l_＿_＿_＿_＿__ｌ| 　　＼ 　　　ソ

CommonLispやSchemeでは、
2個以上の引数を取るandやorはマクロで定義されている様なんですが、
関数を使っても定義できるはずです。
なぜマクロを使っているのでしょうか。

無駄な評価をふせげるから。

そんで、大昔は、特殊形式でやる流儀もあったけど、
今はマクロで済むことはマクロでやる流儀。

誰かfranzセミナー行った人、内容教えて

>625
関数だと引数をみんな評価してしまうけど、
マクロならしないってことですか?

>626
すいません
特殊形式とマクロの違いがよくわかってないんですが、
引数を関数とは違う順序で評価するという点で同じで、
そのうち特殊形式はプリミティブなものと言うような理解で
いいんでしょうか。

>>628
andもorも、「左から見ていって、途中でオシマイという運びになったらその後ろは評価しない」ものでしょ？
でも関数は「まずすべての引数を評価する」機構なわけで、それではandもorも実現できない。
一方、マクロは引数をまったく評価しない。だからこれを使って定義されている。

特殊形式は、すべての引数を評価するとは限らない関数、みたいなもので、
想像の通り、プリミティブなものだ。

てかこの辺り、Lispの勉強の初日や二日目の範疇じゃないか？

遅延評価を導入すれば関数として統一的に定義じゃないかという吊りかも

脳内のイメージが遅延評価な人なのかもしれん。Haskell でも試してみたら？

>>628
なんのために書籍の「ON LISP」があると思っているのか

賢い人を更に教育するため。

私たちにとっては，On Lisp でレベルアップして，
更にいろいろ教えてくれる様になったその人たちに
より突っ込んだを質問が出来るようになる。だな。

初心者はANSI Common Lispがいいよ。On Lispはちょっと応用すぎる。
あとはEmacs Lisp Tutorialとかも参考になるだろうね。

Scheme→Common Lispだと拒否しちゃいそうだけど
Common Lisp→Schemeだと使い分けられそう。

プラットフォームがBlackboardならScheme、それ以外ならCommon Lisp。

引数の評価についてはSICPでも超序盤で触れてるね

>>633のような輩に無料で教えるほど賢い人は暇ではないだろうな

>629
>andもorも、「左から見ていって、途中でオシマイという運びになったらその後ろは評価しない」ものでしょ？
なるほど、単なる論理演算かと思ってました
ありがとうございます

>630,631
最近Haskellをかじって
うはwwwマクロもういらねんじゃね?www
とかいって喜んでたんですが、やっぱりそれであってるんですね

>>115-128 あたりで同じやりとりをした気がするけど、遅延評価でも関数じゃ setq とかが書けないんで、マクロは必要。

マクロがあってもスペシャルフォームは書けないはずだけど。

setq って quote して set するだけだと思ってたけど、他に何かしてたっけ？

遅延評価でquoteが書けるか？

>>642
説得してる

>>642
それだと（多くの処理系では）グローバルしかセットできない

なるほど。
# 普段 ELisp しか使ってないから、 set するだけだと思ってた。

じゃ、 case とかが書けないからマクロは必要、に訂正かな。

>>635
SchemeとXyzzyLispって俺はどうすれば…。

どうしようもないね

>>635
俺は逆だなぁ、CLだとなんでも揃うのだけどSchemeだと原理主義ありきなんで妥協してくれないから。

原理主義ってどんなの?
「プリミティブがあれば充分」論者はR6RSで少なくなっていくと思う。
moduleとかOOとか。

じゃあ、さっさと R6RS を実装しやがれ

あんなR6RSを正直に完全実装するのがでてくるかな？
リファレンス実装以外で。

今のメジャーな処理系が実装するというよりは、新しい処理系で R6RS 準拠ってのが出てきそうな気がする

SchemeのC++0xやー

個人的にはR5RSにリードマクロとsyntax-caseと{read,write}-byteとfile-seekとsystemと環境を明に操作する手段とimplicit forceとfull numeric towerとFFIさえあれば良いだけなんだけどなぁ
実装してる処理系はあるけど標準化されてないってのがネック
UTF-8ファイルの読み書きで１バイト読み込むのか１文字読み込むのか実装依存（１文字読み込む実装は知らないけど）だし

構文オブジェクトもファーストクラスにして
(define foo (syntax ...なんて構文で定義したり
applyの第１引数に構文オブジェクトを受け取るように出来たらいいのに
でもそうすると構文木解釈系でしか動かないだろうから相当遅くなるし
そもそも合成構文はevalされる前に展開されるから無理か

ただCLと違って値も関数もdefineで定義できるのに
構文定義だけdefine-syntaxってのが美しくない気がする
define-syntaxは処理系に対して、defineは実行系に対しての構文だと割り切るしか無いか

そういえば以前PCLの翻訳が進んでるって話題でてたけどどうなったんだろう。
中止になったのなら半分まで進めて止まってる翻訳再開しようかな・・・

>>656 あなたは「RHG読書会」というお告げが聞こえたような気がした --more--

>>656
Lisp関係の書籍出している出版社に問い合わせてみては?
既に進んでいるなら、翻訳者陣に参加して加速してくださいw

>655
ハゲド
ごちゃごちゃしたいならCLに行けば良いんだから
schemeは原理主義的な性格を守っていってほしい

構文オブジェクトは普通のマクロ入れると
コンパイラのコード生成ルールを吐いてくれるように出来ないかな?
ほんとに動的なマクロだと無理だろうけど...

continuation の挙動について理解できていない点があり，
以下のような 2 種類の Scheme コードを書いてみました．

;;; case-A ----------------------------------------
(define continuation-A #f)
(define procedure
(lambda (n)
(define counter-A n)
(call-with-current-continuation
(lambda (k)
(set! continuation-A k)
(write counter-A) (newline)
)
)
(set! counter-A (+ counter-A 1))
(write counter-A) (newline)
)
)

(procedure 0) ; ==> 0 と 1 が表示される
(continuation-A #t) ; ==> 2 が表示される
(continuation-A #t) ; ==> 3 が表示される
(continuation-A #t) ; ==> 4 が表示される

;;; case-A おわり

;;; case-B ----------------------------------------
(define continuation-B #f)
(do ((counter-B 0 (+ counter-B 1)))
((= counter-B 10) 'finished)
(if (= counter-B 5) (call-with-current-continuation (lambda (k) (set! continuation-B k))))
(write counter-B) (newline))
; ==> 1 2 3 ... 7 8 9 finished が表示される

;;プログラム実行部
(continuation-B #t) ; ==> 5 6 7 8 9 finished が表示される
(continuation-B #t) ; ==> 5 6 7 8 9 finished が表示される
(continuation-B #t) ; ==> 5 6 7 8 9 finished が表示される

;;; case-Bおわり

case-A では
continuation-A が生成されたときから変数 counter-A が
ずっと見えたままであり，
continuation-A の呼び出しごとに counter-A の束縛値が
1 ずつインクリメントされていく．
(continuation-A が呼ばれるたびに，
「continuation-A 生成時における counter-A の束縛値」である 0 に
いちいちリセットされることはない．)

case-B では
continuation-B が呼ばれるたびに counter-B の束縛値は
「continuation-B 生成時の counter-B の束縛値」である 5 に
リセットされる．

多分基本的なところが理解できていないのだと思いますが，
この 2 つのコードにおける continuation 上の変数の見えかたについて
なぜこのような違いが生ずるか，お教えいただければ助かります．

わざわざdoなんか使うから話が余計ややこしくなってる。
doを再帰に展開してごらん。

doは再帰だから。
doのdefine-syntaxがR5RSに書いてあるから読んでみたらどうよ?
束縛環境を良く考えると分かるはず。↓while版

(define continuation-B #f)
(let ((counter-B 0))
(while (< counter-B 10)
(if (= counter-B 5)
(call-with-current-continuation (lambda (k) (set! continuation-B k))))
(write counter-B)
(write-char #\ )
(inc! counter-B))
(print 'finished))
(continuation-B #t)
(continuation-B #t)
(continuation-B #t)

do は counter-B の値を破壊的に書き換えてない。
新しい環境作って、そこで同じ名前に別の値を束縛してるだけ。
だから元の場所に戻ると、そこの環境にはそのときの値が残ってるから、その値が参照される。

set! は破壊的に書き換えるから、元の値が残ってない。

Clojure試してるんだけどClassCastExceptionばかりで使い物になんないよ……
どうなってんのこれ。

clusure じゃないの?って検索してみたら…

java スレ行け。

× clusure
○ closure

>>666 作ってるよーという話がでたばかりの言語に安定性を期待しすぎなんじゃないの？

Clojureは広い意味でのLISPっぽさがあっていいんじゃないの？

一般的なLispとの違いがまとめてあるけど、
http://clojure.sourceforge.net/reference/lisps.html
どう考えてもLispでしょ。

Haskell方面で良く使われているSTM、
それにreactive Agent使った並列Lispの一種で面白いと思う。
STMでいろいろ遊んでみたかったんで試してみます。>>666サンクス

>>667みたいな馬鹿はなんなんだろ。

java で書かれたなんらかの言語の実装系に問題があるなら
なんらかの言語は無関係と思うが?
ClassCastException って java の例外でそ?

661=671乙

javaで書かれた何かの言語の処理の実装系に問題があるなら
その何かの言語よりjavaに通じた人に質問する方が効果あると思うが?

ClassCastException は java の例外でしょ?

と考えたが、Cで書かれたschemeの処理系に問題があった場合、
C使いだけでなくschemerに聞くのも有りか…

javaグラマに偏見あるな俺は

>>673
>>664は俺なんだけど何で分かったの！びっくり！
と思ったら>>661 orz

>>666の間違いかよ！

>> 675

誤りについては御寛恕賜りたく、

>>674
あるみたいだね

最初はJDK1,7のクロージャの実装がまだバグが多くて愚痴った内容を誤爆していたのかと思った。
JVMの上で動くClojureというLISP処理系の話とは思わなかった。

>>671
>>>667みたいな馬鹿はなんなんだろ。

2ch だからといって安直に馬鹿とかアホとか書くのは止めた方が良いよ。

ポメラニアンファック！ ヽ(`Д´)ﾉ

>>679
書いた本人が安直な馬鹿だから、言ってもしょうがない。

>>666
ClassCastExceptionなんていうJavaの例外が出てる時点で、処理系の不具合だろうが。
不具合あるなら、ソース読むか、コミュニティに報告するかだろ。
それができないんだったら、安定版がリリースするまでおとなしく黙ってろ。

>不具合あるなら、ソース読むか、コミュニティに報告するか
あるいは愚痴を言う、だろ?

そのキツい態度はこのスレに取って良い未来を生み出さないと思うのだが。

>>683
その優しい態度も良い未来を生み出さないという意味では同じであろう。
つまり、好きにそれぞれの芸風でやってくれ。ｗ

俺は優しくしているつもりはない。
ただフレームを生み出すよりは無視する方がまだマシだというお馴染みの主張をしたいだけで

R6RSなんかより、MS謹製のLisp#に期待だなぁ。
強力なIDEの付いたVisual Lisp# 2008出してくれないかな。。

俺は型付き Lisp が欲しいな。勿論型推論込みで。

インタープリタで型推論とか出来るんだろうか

hugsとかやってるじゃん

>>686
どんなMS独自仕様が拡張されているの?

OCamlなんかもインタプリタで型推論してますね

ところでScheme48でscmファイルからモジュールを,openする方法ってないんでしょうか？
モジュールを,openしたヒープイメージを,dumpか,buildする方法だとなんか大げさだし
標準入力で,openさせて-a batchする方法だと標準入力が塞がっちゃうし
(open structure-name)とかで,openできればいいんですけど…

>>690
.NET Framework をシームレスに呼べるようになってたりするのだろう。ｗ
それはそれで便利かも。

F#ですか

MSによりLisp#が開発される暁には、.net frameworkを呼べるようになるだけではなく、
Java→C#で行われたような言語レベルでの大幅な強化・改善が行われるだろう。

丸括弧が無くなるんじゃねーの

あの会社としては、CLtLとかRxRSなんて気にしないで新標準を作っちゃうんだろうけど、
それでも依然として LISP ではあるところが LISP の包容力の大きさだ。ｗ
まじでやってほしい気がしてきた。

lispであるための条件って
表現がS式であることしか無いような気がしてきた

M式の立場は？

SM式?

665で１文字読み込む実装は知らないなんて書きましたけど
無知すぎました
エンコーディングさえ設定すれば１文字読み込むことも出来る実装がちゃんとあるんですね

>>695
( ) の代わりに全部 { } で書くの？

>>700
>665で１文字読み込む実装は知らないなんて書きましたけど

665にはそんな記述見あたらないんだけど…
655の間違いだな

>>695
dylanのことかーっ

slib/scheme48.initに答えが書いてありますねorz
slibはscheme48を冷遇してるから期待してなかったんですが…

>>702
訂正どうもです

『Gaucheプログラミング』

Kahuaプロジェクト　著
川合 史朗　監修
ISBN978-4-87311-348-7
定価3,360円

>>706
発売日は決まったの？

>>706
「プログラミングGauche」じゃなかったっけ?

「プロGaucheグラミング」

「プGロaグuラcミhンeグ」

それが出たら終了だな

「プログラミング」

　　 ∩＿＿＿∩
　　 | ノ　　　 　　 ヽ
　　/　　●　　　● |　G、Gauche！
　 |　　///( _●_)//ミ
　彡､　　/⌒)(⌒ヽﾉ
　　./　 /　 /　＼　＼
　　l　　　ノ　　　 `ｰ‐'

ガウチェ

assqとassocはeqとequalの違いがあると本に書いてありました。
でも、どんな場合に違いがでるのかわからないので説明があるどこかのURLを教えてください。
お願いします。

>>714
eqとequalの違いは判る人？
それすら判らない人？

>>714
http://www.google.co.jp/search?q=eq+equal

>>714
"Comparator"の違い。

>>715
わかりません。

>>716
やってみましたが下記のような感じで書いてあり、いまいち初心者にはピンと来ないのです。

eq
二つのオブジェクト(実体)が同じものの時。
実体が同じということは、その内容が変われば、他方の内容もそれにつれて変わるような関係。
シンボルや、整数値の場合は、名前や値が同じだけで同じと判別する。
equal
中身が同じものを指しているなら真。

>>714
一致する場合はこう。

(assq 'a '((a b) (c d))) ; => (a b)
(assoc 'a '((a b) (c d))) ; => (a b)

違いは以下のような場合。実行してみるとこういう違いがある。

(assq '(4 5) '(((1 2) 3) ((4 5) 6))) ; => #f
(assoc '(4 5) '(((1 2) 3) ((4 5) 6))) ; => ((4 5) 6)

>>718の説明から理解するのは難しい。

>>718
Javaの == と equals との関係に似ている
eq はポインタ同値

>>718は変。
eq
< 二つの引数が同じオブジェクトなら真。
equal
< 二つの引数が別のオブジェクトでも中身が同じなら真。

>>718
うるさいことを言わなければ、は以下のような使い分けになる。

・シンボルであることが明らかな場合は eq を使うことができる。（eqのほうが速い）
・そうでないときは equal が安全。
・その中間として eql ってのがある。構造のあるもの（リスト・文字列・配列など）でないことが
判っていればこちらのほうが速い。
・数値同士だと判ってるなら =、文字列同士なら string= がたぶん速い。

なぜこんなことになってるか知りたければもっと勉強するべし。

>>719-721
ありがとうございます。すごくよくわかりました。
(assq '(4 5) '(((1 2) 3) ((4 5) 6))) ; => #f
(assoc '(4 5) '(((1 2) 3) ((4 5) 6))) ; => ((4 5) 6)
の場合には(4 5)が別々のオブジェクトをさすポインタだからeqでは偽になるんですね。
でもequalだとオブジェクトが同じだから真になるんですね。

>>718
assqの実装は大体こんな感じになっている。

(defun assq (key alist)
(cond
((null alist) nil)
((eq key (car (car alist))) (car alist))
(t (assq key (cdr alist)))))

assocならこう

(defun assoc (key alist)
(cond
((null alist) nil)
((equal key (car (car alist))) (car alist))
(t (assq key (cdr alist)))))

>>724が言うようにeqlや=やstring=を使えば用途に応じて高速なものが使える。

>>723
> でもequalだとオブジェクトが同じだから真になるんですね。
< でもequalだとオブジェクトの中身が同じだから真になるんですね。

>>722>>724>>725
ありがとうございます。

>>722
むずかしいけど、>>724の解説をみて、使うと便利だということは理解できました (^ ^;

>>724
そういうプログラムなんですね。eqとequalの使われてるところとか参考になりました。

>>725
ありがとうございます。そういうことを書いたつもりでした。でもプログラミングのことを正確に話し言葉にするのって難しいです。

例えばここにSBCLのeq, eql, equalのソースがある
ttp://sbcl.cvs.sourceforge.net/sbcl/sbcl/src/code/pred.lisp?view=markup
> 196 ;;;; equality predicates
eqの実質的な定義はちょっと見つけられなかったけど...

>>424
最後の行が間違えてるね。assq=>assoc

(defun assoc (key alist)
(cond
((null alist) nil)
((equal key (car (car alist))) (car alist))
(t (assoc key (cdr alist)))))

(defun sqrt (x)
(defun good-enough? (guess)
(< (abs (- (square guess) x)) 0.001))
(defun improve (guess)
(average guess (/ x guess)))
(defun sqrt-iter (guess)
(if (good-enough? guess)
guess
(sqrt-iter (improve guess))))
(sqrt-iter 1.0))

(defun average (a b) (/ (+ a b) 2))

(defun square (x) (* x x))

(sqrt 2)
1.414216

随分と荒い収束判定だな

>>730
どこを修正すると改善されるか？という問題かな？

無理せず Scheme 使えば…… define と defun は違うよ。とオモタ

>>732
Schemeを使わなくてもCLにはlabelsがあるよ。とオモタ

>>727
「実質的な」ってどういう意味?

自問自答w

翻訳系eq実装の事ね。
src/compiler/x86/pred.lisp

eqlは、
src/compiler/x86/arith.lisp
src/compiler/x86/float.lisp
src/compiler/src/trans.lisp
あたり。

jmuk(笑) Haskell(笑)

今日の発見

(atom '(1 2 3)) ; => nil
(atom (quote ())) ;=> t

空リストがアトムだと知らなかった。　orz

(listp '())
t

リストでもある

(defun . (atom . ((x . nil) . ((not . ((consp . (x . nil))))))))

CLなら()はquoteしなくてもいいんじゃなかったっけ？
Schemeならquoteがいるけど
Guileは()も#(...)も自己評価的でRnRSとはだいぶ違う（Schemeの中ではCL寄り？）
R5RSに準拠してくれたら乗り換えてもいいかなと思うんだけど

>>737
nilって知ってる？

(atomp '下條) => t

(atomp '鉄腕) => t

(atomp 'フランツ) => t
あれ？

てか、atomp でいいの？

>>738
listpとか

(null ())
t

とかも教科書では出てくるけどatomはあまり使わないかな。記号処理では使うけど。

>>745

ホントは良くない。

Common Lisp:
(let ((x)) x) => NIL
Scheme:
(let ((x)) x) -> ERROR
Unspecific値が返るかと密かに期待したんですけど
CLと違ってSchemeではletはlambdaの派生式だから当然と言えば当然ですね
Unspecific値を手軽に得るには(if #f #f)しかないのかな？

>>728
Scheme版ならこんな感じ。

(define assoc
(lambda (key alist)
(cond ((null alist) nil)
((equal key (car (car alist))) (car alist))
(else (assoc key (cdr alist))))))

lambdaとelseを使ってみた。

SchemeかLispで書いてあるアルゴリズムの教科書を教えてください。

>>748
Schemeの文法良く調べろよ。

(define assoc
　(lambda (key alist)
　　(cond ((null? alist)
　　　　　　　#f)
　　　　　　((equal? key (caar alist)))
　　　　　　　(car alist))
　　　　　　(else
　　　　　　　(assoc key (cdr alist))))))

>>752
乙！
null?だよね。間違ってたｗ
あとcaarの方が簡潔だね。

>>751
文法はアルゴリズムじゃないぜｗ

>>754
アルゴリズムの話なんてしてないだろｗ

>>750
釣りかもしれないけどSICPとかどうよ？

>>755
はぁ？

>750 名前：デフォルトの名無しさん 投稿日：2007/12/20(木) 00:26:32
>SchemeかLispで書いてあるアルゴリズムの教科書を教えてください。
>
>
>751 名前：デフォルトの名無しさん 投稿日：2007/12/20(木) 01:28:38
>>>748
>Schemeの文法良く調べろよ。
>
>754 名前：デフォルトの名無しさん 投稿日：2007/12/20(木) 17:55:22
>>>751
>文法はアルゴリズムじゃないぜｗ
>
>
>755 名前：デフォルトの名無しさん 投稿日：2007/12/20(木) 17:57:38
>>>754
>アルゴリズムの話なんてしてないだろｗ

アルゴリズムの話じゃなきゃなんなの？

これは新手の荒しか?

　　　　　／＼⌒ヽﾍﾟﾀﾝ
　　　／　 ／⌒)ﾉ ﾍﾟﾀﾝ
　 ∧＿∧ ＼ （(　∧＿∧
　（； ´Д｀））'　））（・∀・ ；）
　/　　⌒ノ　（ ⌒ヽ⊂⌒ヽ
.（O　　 ﾉ　)￣￣￣(）__ 　 ）
　）_）＿） （;;;;;;;;;;;;;;;;;;;）（＿（

アンカーをもう一度見直すんだ

>>759
わはー、おっちょこちょいはワシだけじゃなかったらすぃ

>>754 が勘違いしたってことでいいのか?

Lisp/Schemeでセジウィックみたいなアルゴリズムの本って思いつかないな？
SICPは良い本だけど辞書的ではないしなぁ。

>>752

(define (assoc key alist)
　(and alist
　　(let loop ((ls alist))
　　　(if (equal? key (caar ls))
　　　　(car ls)
　　　　　(loop (cdr ls))))))

関数型という範疇であればアルゴリズムの本はあるよ。ＭＬだけど。

Purely Functional Data Structures

Algorithms: A Functional Programming Approach

>>749さんのは動かなかったので修正しておきました。
(define assoc
(lambda (key alist)
(cond
((null? alist) #f)
((equal? key (car (car alist))) (car alist))
(else (assoc key (cdr alist))))))

>>752さんのも動かなかったので修正しておきました。
(define assoc
(lambda (key alist)
(cond
((null? alist) #f)
((equal? key (caar alist)) (car alist))
(else (assoc key (cdr alist))))))

>>763さんのは動きました。loopの使い方がｲｲ感じですね。

Lispで

(setq pref-alist
'(("山梨県" . "甲府市")
("神奈川県" . "横浜市")
("愛知県" . "名古屋市")
("茨城県" . "水戸市")))

とやっているのをschemeではどのように書けばよいのでしょうか？お願いします。

トップレベルなら setq を define にするだけだべ

>>767
gaucheでそうやってみると

gosh> *** READ-ERROR: Read error at "c:/meadow/test-assoc.scm":line 43: EOF encountered in a string literal: "壤�壤�壤｢壤ｨ"
Stack Trace:

となるので間違っているのかと思いまして。日本語が上手く通っていないだけなんですね。ちょっとがっかりですが納得できました。有り難うございます。

英語で

(define pref-alist
'(("yamanashi" . "kofu")
("kanagawa" . "yokohama")
("aichi" . "nagoya")
("ibaraki" . "mito")))

と書いて、
>
で
c-c c-l ファイル名
したあと

>gosh> (assoc "ibaraki" pref-alist)
("ibaraki" . "mito")

と出来ました。お騒がせしました。utf-8が上手く行ってないようです。

c-x return f utf-8 return
してからセーブしたら解決しました。
Gaucheの仕様がコンソール上ではsjisでＯＫなのに、ファイルだとutf-8しか受け付けないというのがわかっていなかったのが原因でした。

>>748
> (let ((x)) x) -> ERROR

これはletの返り値じゃなくて、文法エラーだぜ。
初期値省略は許されてない！

>>765
> >>763さんのは動きました。
動かないと思うんですが

=>が返り値
->が結果のつもりで書き分けたんですが…

ttp://page13.auctions.yahoo.co.jp/jp/auction/r41896772
>希望落札価格：10,000 円

(； ･`д･´)　な、なんだってー！！　(`･д´･ ；)

amazonのマーケットプレイスでの「入門Scheme」が\12,000だからなぁ。

>>773
> ->が結果のつもりで書き分けたんですが…
>>748では
> (let ((x)) x) -> ERROR
> Unspecific値が返るかと密かに期待したんですけど
って自分で言ってんじゃん。

> CLと違ってSchemeではletはlambdaの派生式だから当然と言えば当然ですね

とか何の関係ないし。初期化しないとUnspecific値が得られると思ったんでしょ。

>>774
この人かな
http://www.geocities.jp/hajiri_koichiro/index.html

いやだから
期待したのは(let ((x)) x) => #<unspecific>
結果は(let ((x)) x) -> ERROR
そもそも私の使ってる実装にERROR値はないんです

ダミーの引数を受け取る名前付きletを書いてて
初期値を最初'()にしてたんですけど
'()よりも#<unspecific>のほうがいいかなと思って
深く考えずに実引数を省略してみたんです
その時はletがlambdaの派生式だってことを忘れてて
じゃあletがlambdaのマクロじゃないCLがどうなのかなと思って調べただけなんです

Makefileの文法が気に入らないので、
S式で書けるイカスmakeの代替プログラムがないかと思ってるんですが、
みなさんごぞんじないですか?

>>778
> そもそも私の使ってる実装にERROR値はないんです

仕様的に、エラーは値じゃなくて、
エラー状態にあることが、「通知(signaled)される」か、
通知が明記されてない場合は、推奨されないが無視していいんですよ。

エラーが無視された時に式の値が未規定(unspecified)である実装はありうるけど、
それは「エラー値」じゃないし、#<unspecific>とも限らないのです。
なんらかのオブジェクトである必要はあります。

通知される場合には、値を返さず、
トップレベルに復帰する実装が多いと思います。

内容のある話じゃないのにドツボにはまっていく…

>>780
771さんが
>>(let ((x)) x) -> ERROR
>これはletの返り値じゃなくて、文法エラーだぜ。
と仰ったので
返り値じゃないことは分かっています、だから=>と->で書き分けました
と773で書いたのです

>>776
CLはたしかletがlambdaの糖衣構文じゃないから
((lambda (x) x))がエラーになる処理系でも
(let ((x)) x)がエラーになるとは限らない
他方、R5RSはletがlambdaの派生式だから
((lambda (x) x))がエラーになる場合は
(let ((x)) x)も当然エラーになる
と書きたかったのです

ところでR5RSの3.2においてport?という述語がありますが
port?という述語は標準手続きにありませんよね？
あと、promiseは典型的にはthunkで実現されてますけど
R5RSでは「一つの可能な実装」とされているにすぎませんので
標準手続きにおいてpromiseかどうかを判定する手段はありませんよね？

>>772
Gaucheで動くと思うけどなぁ？

(define (assoc key alist)
(and alist
(let loop ((ls alist))
(if (equal? key (caar ls))
(car ls)
(loop (cdr ls))))))
;-----------------------------------------------------------------
(define pref-alist
'(("山梨県" . "甲府市")
("神奈川県" . "横浜市")
("愛知県" . "名古屋市")
("茨城県" . "水戸市")))
;-----------------------------------------------------------------
(assoc "山梨県" pref-alist)

(assoc "山梨" pref-alist)
*** ERROR: pair required, but got ()

>>783
ファイルに>>782を書き込んで、そのファイルをeamcsとかMeadowでc-c c-l <<ファイル名>> したあとでやってみるといいYO!

>>783
山梨じゃなくて「山梨県」だYO！

gosh> (assoc "山梨県" pref-alist)
("山梨県" . "甲府市")
gosh>

783さんはマッチしないキーがある場合の判定が抜けていることを指摘しているのでは？

ところで最初の(and alistは何のため？

日本語がおかしかった
与えられたキーがマッチしなかった場合

>>787-789
漏れもandだけではnull?の代わりにならないような希ガス

再帰の方がきれいに書けちゃうんだな

>>779 Lisp で良ければ defsystem とか asdf とか？Scheme にも多分似たようなものがありそう。

>>763

(define (assoc key alist)
(and (pair? alist)
(let loop ((ls alist))
(if (equal? key (caar ls))
(car ls)
(loop (cdr ls))))))

>>793
>>788

>>794

andはリストを左から右へ評価して行って、偽が見つかると#fを返すから。

(cond ((null? alist) #f)
　　　　...)

と書くよりは短く書ける。
(pair? alist)が偽だったら即座に#fを返しそこで終了する。

>>793で(pair? alist)が評価されるのは最初の1回だけでしょ？
alistのcdrをとっていってcdr部が空リストになった場合=keyがなかった場合の判定が欠けてる
gosh> (assoc "山梨" pref-alist)
*** ERROR: pair required, but got ()

>> 781
なるほど
きみの言わんとする意味がだいたい見当がつきました
きみはこう言いたいのでしょう

Unspecific値はどこだ！

;andを使った場合

(define (assoc key alist)
　(let loop ((ls alist))
　　(and (pair? ls)
　　　　　(if (equal? key (caar ls))
　　　　　　　(car ls)
　　　　　　　(loop (cdr ls))))))

;andを使わない場合

(define (assoc key alist)
　(let loop ((ls alist))
　　(cond ((null? ls)
　　　　　　　#f)
　　　　　　((equal? key (caar ls))
　　　　　　　(car ls))
　　　　　　(else
　　　　　　　(loop (cdr ls))))))

>>781
内容ないって事ないんだけどな。

エラー状態とトップレベルの関係、さらにunspecified値の扱いは、
メタ・サーキューラな意味において、schemeが昔から弱かった部分。
MLなんかはもっとカッチリしてる。
SchemeはR6RSで少し前進したけれど、
やっぱりR?RS的な非形式的な意味論なんだな。

>>797
Unspecific 値なんて存在しない！

Lifting して Unspecific 値を、メタに扱える言語ってあったよな。

>>765と>>798で４つのassocが登場。
どれが一番早いんだろう？
教えて！判定方法を知ってるエロい人。

>>802
実測基本

>>802-803
メモリ使用量の少ないのはどれかも考えると面白いね。

>>803
ストップウォッチでは差が出ません。
どうやればいいでしょうか？
例えばGaucheではどうやるんでしょう？

差が出ないなら、差が出る程度まで繰り返せばいいじゃないの。

Gaucheにはtimeがあるみたい

プロファイラ的なものって何がある？

gosh> (time (assoc "山梨県" pref-alist))
;(time (assoc "山梨県" pref-alist))
; real 0.000
; user 0.000
; sys 0.000
("山梨県" . "甲府市")
gosh>

シーケンシャルに検索してんのに
１番目のデータを計ってどーすんのw

gosh> (time (assoc "茨城県" pref-alist))
;(time (assoc "茨城県" pref-alist))
; real 0.000
; user 0.000
; sys 0.000
("茨城県" . "水戸市")
gosh>

O(n)なんだからnの数を増やしてみなきゃ

１億個くらいは入れなきゃですよ

あれ?Kahua FreeBSDで動くようになった?

>>814
かなり前からなってるぞ。

;(define (assoc key alist)
;  (and (pair? alist)
;       (pair? (car alist))
;       (or (and (equal? key (caar alist))
;           (cdar alist))
;           (assoc key (cdr alist))))

インデント思いっきり間違えたorz
しかもずれてるしorz
(cdar alist)は(equal?と同格ね

さらにどこか間違ってると思ったら
(cdar alist)じゃなくて(car alist)だったorz
cdarだったら連想リストじゃなくてデータだけを返す上に
データが#fだった場合に次に進んでしまう

ｷﾀ━━━━＼(^λ^)／━━━━!!

プログラミングGauche
・著者：川合史朗　監修
Kahuaプロジェクト　著
・定価：3360円(本体3200円＋税)
・B5変　464頁
・ISBN　978-4-87311-348-7
・発売日：2008/02
http://ssl.ohmsha.co.jp/cgi-bin/menu.cgi?&ISBN=978-4-87311-348-7

２月かあ

Kahuaプロジェクトのメンバーがもしここを見てたら期待してるので頑張ってくださいね。
バグ取りと校正もしっかりお願いしますねｗ
必ず買いますＹＯ！

その前に読んどきたい本があるからちょうどいいや

>>819
あれ? 延びたの?
オライリーからのメールだと一月予定だったんだが。

609で書いたzaurus-OpenBSDでGambit-Cのリーダがいかれてる理由が分かりました
エンディアンネスの誤認でした
最初に疑ったのがエンディアンネスの問題でしたが
リーダ以外に変な挙動をしなかったので見逃してました

OpenBSD4.2になってBoehm-GCの7.x系統が動くようになったので
Gaucheも7.x系統に移行した暁には動くようになりそうです
現在もgcディレクトリをいじったら
そこそこ動く実行ファイルはできるのですが
特定の場合にassertで落ちるので常用はできなそうです

あとLinuxの場合は特に問題にならないのですが
BSD系でscheme48から外部モジュールを読み込む場合
実行ファイルであるscheme48vmが-−export-dynamicでリンクされていないと
s48_で始まる関数が外部モジュールから利用できないようです
（Linuxは--export-dynamicがデフォルト？）

Gambit-Cもscheme48も（zaurus-OpenBSDも）
利用者があまりいないので有用な情報でもありませんが
一応報告しときます

GaucheはさっさとWindowsに完全対応しろよ。何やってんだ。

Windows（笑）

Windows使ってねーから個人的にはどうでもいいけど。
必要ならScheme Artsに仕事として依頼するのがはやくて確実じゃないか。

Gaucheは早く1.0出して欲しいなー

バージョン番号なんてどうでも良くない？

頭の尖った上司が気にするんですよお

「まだ0.*だからうるさく言うなよ」

非R6RSのschemeでファイルをランダムアクセスで読み込む場合は
処理系依存のfile-position相当の関数を呼ぶのと
遅延評価の無限ストリームを作るのと
どっちが一般的ですか？

R6RSになればset-port-position!が使えるみたいですけど

R6RSより、.NETに対応してほしい。

現在R6RSをサポートしてる処理系ってLarcenyだけですか？
大御所どころも軒並みR6RSを実装する予定もないみたいですし
どうなっちゃうんでしょうね

みんなこっそりやってるんですよ

http://www.cs.indiana.edu/~aghuloum/ikarus/
は、いまR6RSに9割準拠らしい。

ちゅーかみんな対応する気無いなら、策定すんなって感じだな。

向かい側ではC99とかね

>>837
R6RSの投票のとき処理系の作成者のほとんどが反対だったのに、数の暴力で押し切られたって事実を知ってる?

嫌なら処理系の作成者で別の標準を作ればよいのでは？

いまさら変な標準なんか作らなくていいから、.net frameworkに対応しろよ。

>>839
反対した人はどんな人が居るの?
shiro さんは反対に投票した様に記憶しているけど

>>840
「嫌なら対応しなけりゃいい」だろ。
で、実際にみんなそうやってる。めでたしめでたしだ。

>>842 調べてみた。

票：投票内容（○：賛成、×：反対、−：未投票）
実：R6RSを実装するかどうか（Marc Feeleyのアンケート）

　　　　　　　　　　　　　　　　　　　票　実
Manuel Serrento (Bigloo)　　　　−　×
Kent Dybvig (Chez Scheme)　　○　○
Felix WinkelMann (Chiken)　　　 ×　×
Marc Feeley (Gambit)　　　　　　×　×
Shiro Kawai (Gauche)　　　　　　×　×
Ludovic Courtes (Guile)　　　　　−　×
Tim Hickey (JScheme)　　　　　 −　×
Per Bothner (Kawa)　　　　　　　×　×
Will Clinger (Larceny)　　　　　　 ×　○
Tom Lord (Pika Scheme)　　　　○　×
Matthew Flatt (PLT Scheme)　 ○　○
Mike Sperber (Scheme 48)　　　○　○
Aubrey Jaffer (SCM)　　　　　　×　×
Scott Miller (SISC)　　　　　　　 −　×
Jeffrey Mark Siskind (Stalin)　　×　×
Erick Gallesio (STklos)　　　　　　−　×

ミスった。
Kawaの人、反対票じゃなくて未投票

>>844-845
大感謝！
一応 Gauche は R6RS も気にしつつ行くみたいですね

http://lists.sourceforge.jp/mailman/archives/gauche-devel-jp/2007-July/001744.html

archの元開発者の人ってPikaSchemeの人だったのか

実家に帰ってきたら岩波の「Scheme入門」があったｗ

(笑 'scheme)

(msgbox "あけおめー")

(去年
　　...)))))
(今年
　　も よろしく)

主要な処理系作成者以外で票を持ってる人って誰？
ユーザ？
もともとRnRSは主要な処理系作成者の物じゃなかったっけ？

行く末はCLTLの様に使う方はいろいろお世話になるが、実装するのはうんざりな代物にまで成長しそうだな。

>> 852
誰でも投票できたと思うよ。投票するときにspam排除のためのレポートみたいのを
記述するよう要請されていただけで。

そんなことより(厳密かどうかは別にして)今年はLisp生誕50周年ですよ皆さん。
ILC2008に遊びに行く暇は・・・無いんだろうなぁ orz

個人的にはRnRSの範囲内で
SRFIおよびその他のライブラリはすべて実現できるけど
効率のために処理系でプリミティブに実装されている
てのが理想
それだけの力はRnRSにあってほしいし
それ以上はないほうがいい
そのバランスが難しいから長いこと試行錯誤してるんだろうけど
でもいままで取り入れなかったのに何故いまさら入れるの？てな物もあるからなぁ

> 効率のために処理系でプリミティブに実装されている
ありとあらゆるテクニックを駆使して、コンパイラが頑張ればいいのではないのか？

(define (cons x y) (lambda (z) (z x y))
を見て、効率のためにコンスセルを再発明するコンパイラとか

>>856
効率の為に云々は「全てSchemeで抽象化された構造のまま書いてたら遅くなる」というツッコミ回避の為の言葉のあやで
RnRSの記述能力自体をもっと高めてほしいんです
言語仕様の範囲でライブラリが書けるくらいの力は欲しい
けどCltl2みたく肥大化はして欲しくない
ってことです
処理系がプリミティブにサポートしてないSRFIは使えない（場合がある）とか
SLIBなんかでも初期化ファイルに#fを返すだけの手続きが沢山あるのを見ると悲しくなるので
提唱されたSRFIおよびその他のライブラリはすべてRnRS(>=6)の言語のみで書けるようになって欲しい

個人的にはCLtL2が肥大してるとは思わないんだよな。実用言語としてはあのくらいの機能は必要だと思う。
むしろ足りない。つーか、例えばJavaとか.NETのフレームワークのほうがずっと大きいでしょ。乱暴な比較だけど。

規模でRnRS+SRFI>Cltl2になるとしても
RnRS部分は可能な限り小さく
そして全てのSRFIはRnRS処理系全てで使用できる
ってSRFIにそこまで求めるのは間違いかな？

例えばmallocやsetjmpはCの仕様から独立してるけど必ずしもCで書けない
setjmpを書けるように拡張したCを使ってみたいとは思わない
ライブラリを書けるかどうかは関係ない気がする

>>861
mallocはHeap先頭とサイズさえとれればかけるのでリンカーとCの密接な関係が言語のうちと考えるかどうかで分かれるような気もする
setjmpは機械の仕様と密接にからむのでそこを完全に隠蔽された言語じゃどれ使ってもかけない訳だし、なんかかなり無茶な比喩じゃないのかな？

個人的にはできればRnRSはシンプルに保ちつつCLTL並の機能を自己拡張だけでなんとかしてほしいと思うのだけど。
（というか誰かがRnRSで実装すると取り合えずどのScheme実装でも動作するとかが望みなんだが)

R5RSでは書けないライブラリで、
それ自体は複雑すぎて言語に含めたくなくて、
それを実装する手段はシンプルだから言語に含めてもいいものってなんだ？

パッケージシステムとか。

そもそもパッケージがあれば名前空間の肥大化を止められる

自分に必要なものだけを選び、不要なものを無視できるようになれば
言語の肥大化はどうでもよくなる

CommonLispは最強だとおもうんだけど、いまいち一貫性に欠けるんだよなあ。
substとsubsituteとか、eq eql equalとかはそれぞれ適切な名前にかえて欲しいし、
引数の順序もなにかと気に入らない。formatはelispのほうが絶対いいよ。
歴史があるのはわかるけどさあ、もうちょっと整理できないのかね。

君が提案するんだ

それがschemeだ

schemeは黒板がベストプラットフォームな言語ですので・・・

>>866整理できないのかね？というのが技術的な話であれば、ANSI CLの範囲内で可能。
新しくパッケージつくって自分の好きなように定義すりゃ望みの名前の俺Lispが誕生だ。
(cl:defpackage :866-lisp)
(cl:in-package :866-lisp)
...
俺も実際 gethash と aref の引数順序とか気にくわない部分は自作ライブラリ好みに合わせて揃えてるよ。
しかし、自分の嗜好を全世界に押し付けたいというのだと、ANSI CL並に整った規格をババンと出すくらいでないと無理かもね。

eq eql equalの「適切な名前」がぱっと考えつかない……
とりあえず866は理想のLispを作ってみてよ。ひょっとしたらすごく快適かもしれない気がしてきたんで。
でも最強云々は邪鬼眼ぽいからやめてほしいなぁ。荒れそうだし。

俺様Lispに改変するのは当然やってるんだけど、標準が欲しいんだよー

rubyでいいだろ。

Rubyは理想だけどまだ遅いし、仕様がないからちょっと不安だし
構文木を公式にはいじれない。

え！Rubyが理想なの！？

名前の規則に関してはね。あれぐらいそれっぽく書けばそれっぽく何でもできる
言語は他に無いよ。仕様のある言語としてはCLが最強すぐると思っております。

まだScheme暦（というかLisp暦）が浅いのでよくわからないのですが
パッケージシステムってファーストクラスである必要があるんですか？
;(define (my-packages sym)
; (begin (define (foo)
; (display "hello,world")
; (newline))
; (define (bar x y)
; (+ x y)))
; (case sym
; ((foo) foo)
; ((bar) bar)
; (else 'UNKNOWN)))
みたいなのじゃダメですか？
（遅いし束縛が取得できないのでset!とかできませんけど）

半角スペース全部消えちゃった

>>877
if と gotoがあればプログラム書くのにループや関数の記述なんていらなくないか？
というのにscheme使いがなんと答えるかに似ている気がする。

無い前提に立てば(使わないときめれば)いらないんだけど
有る前提ではプログラムの組み立てかたの考えかたもかわるし
まだるっこしい記述には耐えられない。

>>877
それはevalを再実装しているような気がする。

たとえば (eval (read)) ってセキュリティとかやばいじゃん。
でも eval の再実装とかまじうぜえ。
で (eval (read) (environment 云々)) これ最強。

環境を与えたevalにそんなセキュリティに役に立つ効果あったっけ??

>>879-880
マクロで実装できるからライブラリで実現すればいいのでは？ということです
言語のコアに用意する必要がある物だとは思えなかったので

>>882
マクロでパッケージを簡単に無視できるようなパッケージシステムなら
それで良いけどな。

そんなんじゃだめなんだよ。
使わない選択肢がある時点でパッケージシステムの存在意義が半分以下。

パッケージを切り替えるということは
綺麗な名前空間を下さい。
そこで俺はsystem組み込みのcarとかcdrとかも書き換えて使えるよ。

ということだけど
あなたが言うようなパッケージシステムは
パッケージを使わない人がdefineとか使うと簡単にパッケージ(とその中身)をまとめてぶっ壊すわけでしょ？

駄目だと思わない？

だから.net frameworkに対応しろと。

.NETがいらね

>>881
いや、ないからevalをハックするんだけど、
>>883が言ってることはセキュリティにも関係ありそうな予感

>>886
適切な環境を用意してやれば、環境付き eval で安全性を確保できるんじゃね?
chroot(2) と同じ理屈で。

IronScheme 1.0 Alpha 1
http://www.codeplex.com/IronScheme/Release/ProjectReleases.aspx?ReleaseId=9579

>>860
そこのところの発展のためのpackage, namespaceだと思ってます。> R6RS

この二つをより低レベルのprimitiveで記述するとなると、
symbolをfirst class object化と、
symbol tableを抽象化したprimitiveが必要になると思う。

黒田さんも書かれてましたけど
Schemeはsymbolがfirst class objectでないってどういう意味ですか？
リテラル表現できるし関数に渡せるし返せるけど
違うんですか？
マクロの中で特別扱いされたり値でなく場所に束縛されたりするとダメなんですか？

実行時のシンボルとプログラムの中のシンボル（のように見えるもの）は別物って感じかな

>>890
R5RS的には、束縛されるのはidentifierであってsymbolではない。
内部的にidentifierをsymbolで表現する処理系が多いとわざわざ書いてある。(6.3.3)
Lisperにとって、schemeのこの辺りの定義は奇怪である。
その生い立ちからネイティブコードにコンパイルすることを
過度に意識したのかと思われるが。
R6RSはこの辺少しだけ変ってるが、
まだ全体を読みこなしてないので書かないでおく。

Scheme始めたばかりの者です。
ttp://www.shido.info/lisp/scheme1.html
に従って、Windows XP環境にMIT/GNU Schemeをインストール
したのですが、インタープリタとしての使い方がわかりません。
エディタも一緒に立ち上がるので、コンパイルして使うしか
ないのでしょうか？

C-x C-eでできました。

>>893

Windowsだとこんなのもあるよ。
ttp://www1.ocn.ne.jp/~scheme/sicp-start.html

>>893 >>895
勉強なら、DrSchemeがいいんじゃないの。
エディタも楽だし。
難点はちょいと遅いことかな。

でも、実用でWindowsでSchemeとなると何？
IronScheme（>>888)は大丈夫？
それともKAWA
ttp://www.gnu.org/software/kawa/
のほうがいい？

Chezはもっと評価されていい

(eval Chez)

zで終わってるとorzの親戚に見えてくるw

>>895
>>896
たしかにEmacsをあまり知らないので慣れるまで
時間かかりそうです。他のと比べてみます。

DrSchemeが使いやすいので、こちらで勉強します。
ありがとうございました。

>>901

おお、Schemerが一人増えた。嬉しいね〜。

>>891-892
なるほど
じゃあidentifierがfirst class objectじゃないのが問題なのですね

なぜ、どう問題?

日本語でおｋ

なるほど、そいつはあいでんてぃふぁいや！

第一級つってもどうせグローバル変数だけだろ
レキシカル変数を第一級にできる？

>>907
それはたぶん「束縛(環境)が第一級クラスオブジェクト」だと思う。
>>903
そういう意味では「(scheme的に)identifierがfirst class object」ってのは、まだ良く分かってない。
その辺きっちりしているのは、3-Lispの系統くらい。

飛行機はファーストクラスに乗る俺様でさえfirst class objectの意味はよくわからん

kakefuはホワストクラスオブジェクト

SRFI-40のeven streamのcountdown2って
(delay (force ...))はいらなくないですか？
map2の方は必要だけど

変数がオブジェクトこれいかに

Lispは違うが
そういう言語があってもおかしくはないかも
> 変数がオブジェクト

正直意味がわからん

詳細は忘れたけど、変数に直接代入できなくて、代入するには変数の参照を得て
その参照オブジェクトのassignメソッドを呼ばなければならないという言語があったな。

従来のマクロは引数を全く評価しないのだがそのせいで変数捕捉の問題が起きる
そこで引数に含まれるシンボルがどこに束縛されるか決めてからマクロに渡す
上でidentifierや変数と呼んでいるのは、束縛の情報を持つシンボルのこと

LispでもSchemeでも、シンボルが束縛に関する情報を持つなんてことはない。

シンボルの内部に状態を持つと言うつもりはないが、大雑把なイメージは合ってるはず

ソース
ttp://practical-scheme.net/wiliki/wiliki.cgi?Scheme%3a%e3%83%9e%e3%82%af%e3%83%ad

>>918
大雑把なイメージとかURL提示とかで逃げてないで
きちんとした言葉で説明してみ。

もしかして、既出ネタかもしれないけれど、
GaucheのトップページからPractical Schemeに飛ぶと問題ないけれど、
googleでschemeでググって出てくるPractical Schemeに飛ぶと、
hadodoraibugadoといううさん臭いサイトに飛ぶね。
googleの検索順位が高いだけに、非常に厄介だと思うんだけれど、
対処しようがないのかい?

>>920
うちはそんな所には飛ばないよ。
hadodoraibugado ってスパイウェアみたいだけど・・・感染してない？

>>921
え、本当?
Schemeでググルと、
1番目がwikipediaで、
2番目がPractical Schemeになるよね?
でPractical Schemeをクリックするとしばらくすると飛ぶんだが....
ちなみにFirefoxでMacの環境。
Safariでも再現できる。

>>922
ググった結果は同じだけど、Practical Scheme をクリックするとちゃんとしたとこへ飛ぶ。
こちらは Windows で Firefox でも IE でも同じ。

とりあえず hadodoraibugado をググってみては・・・

Win2000でFirefoxだけど、俺も問題無いよ。

FreeBSD + FireFox, Solaris + Netscape でも問題ないな

MacでSafariだけど
http://practical-scheme.net/index-j.html
ここに飛ぶよ。

オレもなった。
他のサイトでも似たようなことがあったんだけど、たぶん広告のせい。
再現できない人でも何度かリロードすれば当たるはず。
Ads by Google と Ads by Adpinion が貼ってあるみたいだけどあやしいのは Adpinion のほうかな。

スパイウェア(hadodoraibugado)の話はSchemeに関係ないんでそれ系の板で。
ちなみに私は何度検索してもそんなことにはなりません、当たり前だけど。

Larcey ってすげー速い。
William Clinger ってMacSchemeを作ってた人か？

>>928
Web広告によってマルウェアが配信されるという話だと思うんだけど、まぁ板違いか。
何が当たり前なのかしら。

ちゃんとマルウェア対策くらいやっとけってことでしょ。常識以前の話かと。

マルウェア対策って何すればいいの？

要らないサイトに触らない
要らないものはインスコしない
出来ればWindowsを捨てる

わざわざSchemeに手を出すようなプログラマが、
hadodoraibugadoにやられているって事自体に驚いた

>>933
あまいな
「OS のブートストラップ辺からすべて自前で Lisp で書いたシステムを使う」
が、正解だ

>>933
あのね。。。
それも間違ってはいないんだけど、あやしいサイトにいったからとか、
変なソフトをインストールしたとか、そういうことじゃないのよ今回の件は。
Windowsも関係ないし。
おれも別に何を知ってるってわけじゃないからもういいけど。

基本的に今回の件はまずいと思うけれどねぇ。
もし、Scheme初学者がSchemeでググッた場合、
検索結果が高順位だから確実に見る訳で、
そのサイトが変なページに飛ぶのは、Schemeの印象や
Gaucheの印象を悪化させる可能性があると思うのだけれど。

いやだから普通は飛ばないんだってば

>>938
お前にとって普通とは何なのだ?
少なくともこのスレで2人は飛んでいる訳で、
飛んでいる人間にとっては、サイトに飛ばない人間の方が
「普通ではない」状態なのだが。
視野狭すぎ。
自分中心で考えるのは良くない。

おまえこそ自分中心だとは思わないか？
理由をちゃんと考えてみろよ。ちょっとは頭つかえ。

>>939
> 飛んでいる人間にとっては、サイトに飛ばない人間の方が
> 「普通ではない」状態なのだが。
飛んでる人間＝「俺こそ普通」な人間、だってのはとりあえず確定したな。

おれも飛ばされた。これで3人目。

普通の人間もSchemeを学習するようになったのだなあ・・・ｗ

> 飛んでいる人間にとっては、サイトに飛ばない人間の方が
> 「普通ではない」状態なのだが。
飛んでる人間＝「俺こそ普通」な人間、だってのはとりあえず確定したな。
>いやだから普通は飛ばないんだってば
この発言から、
飛ばない人間 = 「俺こそ普通」な人間、だってのもとりあえず確定しましたね。

んで、この状況を打開する方法は川合さんが、広告を外すしかない訳で、
さっさと関係者連絡しる。

ここはよくぶっ飛ぶ人がいるインターネッツですね

やっぱりなんかあるかもしれないな。
何度もリロードしてたら１回だけNOD32が怒った。

>>939
> お前にとって普通とは何なのだ?
> 少なくともこのスレで2人は飛んでいる訳で、
> 飛んでいる人間にとっては、サイトに飛ばない人間の方が
> 「普通ではない」状態なのだが。
> 視野狭すぎ。
> 自分中心で考えるのは良くない。

これは何かのパズルなのか?
解読できないから、よかったらschemeで書いてくれ。

>>944
結論がおかしい。いくらなんでも、それは逆恨みだろ。

Windows使ってるならウィルスの一つや二つは我慢しろよ
それでウィルス駆除会社が潤ってるんじゃないか。儲けが出るんだから
使用者の不便なんてクソみたいなもんだろ。

たまにこのURLをダウンロードしにいってNOD32に怒られるみたいだ。
SWF/TrojanDownloader.Gida.A とか言ってる。

akamahi.net/swf/gnida.swf?campaign=bacchantto&u=1199454322

Scheme みたいな普通の単語で別なページが引っかからないわけないだろ・・・。
検索結果の件数見ろよ。

>>950
>もし、Scheme初学者がSchemeでググッた場合、
>検索結果が高順位だから確実に見る訳で、
>そのサイトが変なページに飛ぶのは、Schemeの印象や
>Gaucheの印象を悪化させる可能性があると思うのだけれど。
が、真理だろ。
Gaucheの本も販売される訳で、今回のような不安要素は排除すべき。

それが「べき」なのか orz

>>947
(begin
　(define 普通 '俺様))

>>952
真理きたー！！！ｗ

>>952
で、どうやれば排除できると思う？

shiroさんがAdpinionの広告を外せばOKなんじゃないの？ようするに。

偉そうにｗ

すべて他人のせいにする馬鹿者が増えてますね

Adpinionの広告のなかに妙なのが混じってるってるらしいっていう事ではないの？