LOL tree-leaves

これはtree-leaves%%までで十分だと思いましたが、どうなんでしょう。

予測できる使い方の範囲では、これが最も直感的で贅肉のない方法だと思う。

らしい。個人的には、むしろ直感的でなくなっているように思いますが・・・。


ところで、Gaucheで書くにあたり、何の気なしにfold-rightで書きましたが、これだとLOLに書かれているようなドットリストではうまくいきませんね。fold-rightは関係ないですね。

• タンブラーとは - #9LISP RT @valvallow: LOL tree-leaves

このtree-leavesのところで「アナフォラ」という単語が出てきました。アナフォリックマクロ楽しみです。

• How To Become A Hacker: alambda

LOL flatten

これもLOLより（というよりOn Lispより？）。Gaucheで書いてみましたが、これも探せばどこかにありそうですね。

fold-rightで書いてみましたが、大丈夫かな。なんか怪しいような気もする。もしかするとfoldでreverseな方が良いかな。いやfold-rightで大丈夫か。

追記

LOLより。Common Lispのlabelsはschemeのletrecみたいなもの、と考えて良いんだろう、きっと。なんかCLの方が美しい気がする（labelsに限らず）。

LOL mkstr, symb, group

mkstr, symb, groupはLet Over Lambdaで必要になるユーティリティ関数です。On Lispよりのものだそうです。On Lispは見事に積読中。

• On Lisp --- ユーティリティ関数
• Flatline（On LispのPDFなど）

LOLはあの調子ですから読むのはサクサクなのですが、書くのが全然追いつきません。

internってなんぞ。symbの最後がvaluesなのもなぜだろう。わからないけど取り合えず放っておきます。以下コードはOn Lispより。

Gaucheで。（util.listに、groupと同等のslicesがあるそうです）

• GaucheでOn Lispのgroupを書く - 八発白中
• Gauche ユーザリファレンス: 11.46 util.list - その他のリストライブラリ

call-with-string-output-port・・・ってどこにあるんだろう。

• 2009-07-26 - 月の塵

• Gauche ユーザリファレンス: 4.3 手続きを作る

(cut cons (+ a 1) <>) ≡ (lambda (x2) (cons (+ a 1) x2))

(cut list 1 <> 3 <> 5) ≡ (lambda (x2 x4) (list 1 x2 3 x4 5))

(cut list) ≡ (lambda () (list))

(cut list 1 <> 3 <...>)

≡ (lambda (x2 . xs) (apply list 1 x2 3 xs))

(cut <> a b) ≡ (lambda (f) (f a b))

部分適用便利だなー！

参考

• dolist
• Gauche ユーザリファレンス: 4.8 繰り返し
• with-output-to-string
• Gauche ユーザリファレンス: 6.19 入出力
• pi, math.const
• Gauche ユーザリファレンス: 11.12 math.const - 定数
• string->symbol
• Gauche ユーザリファレンス: 6.5 シンボル
• 部分適用, cut
• Gauche ユーザリファレンス: 4.3 手続きを作る
• util.list, slices
• Gauche ユーザリファレンス: 11.46 util.list - その他のリストライブラリ

• On Lisp --- ユーティリティ関数
• GaucheでOn Lispのgroupを書く - 八発白中
• 2009-07-26 - 月の塵

追記

• タンブラーとは - RT @valvallow: LOL mkstr, symb, group

internの解説を教えていただきました。

print, print1, princ, pprint

CL-USER> (let ((v "hoge")) (list (print v) (prin1 v) (princ v) (pprint v))) "hoge" "hoge"hoge "hoge"("hoge" "hoge" "hoge" NIL)

• 入出力

prin1

関数readに適した出力,すなわちLispプログラムに適した出力を生成する.

princ

prin1がLispプログラムに適した出力を生成するのに対し,princはユーザの見やすい出力を生成する.エスケープ文字も出力されない.

print

先頭に改行が付加される点を除いてprin1と同じである.

pprint

続くスペースを空行にすることを除いてprintと同じである.

• IcadWeb.com - LISP入門 第29回: メッセージ出力

(princ "\n\nこんにちわ！")	↓ ↓ こんにちわ！
(prin1 "\n\nこんにちわ！")	\n\nこんにちわ！

•  Lispの変な関数名 - わだばLisperになる - cadr group

追記

どうでも良いことだけど、やっぱこうかな。

CL-USER> (mapcar (lambda (e) (funcall e "hoge")) `(print princ prin1 pprint)) "hoge" hoge"hoge" "hoge"("hoge" "hoge" "hoge" NIL)

P.S ってPostscriptの略だったんですか、そうですか。

• 西田 宗千佳のPostscript: 日経の真意

この方のブログ、Google Alertによく引っかかるので以前から存じてはいました。PostScript（プログラミング言語）に何かしらの思い入れでもあるんだろうか、などと思っていました。

先ほどTwitterで教えて頂いたのですが、PostscriptってあのPSなんですね。手紙のP.S。追伸ってことですか。そうですか。

• PostScript の意味とは - 英和辞典 Weblio辞書

逆ポーランド記法でスタック指向なPostScriptを、LotYなどにどうでしょうか。

• PostScript - Wikipedia
• Ghostscript - Wikipedia

実はこのブログにも一つのカテゴリがあります（笑）

• vallog: PostScript
• vallog: PostScript - PDF,Web まとめ

defmacro: LOL nif

マクロを使えば、他の言語では全く不可能なことが可能になる。 --Doug Hoyte

define-syntaxの書き方や仕組みも良くわかっていないのですが、取り合えずトライ。

define-syntaxの方はexprに副作用があっても1回しか評価されてない、ということで良いのかな。あれ、「,g」を「, g」と書いてるがそれは良いのか？

追記

展開してみれば良いのか。

defmacro: LOL nlet

マクロは、Lispが1つのプログラミング言語として有する唯一最大の強みであり、いかなるプログラミング言語においても唯一最大の強みである。  --Doug Hoyte

著者のLisp（のマクロ）マンセーっぷりがすごい。
（Gaucheで書いてみてます）

• Let Over Lambda / Schemer: 2.1–2.5 - 月の塵

let-optionals*, define-values

クロージャを複数返すの見て、なるほど・・・と。

• Gauche ユーザリファレンス: 6.16 制御
• Gauche ユーザリファレンス: 4.10 定義
• Gauche ユーザリファレンス: 10.7 srfi-11 - Let-values

srfi-9 define-record-type

「srfiわからない・・・」「ヒント：gauche」

• Gauche ユーザリファレンス: 10.6 srfi-9 - レコード型
• srfi-9のレコード型を試してみた - みずぴー

構造体的なものないかなー、と調べてみたところsrfi-9のrecord型が丁度良さそう。classは少し大袈裟かなと。

新ロゴ

• 9LISP

ロゴが新しくなりました。春ですし。

新

旧

どちらもロゴジェネレータで作ったものですけども。。

• ロゴ(Logo)ジェネレーター - NAVER まとめ

現在、@msskndさんにお願いして擬人化プロジェクトが進んでいたりします。9LISPの読み方は「きゅうりすぷ」「くりすぴー」「くりすぷ」「ないんりすぷ」・・・など、なんでも良いです。ですが9LISPたんは「きゅうりすぷたん」です。乞うご期待。

やっぱどこかに「λ」が欲しいですね・・・。