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の解説を教えていただきました。