Lisp Scheme Part40 [転載禁止]©2ch.net

レス数が950を超えています。1000を超えると書き込みができなくなります。
1デフォルトの名無しさん2015/03/16(月) 13:45:52.92ID:EEYZoZ1i
Common Lisp、SchemeをはじめとするLisp族全般のスレです

■前スレ
Lisp Scheme Part39
http://peace.2ch.net/test/read.cgi/tech/1408017352/

■テンプレ
ttp://wiki.fdiary.net/lisp/

■関連スレ
【入門】Common Lisp その11【質問よろず】
http://peace.2ch.net/test/read.cgi/tech/1411307361/
【Scheme】Schemeインタプリタ Mosh Part1【Lisp】
http://peace.2ch.net/test/read.cgi/tech/1272469779/
【Lisp】プログラミング言語 Clojure #3【JVM】
http://peace.2ch.net/test/read.cgi/tech/1380333808/
【魔法】リリカル☆Lisp【言語】
http://peace.2ch.net/test/read.cgi/tech/1183396621/

878デフォルトの名無しさん2018/03/26(月) 04:28:41.05ID:M0YORv20
>>877
再帰はなくても
関数からのreturn実行が
継続の適用そのものです

879デフォルトの名無しさん2018/03/26(月) 14:01:22.69ID:YDvloqxD
>>878
ああ、その説明は見事ですね

880はちみつ餃子 ◆8X2XSCHEME 2018/03/26(月) 14:19:29.21ID:S9VCdiyC
C ではアドレスが継続だと思えばだいたい合ってる。
環境が保存されないから Scheme より限定的だけども。

C だと実引数と一緒にリターンアドレスもプッシュするじゃん?
それと同じように Scheme でも戻ってくる継続を暗黙に渡してるんだよ。
Scheme の call/cc は gcc 拡張の __builtin_return_address みたいなもん。

881デフォルトの名無しさん2018/03/26(月) 16:22:01.20ID:4JGFggle
俺Cわかんないんだよね^^;

882はちみつ餃子 ◆8X2XSCHEME 2018/03/26(月) 16:54:52.93ID:S9VCdiyC
そっか〜

883デフォルトの名無しさん2018/03/26(月) 20:38:59.41ID:4JGFggle
>>877はあってますか?
終端から戻ってきた値が、入れ子の外側、つまり継続に渡されて
さらに外側の継続に渡されて
継続がなくなったら値がプリントされる
というイメージなんだけど

884デフォルトの名無しさん2018/03/26(月) 22:41:49.50ID:5QVYm+SC
Cで継続を保存しようとしたら、setjmpで保存してるもの(全レジスタの状態)とスタックの内容のコピーだろ(場合によってはかなりのサイズになるが)

885 ◆QZaw55cn4c 2018/03/26(月) 23:22:44.68ID:dvRuSlEv
>>884
setjmp/longjmp は、スタックポインタは保存してもスタックの内容のコピーはしない、だからネストの浅いところから深いところにジャンプできない

886デフォルトの名無しさん2018/03/27(火) 09:40:09.76ID:82AcOlMQ
>>885
ん?だからsetjmpの内容とスタックの内容をコピーすると思いっきり書いたつもりだったが…

887デフォルトの名無しさん2018/03/27(火) 21:44:25.00ID:vSyzL0sA
C++ coroutinesだとスタック全コピーも実装の有力な候補だな

888デフォルトの名無しさん2018/03/27(火) 22:03:59.18ID:vSyzL0sA
というか、おととし最後に聞いたときには>>884の言う通りでほぼ決まりみたいな話だった
C/C++では何と、スタックの中を書き換えることができるのだ!

889デフォルトの名無しさん2018/03/28(水) 07:06:35.26ID:lXnJ1NTY
Smalltalkならスタックフレームもオブジェクト

890デフォルトの名無しさん2018/03/28(水) 23:58:25.75ID:qqTeUvjF
Smalltalkって業務で使ってるとこあるのかな
LISP系よりはありそうなんだが

