diff options
Diffstat (limited to 'examples/booleans.bdl')
| -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) | ||