diff options
| author | Bad Diode <bd@badd10de.dev> | 2021-10-10 14:48:30 +0200 |
|---|---|---|
| committer | Bad Diode <bd@badd10de.dev> | 2021-10-10 14:48:30 +0200 |
| commit | 4e4d5373328276ea6d49a60242555d5db03158ff (patch) | |
| tree | bae8bae76647d7159b350a1987c74bf9d36cb908 /examples | |
| parent | 9323c1285a8a9f7ec33e88d26f102d92c7a6e2ec (diff) | |
| download | bdl-4e4d5373328276ea6d49a60242555d5db03158ff.tar.gz bdl-4e4d5373328276ea6d49a60242555d5db03158ff.zip | |
Add numerical comparison primitive procedures
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/booleans.bdl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/examples/booleans.bdl b/examples/booleans.bdl index 24d57a0..8828ac2 100644 --- a/examples/booleans.bdl +++ b/examples/booleans.bdl | |||
| @@ -75,3 +75,17 @@ | |||
| 75 | (cond ((and true true true) (+ 1 2 3)) | 75 | (cond ((and true true true) (+ 1 2 3)) |
| 76 | ((or true true false) 2) | 76 | ((or true true false) 2) |
| 77 | (else 3)) | 77 | (else 3)) |
| 78 | |||
| 79 | ;; Numeric comparisons. | ||
| 80 | (print "(< 1 2 3) -> ") (< 1 2 3) | ||
| 81 | (print "(< 3 2 1) -> ") (< 3 2 1) | ||
| 82 | (print "(> 1 2 3) -> ") (> 1 2 3) | ||
| 83 | (print "(> 3 2 1) -> ") (> 3 2 1) | ||
| 84 | (print "(= 1 2 3) -> ") (= 1 2 3) | ||
| 85 | (print "(= 3 2 1) -> ") (= 3 2 1) | ||
| 86 | (print "(= 3 3 3) -> ") (= 3 3 3) | ||
| 87 | (print "(= (+ 1 2) 3 (- 6 3)) -> ") (= (+ 1 2) 3 (- 6 3)) | ||
| 88 | (print "(< 1 1 3) -> ") (< 1 1 3) | ||
| 89 | (print "(<= 1 1 3) -> ") (<= 1 1 3) | ||
| 90 | (print "(> 3 3 1) -> ") (> 3 3 1) | ||
| 91 | (print "(>= 3 3 1) -> ") (>= 3 3 1) | ||