891デフォルトの名無しさん2018/03/29(木) 06:38:02.92ID:xL1sPJzZ
ヨーロッパや南米での事例が多いとか

https://medium.com/@newapplesho/今時-2017-のsmalltalkの始めかた-93c044820e1b

日本にも地味に仕事あるらしいけど守秘義務で見えにくい

スーパーの古いレジ(POSシステム)で使われているのを見かけたのはNEC系のこれか?

http://tech.nikkeibp.co.jp/it/members/NT/JIREI/20011220/1/

比較的最近の話題はLispばりにスタートアップに活用されたこと

http://web.archive.org/web/20171111102557/https://thepedia.co/article/1068/

892デフォルトの名無しさん2018/03/29(木) 21:46:13.19ID:aMjJrqbe
>>890
> Smalltalkって業務で使ってるとこあるのかな
> LISP系よりはありそうなんだが

少なくともアメリカでは実アプリをSmalltalkで作ってるケースはほとんどないんじゃないと思うが
プロトタイプをSmalltalkでちゃっちゃと作ってしまい動作確認をするってのはアメリカでも昔からさほど珍しくないそうだが

ちなみにCommon Lispはアメリカでは以前から実用アプリの記述言語としてそれなりの頻度で使われてるよ

893デフォルトの名無しさん2018/03/30(金) 01:39:43.69ID:uMQPOtnG
>>880
スタックも含まないと継続にはならない

894はちみつ餃子 ◆8X2XSCHEME 2018/03/30(金) 04:37:04.64ID:AQ2aJRgB
>>893
Scheme 用語で言う「環境」のことな。
それを含まないから限定的と説明しているわけ。

895デフォルトの名無しさん2018/03/30(金) 07:19:01.27ID:wy67wuPJ
>>894
Cではと限定してんだから、普通にsetjmpと言ってほしいんだが…
IP(インストラクションポインタ)だけを指して限定的な継続言われても逆に分かりにくいと思うが

896デフォルトの名無しさん2018/03/30(金) 07:29:31.52ID:YaBZvbti
環境をあえて使わない継続の応用はあっても
環境を含むことができない機構を(「限定的」と断ったとしても)継続だと言い張るのはオカシイよ

897デフォルトの名無しさん2018/03/30(金) 13:49:13.71ID:a6Uq4iez
別に「限定継続/delimited continuation」ってものもあるしな
話がややこしくなるだけで理解の助けにならない

898はちみつ餃子 ◆8X2XSCHEME 2018/03/30(金) 16:49:52.67ID:AQ2aJRgB
Racket で escape continuation って言ってるやつと近いかな。

899デフォルトの名無しさん2018/04/08(日) 19:00:53.26ID:bJUCDaUD
schemeをjsに変換してreactやるとかelectronでGUIアプリ作るとかいう話ない?

900デフォルトの名無しさん2018/04/08(日) 19:55:46.10ID:e7Arryer
scheme->jsの変換は簡単そうだね
継続使ってなければ

901デフォルトの名無しさん2018/04/11(水) 08:57:34.76ID:smzFdsBm
そもそもJSにトランスパイルできる
まともなscheme処理系が無いだろう

902デフォルトの名無しさん2018/04/12(木) 03:16:46.76ID:dUBwD102
loopがマジでわからん。
どうしたらいい?

903デフォルトの名無しさん2018/04/12(木) 05:13:34.09ID:QxuUPFoE
loop マクロを自作してみる

904デフォルトの名無しさん2018/04/12(木) 07:42:04.41ID:w4rNP/ma
実践Common Lispで覚えた
formatも同じく

905デフォルトの名無しさん2018/04/13(金) 01:48:08.55ID:UkwKelSp
ocamlでさえjavascriptにコンパイル出来るというのにschemeも頑張ろうや

906デフォルトの名無しさん2018/04/14(土) 10:00:00.96ID:BMT8UCYv
Scheme -> Clojure -> javascript の順番に変換するなら、

Clojure -> javascript はすでに自動変換だし、

