2011/04/29

日記

›
先日、J.P.ホーガンの「星を継ぐもの」を読みました。SF小説を読むのは小学生以来かもしれません。すごくワクワクする楽しい読書でした。続編があることを知ったので、早速「ガニメデの優しい巨人」と「巨人たちの星」を買って読んでいます。先程amazonで、「内なる宇宙」の上・下も購入し...
2011/04/12

日記（Scheme/Lisp とか、DSL とか）

›
近頃、Scheme(Gauche) で DSL を書くお仕事をしています。domain specific language のあれです。先日までは、Gauche で JSON を使って PostgreSQL とやり取りする CGI な API を書くお仕事をしていました。（主に設...
2011/04/07

macroexpand %macroexpand unwrap-syntax

›
gauche の macroexpand, %macroexpand, unwrap-syntax 。お試しコード垂れ流し。 Gauche ユーザリファレンス: 5.3 マクロの展開 Gauche ユーザリファレンス: 5.4 マクロユーティリティ 今まで macroexp...

define-method

›
gauche の define-method 。お試しコード垂れ流し。 ( define-method dispatch (( i <integer> )( sym <symbol> )) ( print 4 ) ( set! tota...
2011/04/06

:init-value でハマった・・・ :init-form が正解だった

›
これはかなりハマってしまった・・・ こんなコードがあるとして ( define-class <point> () (( x :init-keyword :x :init-value 0 ) ( y :init-keyword :y :init-...

多値と receive

›
多値は便利ですよね。多値がサポートされてると嬉しいですね。無くても困らないかもしれませんけどね。common lisp の multiple-value-bind destructuring-bind みたいな分配束縛があれば多値は無くても良いような気もするんですがどうなんでし...

gauche で json を post

›
gauche で json を受け取って json を返す cgi な api を書いてる時に、テスト用に書いたスクリプト。あまり楽になってない。 #! /usr/local/bin/gosh ( use rfc.json ) ( use rfc.http ) ( ...

json に変換可能な alist を walk

›
コード垂れ流し。 ( use srfi-43 ) ( define ( walk-json-alist alist :key ( key-fun identity )( val-fun identity )) ( define ( junction x ) ...

gauche cgi カレンダー

›
今年の初めの頃にやった写経。面白かった～これ。 Gauche:CGI:スケジュール予定表:Shiro版 #! /usr/local/bin/gosh ;; http://practical-scheme.net/wiliki/wiliki.cgi?Gauche:CGI:%...

カプレカ数

›
カプレカ数 - Gushwell's C# Programming Page カプレカ数 - Wikipedia ザックリしてますが。 ;; 1. 2乗して前の部分と後ろの部分に分けて和を取ったとき、元の値に等しくなるもの ;; 2. 桁を並べ替えて最大にしたものか...