CommonLisp Scheme Part11 - 暇つぶし2ch

CommonLisp Scheme Part11 at TECH

300:270
04/09/14 10:38:48
>>298
やっぱり Gauche はバランスがよく取れているということなのでしょうか。

>>299
そうか！マクロか！と思って、さっそく>>288 のコードをマクロ化してみました。

;元の関数
;（案の定バグがあった（停止しない）ので修正してある。）
(define make-function
　(lambda (s-form null-value)
　　(lambda (list0)
　　　(if (null? list0)
　　　　　null-value
　　　　　(s-form (atom? (car list0)
　　　　　　　　　((make-function s-form null-value) (cdr list0))))))))

;マクロ化したもの
(define-syntax make-function
　(syntax-rules ()
　　((_ s-form null-value)
　　 (lambda (list0)
　　　 (if (null? list0)
　　　　　 null-value
　　　　　 (s-form (atom? (car list0))
　　　　　　　　　 ((make-function s-form null-value) (cdr list0))))))))

そうしたら、マクロ展開が停止しないんです。再帰的定義なのに停止条件がないから。
この場合、どう書いたらよいのでしょうか？ヘタレですみません。

次ページ

続きを表示

1を表示