Scheme -> Clojure も define -> def 等、機械的な置き換えである程度出来るから、

単純なプログラムを変換することは出来るけど、それほど需要がないから無いんじゃないの。

907デフォルトの名無しさん2018/04/14(土) 14:14:27.78ID:Q/hh4lYx
つうかemscriptenで幾つかの実装が動いてるよね
ただそれだけで

908デフォルトの名無しさん2018/04/14(土) 17:47:52.07ID:BMT8UCYv
emscripten で C言語 -> javascript に変換が可能だから、Chicken で Scheme -> C言語 に変換すれば、
Scheme -> C言語 -> javascript が実行できるハズか。うまく通らないコードもあるだろうけど。

909デフォルトの名無しさん2018/04/16(月) 14:28:58.54ID:rldqSGZ/
>>908
そんなチキンなやり方が許されるとでも?

910デフォルトの名無しさん2018/04/16(月) 15:10:31.47ID:cjXJGsOK
>>908 >Chicken
>>909 >チキン
日本語でおk

911デフォルトの名無しさん2018/04/16(月) 17:37:30.38ID:Ao+0rxLU
なんだそのツッコミは

912デフォルトの名無しさん2018/04/22(日) 18:59:39.73ID:kgMcoKG3
なるほどもっとキチンとやれと

913デフォルトの名無しさん2018/04/22(日) 23:13:19.09ID:vfnhSJ7e
ところで「ブラウザでCLを動的にJSにトランスパイル可能なライブラリ」って聞いたら何が思い浮かびます?

914デフォルトの名無しさん2018/04/23(月) 13:04:48.19ID:h3LGX4rw
>>913 (loop) >>901

915デフォルトの名無しさん2018/04/23(月) 16:29:52.12ID:4n233aPE
>>914
ワロタww

916デフォルトの名無しさん2018/05/02(水) 09:24:55.05ID:Ofc9Qt+3
質問です!

動的スコープってスタックに積み上げるだけで実現できるじゃないですか
静的スコープってどうやって実装すればいいんですか?ヒント下さい

917はちみつ餃子 ◆8X2XSCHEME 2018/05/02(水) 12:49:52.49ID:g0SlpjdS
コンパイル (意味解析) 時にスタックを使えばいいんじゃないのかな。

918デフォルトの名無しさん2018/05/02(水) 13:03:03.19ID:Ofc9Qt+3
>>917
なるほど、意味解析時にスコープの構造をスタックで再現しといて
eval時に該当するスタックを参照できればいいってことですよね。

なんだか、ソースマップみたいですね。ひとつひとつのAtomに該当するスコープの参照を持たせるとなると、なんか重くなりそうですね

919デフォルトの名無しさん2018/05/11(金) 15:15:36.81ID:jYn7b+yh
Have you ever read The Little Schemer? => #t
Have you ever read The Seasoned Schemer? => #t
Have you ever read The Reasoned Schemer? => #t
Have you ever read The Little Prover? => #t
Have you ever read The Little Typer? => #f
What's The Little Typer? => Pie language book.

920デフォルトの名無しさん2018/05/13(日) 10:00:19.91ID:V4PsQf4P
David Thrane Christiansen のやっている Idris や Pie language といえば、
依存型 (dependent type) を使用した Type-Driven Development かな。
定理証明系の次の話題としては順当なところ。

921デフォルトの名無しさん2018/05/13(日) 10:10:02.10ID:fJNKI1KS
もうなんのことだかさっぱり

922デフォルトの名無しさん2018/05/13(日) 13:45:19.45ID:V4PsQf4P
依存型についてのテキストはこれまでにこういうのが出てるよ。
Edwin Brady "Type-Driven Development with Idris"
Adam Chlipala "Certified Programming with Dependent Types"
Aaron Stump "Verified Functional Programming in Agda"

Edwin Brady と David Thrane Christiansen は協力して Idris を作ったひとで、
今回、Christiansen が Racket 上で Pie language を実装したみたい。
Pie languageの実装を理解させる本が出ることで Type-Driven Development の
低レベルでの詳細が明快になると期待できる感じかな。

