sample code
This commit is contained in:
parent
1e22fb868b
commit
4759a61a80
|
@ -0,0 +1,29 @@
|
||||||
|
(def and
|
||||||
|
(lm (a b)
|
||||||
|
(nand (nand a b) (nand a b))))
|
||||||
|
|
||||||
|
(def or
|
||||||
|
(lm (a b)
|
||||||
|
(nand (nand a a) (nand b b))))
|
||||||
|
|
||||||
|
(def not
|
||||||
|
(lm (a)
|
||||||
|
(nand a a)))
|
||||||
|
|
||||||
|
(def nor
|
||||||
|
(lm (a b)
|
||||||
|
(not (or a b))))
|
||||||
|
|
||||||
|
|
||||||
|
;; XXX ((lambda (x) (add x 1)) 5)
|
||||||
|
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; mode: scheme
|
||||||
|
;; eval: (message "main()")
|
||||||
|
;; fill-column: 55
|
||||||
|
;; comment-column: 40
|
||||||
|
;; indent-tabs-mode: nil
|
||||||
|
;; tab-width: 2
|
||||||
|
;; c-basic-offset: 2
|
||||||
|
;; End:
|
Loading…
Reference in New Issue