diff options
| author | Kazuki Yamaguchi <k@rhe.jp> | 2018-06-08 17:57:01 +0900 |
|---|---|---|
| committer | Kazuki Yamaguchi <k@rhe.jp> | 2018-06-08 18:00:50 +0900 |
| commit | 0d0e1dbd33f978edb544f878458636861bcbe286 (patch) | |
| tree | 136309ff84a27971ba425c380dcdf5a9085b62ec /examples/even-odd.scm | |
| parent | 6a1fa7db286c9cda11a1847affd688b9e5f80c08 (diff) | |
| download | mini-scheme-0d0e1dbd33f978edb544f878458636861bcbe286.tar.gz | |
Diffstat (limited to 'examples/even-odd.scm')
| -rw-r--r-- | examples/even-odd.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/examples/even-odd.scm b/examples/even-odd.scm new file mode 100644 index 0000000..e2ef631 --- /dev/null +++ b/examples/even-odd.scm @@ -0,0 +1,6 @@ +(define (even? x) + (if (= x 0) #t (odd? (- x 1)))) +(define (odd? x) + (if (= x 1) #t (even? (- x 1)))) + +(display (even? 99)) |