923デフォルトの名無しさん2018/05/23(水) 20:15:24.16ID:Au5e7VGg
僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』

VU7Z1

924デフォルトの名無しさん2018/05/23(水) 20:17:31.53ID:ddkD19I+
ちょっと聞きたいんですけど
JSONをS式で書いたらどんな書き方になると思いますか?

(users . (
((Name . John)
(Age . 25))
((Name . Mike)
(Age . 24))
))

みたいな感じですか?

925デフォルトの名無しさん2018/05/23(水) 21:44:54.25ID:8jCQObxo
cl-jsonとかで読み込んでみたら

926はちみつ餃子 ◆8X2XSCHEME 2018/05/24(木) 00:45:42.66ID:jqqWnK8Z
>>924
Gauche だとこんな感じにマッピングされる。
https://practical-scheme.net/gauche/man/?l=ja&p=parse-json

Sagittarius だとこう。
http://ktakashi.github.io/sagittarius-online-ref/section753.html

XML だと SXML でほぼ統一されてるけど、JSON に関してはまだ揺らぎがある。

927デフォルトの名無しさん2018/05/24(木) 01:13:53.62ID:NR1AW6HZ
素直に連想配列にした方が良いのか、それだと巨大なデータの時にアクセス効率が悪いからハッシュテーブルやdefstructした方が良いのかとか、一筋縄では行かないだろう

928はちみつ餃子 ◆8X2XSCHEME 2018/05/24(木) 01:32:06.19ID:jqqWnK8Z
Expat みたいな方式で、オブジェクトの構築はユーザまかせにするってのもひとつの案かな。
まあ、 JSON が必要な場面は設定ファイルとかウェブ API の類とかだと思うので、
極端に巨大な JSON を仮定する必要はあまりないと思うが……。

929デフォルトの名無しさん2018/05/27(日) 13:45:27.94ID:mYmUirqO
JSONをS式で書くといっても、いろいろやり方はあるよね。
Pie language みたいにDSLを使って、Name型、Age型、users型を定義すれば、
型推論、Type-Driven Development を導入できる。

9309242018/05/27(日) 13:52:56.50ID:zSa68/cd
ほえー、難しいですな

931デフォルトの名無しさん2018/05/27(日) 20:34:52.73ID:4TYKeuy0
結局pieてなに?

932デフォルトの名無しさん2018/05/28(月) 11:53:10.90ID:IqAZvII/
PIE には、元々「インド・ヨーロッパ祖語」(Proto-Indo-European language) という意味があるらしい。
そこから転じて Type-Driven Development の祖語たれかし云々。
Pie言語のような Type-Driven Development と J-Bob(ACL2) の定理証明器の組み合わせによって、
新しいプログラミング・サイクルがもたらされる。
[1] 型を定義する(自動的に型チェックもされる)だけで、
[2] Type-Driven Development 環境が型定義から実行可能なプログラムの雛形を生成してくれる。
[3] プログラムの雛形に実装部分を書き加える。
[4] 書き加えた実装部分の数学的正しさを定理証明器でチェックする。
こんな感じで開発するだけでプログラムの正しさが保証付きで出来上がる。もちろんOOPでもOK。
将来、ほとんどの言語がこういう機能を持つと思われる。

933デフォルトの名無しさん2018/05/28(月) 11:59:02.93ID:IqAZvII/
荒っぽく言うと、英文作成時にtypo checkerとgrammar checkerを併用すると、
正しい英文が簡単に書けてしまう。そのプログラミング言語版みたいなものかと。

934はちみつ餃子 ◆8X2XSCHEME 2018/05/28(月) 13:09:03.51ID:wEzLaTj/
既存の XML や Json のデータからスキーマを構築するやつはどっかで見たことある。

935デフォルトの名無しさん2018/05/28(月) 13:24:15.03ID:IqAZvII/
>>934
JSONスキーマつかってvalidationするやり方は、テスト駆動開発だからミスリード。

