mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-18 01:02:26 +02:00
* testsuite: Move to... * test-suite/vm: ... here. * Makefile.am (SUBDIRS): Remove `testsuite'. * configure.ac: Output `test-suite/vm/Makefile' instead of `testsuite/Makefile'. * test-suite/Makefile.am (SUBDIRS): Add `vm'.
8 lines
116 B
Scheme
8 lines
116 B
Scheme
(define (even? x)
|
|
(or (zero? x)
|
|
(not (odd? (1- x)))))
|
|
|
|
(define (odd? x)
|
|
(not (even? (1- x))))
|
|
|
|
(even? 20)
|