【SICP练习】112 练习3.28
2015-03-26 12:46
225 查看
练习3-28
原文
Exercise 3.28. Define an or-gate as a primitive function box. Your or-gate constructor should be similar to and-gate.代码
(define (or-gate input-1 input-2 output) (define (or-action-procedure) (let ((new-value (logical-or (get-signal input-1) (get-signal input-2)))) (after-delay or-gate-delay (lambda () (set-signal! output new-value))))) (add-action! input-1 or-action-procedure) (add-action! input-2 or-action-procedure) 'ok) (define (logical-or x y) (if (or (= x 1) (= y 1)) 1 0))
感谢访问,希望对您有所帮助。 欢迎关注或收藏、评论或点赞。
为使本文得到斧正和提问,转载请注明出处:
http://blog.csdn.net/nomasp
相关文章推荐
- 【SICP练习】112 练习3.28
- SICP 练习1.16
- 【SICP练习】25 练习1.31
- 【SICP练习】37 练习1.42
- 【SICP练习】61 练习2.31-2.32
- 【SICP练习】77 练习2.48-2.49
- 【SICP练习】93 练习2.66
- 【SICP练习】121 练习3.52
- 【SICP练习】144 练习3.82
- 【SICP练习】9 练习1.15
- 【SICP练习】125 练习3.56
- 【SICP练习】149 练习4.5
- 【SICP练习】63 练习2.34
- 【SICP练习】103 练习2.81-2.97
- 【SICP练习】65 练习2.36
- 【SICP练习】128 练习3.59
- 【SICP练习】19 练习1.25
- 【SICP练习】12 练习1.18
- 【SICP练习】114 练习3.38-3.39
- SICP 练习1.17