936デフォルトの名無しさん2018/05/28(月) 18:05:56.53ID:Wvf3e53c
初心者なんだけど、qiitaでlispの勉強ブログやるのどう思う?
ブログとか自分の趣味ではないんだけど、勉強はかどるかと思って。

937はちみつ餃子 ◆8X2XSCHEME 2018/05/28(月) 23:57:23.63ID:wEzLaTj/
>>936
いいと思うよ。
ただ、 Qiita はブログホスティングサービスではなく、
「知識を共有する」ということをコンセプトにしたサイトだから、
やったことを箇条書きにするだけとかコードが貼っているだけみたいなのではなく、
自分に続く人に参考になるような書き方を心がけてね。

938デフォルトの名無しさん2018/05/29(火) 21:14:19.67ID:BqokYjF9
数行のコードをコンパイルしてみた
chickenでとても小さいバイナリが生成されて満足したあと
Racketが生成するバイナリの大きさに驚いた
そしてSBCLでやってみたらさらに5倍以上も大きくてビックリだわ

それぞれに理由があるのは分かるけど

939デフォルトの名無しさん2018/05/30(水) 09:11:29.12ID:qfpDXvj8
実行ファイルのサイズがでかくても役に立つアプリだったらいいんじゃないの
役に立たないアプリだからサイズが小さくないとまずいって話かな

940デフォルトの名無しさん2018/05/30(水) 09:15:45.84ID:PA9GXtrJ
ばかか?

941デフォルトの名無しさん2018/05/30(水) 09:59:21.93ID:+JLqa4/r
SBCLで「ビックリ」したのはこれ

(eq 'abc 'abc) ;=> T
(eq 'アイウエオ 'アイウエオ) ;=> T
'アイウエオ ;=> アイウエオ
'㌰㌰ ;=> ピコピコ

(setf (sb-ext:readtable-normalization *readtable*) nil) すれば変換されなくなる
http://www.sbcl.org/all-news.html#1.2.5

9429242018/05/30(水) 10:14:13.23ID:yDgT1YjT
皆様に質問です!

JSCLみたいに「サーバサイドもクライアントサイドもlispで!」みたいな思想のやつって他にもありますか?

単にトランスパイラというわけでなく、ブラウザでevalできるのが理想なんですけど...

よろしくおねがいします!

943デフォルトの名無しさん2018/05/30(水) 12:19:21.28ID:3TWGIpcw
>>942 (loop) >>901

944デフォルトの名無しさん2018/05/30(水) 12:35:36.42ID:4OOLz1vE
>>939
自分はFDDの時代から使ってるような老害なので、バイナリは機能なりの大きさのほうが自然に感じるよ
まあ本体が小さくても巨大なランタイムが別にあるんだから同じだろと言われればそれまでだけど

945デフォルトの名無しさん2018/05/30(水) 12:43:43.30ID:ExxmvTi1
スマホで無駄にデカイバイナリーは迷惑だけどPCアプリのサイズなんて気にしない。
昔はユーザーもアプリサイズやメモリー使用量に敏感だったけど、今はそんなこと気にしてないみたいだし。

9469242018/05/30(水) 14:05:50.32ID:jr7ON4yo
>>943
なるほど、ありがとうございました。

947デフォルトの名無しさん2018/05/30(水) 14:20:42.30ID:jr7ON4yo
すみません、LISP初心者ですが、追加の質問させてください!

JSCLを試してみようとgithubのGetting StartedとBuildの項目に挑戦しています。
https://github.com/jscl-project/jscl

サーバでnpm install -g jsclしたあと、jscl-replコマンドを打つことでreplが動くところまではできたのですが
GithubのBuildの項目のところでつまずいています。

git clone https://github.com/jscl-project/jscl.git
することでnode_modulesやpackage.jsonなどが存在するプロジェクトディレクトリ上部に
jsclディレクトリが作成されたのですが(一体これはなんでしょう?サンプルプログラム集なのでしょうか)

