diff options
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) | ||