Lisp Scheme Part40 [転載禁止]©2ch.net

166デフォルトの名無しさん2015/07/22(水) 13:29:11.06ID:wcjgZ6Dx
>>162でスゲーわかった気になったのに、>>163-164で全然わからなくなりました。
defineでも問題なさそうだけど。

(define my_or1
(syntax-rules ()
((_ a b) (or a b))))

(define-syntax my_or2
(syntax-rules ()
((_ a b) (or a b))))

(my_or1 #t (begin (print "!") #f)) ===> #t
(my_or2 #t (begin (print "!") #f)) ===> #t

新着レスの表示
レスを投稿する