replで(jscl:bootstrap)を評価しても
ERROR: The symbol `"BOOTSTRAP"' is not external in the package #<PACKAGE JSCL>.
と表示されてしまい、次のステップに進むことができません。

このステップは、githubのreadme.mdで
「あなたのLispにjscl.lispをロードし、ブートストラップ関数を呼び出して実装自体をコンパイルします」
「ソースツリーの最上部にjscl.jsファイルが生成されます。 これで、ブラウザでjscl.htmlを開いて使用できます。」
と記載があるので、(jscl:bootstrap)を実行することによりgit cloneで落としたプロジェクトをコンパイルし
出力されたjscl.htmlにApacheなど使ってアクセスできるようにすれば、bootstrap?とかいうサンプルアプリが動くと思っているのですが
何がいけないのでしょう??

マニアックな質問で申し訳ないのですが、ぜひお助け願います。
(ところでbootstrapってなんでしょうか?cssフレームワークのTwitter bootstrapのことでしょうか?)

948デフォルトの名無しさん2018/05/30(水) 19:57:16.76ID:EPh+XEfw
SBCLは実行ファイルを圧縮して作成できる
40MBが10〜15MB位になるはず
それでもデカイけどね
ちなみに起動時間は全く変わらない

9499472018/05/30(水) 23:32:16.24ID:jr7ON4yo
よく考えたらスタックオーバーフローとかで質問するべきだったかもしれません(´・ω・`;)

950はちみつ餃子 ◆8X2XSCHEME 2018/05/31(木) 00:05:36.49ID:wCoAkDam
>>947
> 「あなたのLispにjscl.lispをロードし、ブートストラップ関数を呼び出して実装自体をコンパイルします」

マニュアルの文章は、あなたが使っている LISP 処理系の上で jscl.lisp をロードした上で (jscl:bootstrap) を評価せよという意味だと思うんだけど、
あなたがやっているのは jscl-repl を起動した中で (jscl:bootstrap) を評価しているように読める。
そうだとしたらそんなものは無いので無いというエラーになるのはわかる。

9519472018/05/31(木) 10:01:35.83ID:eRJFRV4/
>>950
ご回答ありがとうございます!

つまりCLISPかなにか、適当な処理系をサーバにインストールして
そこから呼び出せばいいのですね!?

試してみます!

952デフォルトの名無しさん2018/06/01(金) 08:07:57.22ID:vYR603xM
Land of Lispはおもしろいですか?

953デフォルトの名無しさん2018/06/01(金) 08:38:48.29ID:pJKbzob1
マンガは面白い

954デフォルトの名無しさん2018/06/30(土) 04:32:01.74ID:7M67VtrJ
stackoverflowってホントの初心者が質問してもいい雰囲気なん?

955デフォルトの名無しさん2018/06/30(土) 21:17:22.45ID:68JzM2MV
>>954
雰囲気ってのが曖昧だけど、質問内容が馬鹿げたものでもどんどんしていいよ。
初心者の質問内容がしょうもないことなのは普通のこと。
だけど、質問の仕方にはある程度の作法がある。

https://ja.stackoverflow.com/help

「ホントの初心者」というのは自分が何を知りたいのか理解していないことが多いので、
回答できる質問に修正されるまでしつこくコメントされるかもしれないけど、
それは非難ではなく回答するために必要な対話なので、面倒くさがらないでね。

956 ◆QZaw55cn4c 2018/07/01(日) 21:02:57.27ID:7W/RE1b9
>>955
>自分が何を知りたいのか理解していないこと
それがわかるようであれば、回答を半分得たも同然ですね…
私にはわからないことが沢山あります、それが減る気配もない…

957はちみつ餃子 ◆8X2XSCHEME 2018/07/03(火) 11:46:05.11ID:BKTruI85
Gauche の 0.9.6 リリースが近いらしい

958デフォルトの名無しさん2018/07/03(火) 19:48:45.16ID:BYpLJ+yC
>>957
川合さん、未だメンテしてるのか。
ハワイで俳優業やってんじゃなかったけ?

