「コンパイラ・スクリプトエンジン」相談室10

「コンパイラ・スクリプトエンジン」相談室10 at TECH

754:デフォルトの名無しさん
06/09/14 00:34:25
>>744-753
マクロにする必要すらないんじゃ？
ドットで繋ぐんだから実装はハッシュか何かだよね？
Schemeで申し訳ないが

(define (pp obj r)
　(if (null? r)
　　　　obj
　　　　(pp (ref obj (car r)) (cdr r))))
(define (p obj . r) (pp obj r))

で
　(p a 'b 'c 'd)
と書けるよ。

あとはgauche限定？になるけど
(define-method object-apply ((b <hash-table>) . c) (pp b c))
で
　(a 'b 'c 'd)
と書ける。

次ページ

続きを表示

1を表示