959はちみつ餃子 ◆8X2XSCHEME 2018/07/03(火) 22:38:46.07ID:BKTruI85
>>958
ずっと兼業してるみたいだよ。

俳優としての履歴はここに書かれているけど、 (実際には仕事につながらなかったオーディションも含めると) 2003 年からスタートしてる。
http://practical-scheme.net/wiliki/wiliki.cgi?Shiro%3AAuditionRecords

スクウェアの映画の仕事を終えてから Scheme Arts という名前で法人 (といっても史郎さんひとりの会社だが)
を立ち上げてコンサルティングの仕事を始めて、そのほんの少し後から平行して俳優としても活動してることになる。

960はちみつ餃子 ◆8X2XSCHEME 2018/07/04(水) 00:27:22.72ID:afbTNZQQ
0.9.6 キタ――♪ o(゚∀゚o) (o゚∀゚o) (o゚∀゚)o キタ――♪

961デフォルトの名無しさん2018/07/04(水) 01:17:41.82ID:OTzKBqUL
関数型言語で画像処理をやってみたいんだけれど
Common Lispで画像読み込みの定番ってある?

debianでcl-png使おうとしたらlibpng12が必要みたいで
使えませんでした。(libpng16ならある)

clwikiに載っているimageライブラリでドキュメントが充実してるのって
cl-pngが一番なんだけど。

962デフォルトの名無しさん2018/07/04(水) 07:25:53.23ID:vo63HsfH
そーいやgimpがlisp系

963デフォルトの名無しさん2018/07/04(水) 21:49:20.18ID:gFgZc5FG
KI1

964はちみつ餃子 ◆8X2XSCHEME 2018/07/05(木) 03:00:09.18ID:l9X7uzb+
>>962
Scheme やね。
TinyScheme がベース。
R5RS のサブセットになってる。

965デフォルトの名無しさん2018/07/06(金) 01:28:47.94ID:xqwQ2rU4
ラムダ計算と純lispはともにチューリング完全
だからlambdaだけで純lispが作れるはず
実際、cons,car,cdrは作れる
(define (my-cons a d) (lambda (f) (f a d)))
(define (my-car ad) (ad (lambda (a d) a)))
(define (my-cdr ad) (ad (lambda (a d) d)))
でも、atom?またはpair?はどう作ればいいの?

966デフォルトの名無しさん2018/07/11(水) 13:07:02.79ID:7FwajRbN
教えてください。初心者です。

(defun test ()
(let ((result '(0 0 0 0 0 0 0)))
(format t "~{ ~a ~}" result)
(incf (nth 4 result) 7)
(incf (nth 6 result) 6)
result))

この関数なんですが、実行するたびに結果が変わるのです。

HOGE 28 > (test)
0 0 0 0 0 0 0
(0 0 0 0 7 0 6)

HOGE 29 > (test)
0 0 0 0 7 0 6
(0 0 0 0 14 0 12)

(let ((result (make-list 7 :initial-element 0)))...
にすれば意図したとおりに動作するのは分かっているのですが、
何で元の関数定義でだめなのかが分からないのです。
ちなみに、Lispworks 7.0 Windows 32bitです。
他の処理系でも同じような動作になるのでしょうか。

9679662018/07/11(水) 13:41:02.30ID:7FwajRbN
何でこうなるかは、何となくわからなくはないのですが(1回目の実行と2回目の実行で同じリストをletで束縛してるってことですよね?)、
letってそういう動作するのを想定して使わなきゃいけないものなのか、ってのがわかってないのです。
僕の理解では元の関数定義でいけそうな気がするのです。

9689662018/07/11(水) 15:14:10.25ID:7FwajRbN
(defparameter *FOO* '(bar bar bar))
(defun hoge-is-foo (&optional (piyo nil))
(let ((hoge '(fuga fuga fuga)))
(if piyo (setf *foo* hoge))
(format t "HOGE: ~{ ~a ~}~%" hoge)
(format t "*FOO*: ~{ ~a ~}~%" *foo*)
(if (eq hoge *foo*)
(format t "HOGE IS FOO!~%")
(format t "HOGE IS NOT FOO!~%"))))

PIYO 82 > (hoge-is-foo)
HOGE: FUGA FUGA FUGA
*FOO*: BAR BAR BAR
HOGE IS NOT FOO!
NIL

PIYO 83 > (hoge-is-foo t)
HOGE: FUGA FUGA FUGA
*FOO*: FUGA FUGA FUGA
HOGE IS FOO!
NIL

PIYO 84 > (setf (car *foo*) 'baz)
BAZ

PIYO 85 > (hoge-is-foo)
HOGE: BAZ FUGA FUGA
*FOO*: BAZ FUGA FUGA
HOGE IS FOO!
NIL

こーゆーもんなん?

969デフォルトの名無しさん2018/07/11(水) 15:25:01.53ID:16Hc9NDk
>>966
let の使い方というより、 quote されたリストの破壊的変更は literal object の変更にあたるから未定義動作になるはずで、そのせいで変な挙動になってるんだと思う。


ちなみに Allegro だと LispWorks と同じ挙動になった。

SBCL だと警告で "Destructive function SB-KERNEL:%RPLACA called on constant data: (0 0 0)." と出る。
で、繰り返し呼んでも毎回 (0 0 0 0 0 0) が返されるみたい。

9709692018/07/11(水) 16:28:25.75ID:16Hc9NDk
>>967
あ、質問の趣旨が違うか。

(defun hoge ()
'(1 2 3))

があるときに、

(eq (hoge) (hoge))

は、同じリストを返すのだから常に T になるのか?って話かな

9719662018/07/11(水) 17:18:46.59ID:7FwajRbN
>>970
966です。
僕が知りたかったのは>>969の内容です。どうもありがとうございました。
未定義動作なのですね。基本的にこのような破壊的代入は避けるってことですかね。

しかし、これが未定義だと、確率は低いでしょうけど、いつかどこかで事故が起こったりするんじゃないのかな。知らんけど。

972デフォルトの名無しさん2018/07/11(水) 19:41:32.56ID:16Hc9NDk
>>971
うーん、リストを破壊的に変更する場合、上のようにリテラルを破壊するのもまずいし、リテラルでなくても部分共有されたリストだと予想外の場所に影響が及ぶので、自分は安全とわかってないとやらないです。

破壊的変更をするのが前提なら、 list 関数や言及されてるmake-listで新しく作ったり、 copy-list で複製してからいじったりすることが多いかも。

973デフォルトの名無しさん2018/07/11(水) 20:14:45.56ID:VhV09Bdv
>>965
↓の isnil あたりを参考にすれば作れそう。
https://en.wikipedia.org/wiki/Church_encoding#List_encodings

9749662018/07/11(水) 20:23:44.77ID:7FwajRbN
>>972
破壊的な変更には注意が必要なこと自体は、入門書などを読んで知っていたのですが、
今回の例では関数を呼び出す度に別のリストをletが束縛するだろうjkと勝手に思っていました。

勉強になりました。ありがとうございます。

975デフォルトの名無しさん2018/07/11(水) 20:33:50.22ID:Igjhxsb4
>>966
SBCLは警告が出るから出ないように修正するだけだし、無視しても意図した通りに動く
LispWorksは警告出ないの?

9769662018/07/11(水) 20:46:42.70ID:7FwajRbN
>>975
でないっす。

9779662018/07/11(水) 21:11:34.91ID:7FwajRbN
自分の環境でSBCLでやってみたら↓みたいになった。
個人的にはLispworksの挙動より意味不明かも。
(hoge-is-foo)はLispworksと同じ結果。

* (test)
0 0 0 0 0 0 0
(0 0 0 0 7 0 6)
* (test)
0 0 0 0 7 0 6
(0 0 0 0 7 0 6)
* (test)
0 0 0 0 7 0 6
(0 0 0 0 7 0 6)

レス数が950を超えています。1000を超えると書き込みができなくなります。