diff options
Diffstat (limited to 'examples/booleans.bdl')
-rw-r--r-- | examples/booleans.bdl | 75 |
1 files changed, 43 insertions, 32 deletions
diff --git a/examples/booleans.bdl b/examples/booleans.bdl index d248bf8..d526f25 100644 --- a/examples/booleans.bdl +++ b/examples/booleans.bdl | |||
@@ -3,43 +3,54 @@ | |||
3 | ;; | 3 | ;; |
4 | 4 | ||
5 | ;; Boolean test. | 5 | ;; Boolean test. |
6 | (print "(boolean? true) -> ") (boolean? true) | 6 | (print "(boolean? true) -> ") (boolean? true) |
7 | (print "(boolean? false) -> ") (boolean? false) | 7 | (print "(boolean? false) -> ") (boolean? false) |
8 | (print "(boolean? 1) -> ") (boolean? 1) | 8 | (print "(boolean? 1) -> ") (boolean? 1) |
9 | (print "(boolean? 5) -> ") (boolean? 5) | 9 | (print "(boolean? 5) -> ") (boolean? 5) |
10 | (print "(boolean? \"string\") -> ") (boolean? "string") | 10 | (print "(boolean? \"string\") -> ") (boolean? "string") |
11 | (print "(boolean? (+ 1 2 3)) -> ") (boolean? (+ 1 2 3)) | 11 | (print "(boolean? (+ 1 2 3)) -> ") (boolean? (+ 1 2 3)) |
12 | (print "(boolean? (not 1)) -> ") (boolean? (not 1)) | 12 | (print "(boolean? (not 1)) -> ") (boolean? (not 1)) |
13 | 13 | ||
14 | ;; Not. | 14 | ;; Not. |
15 | (print "(not true) -> ") (not true) | 15 | (print "(not true) -> ") (not true) |
16 | (print "(not false) -> ") (not false) | 16 | (print "(not false) -> ") (not false) |
17 | (print "(not (not true)) -> ") (not (not true)) | 17 | (print "(not (not true)) -> ") (not (not true)) |
18 | (print "(not (not false)) -> ") (not (not false)) | 18 | (print "(not (not false)) -> ") (not (not false)) |
19 | (print "(not 1) -> ") (not 1) | 19 | (print "(not 1) -> ") (not 1) |
20 | (print "(not (not 1)) -> ") (not (not 1)) | 20 | (print "(not (not 1)) -> ") (not (not 1)) |
21 | (print "(not \"string\") -> ") (not "string") | 21 | (print "(not \"string\") -> ") (not "string") |
22 | (print "(not (not \"string\")) -> ") (not (not "string")) | 22 | (print "(not (not \"string\")) -> ") (not (not "string")) |
23 | 23 | ||
24 | ;; And. | 24 | ;; And. |
25 | (print "(and 1 \"string\" 4 true) -> ") (and 1 "string" 4 true) | 25 | (print "(and 1 \"string\" 4 true) -> ") (and 1 "string" 4 true) |
26 | (print "(and true true true) -> ") (and true true true) | 26 | (print "(and true true true) -> ") (and true true true) |
27 | (print "(and (+ 1 2 3)) -> ") (and (+ 1 2 3)) | 27 | (print "(and (+ 1 2 3)) -> ") (and (+ 1 2 3)) |
28 | (print "(and false false false) -> ") (and false false false) | 28 | (print "(and false false false) -> ") (and false false false) |
29 | (print "(and true false false) -> ") (and true false false) | 29 | (print "(and true false false) -> ") (and true false false) |
30 | (print "(and false true false) -> ") (and false true false) | 30 | (print "(and false true false) -> ") (and false true false) |
31 | (print "(and false true true) -> ") (and false true true) | 31 | (print "(and false true true) -> ") (and false true true) |
32 | (print "(and (not false) true true) -> ") (and (not false) true true) | 32 | (print "(and (not false) true true) -> ") (and (not false) true true) |
33 | 33 | ||
34 | ;; Or. | 34 | ;; Or. |
35 | (print "(or 1 \"string\" 4 true) -> ") (or 1 "string" 4 true) | 35 | (print "(or 1 \"string\" 4 true) -> ") (or 1 "string" 4 true) |
36 | (print "(or false 1) -> ") (or false 1) | 36 | (print "(or false 1) -> ") (or false 1) |
37 | (print "(or false \"string\") -> ") (or false "string") | 37 | (print "(or false \"string\") -> ") (or false "string") |
38 | (print "(or false) -> ") (or false) | 38 | (print "(or false) -> ") (or false) |
39 | (print "(or true true true) -> ") (or true true true) | 39 | (print "(or true true true) -> ") (or true true true) |
40 | (print "(or false false false) -> ") (or false false false) | 40 | (print "(or false false false) -> ") (or false false false) |
41 | (print "(or true false false) -> ") (or true false false) | 41 | (print "(or true false false) -> ") (or true false false) |
42 | (print "(or false true false) -> ") (or false true false) | 42 | (print "(or false true false) -> ") (or false true false) |
43 | (print "(or false true true) -> ") (or false true true) | 43 | (print "(or false true true) -> ") (or false true true) |
44 | (print "(or (not false) true true) -> ") (or (not false) true true) | 44 | (print "(or (not false) true true) -> ") (or (not false) true true) |
45 | (print "(or (not true) false) -> ") (or (not true) false) | 45 | (print "(or (not true) false) -> ") (or (not true) false) |
46 | |||
47 | ;; If. | ||
48 | (print "(if true true false) -> ") (if true true false) | ||
49 | (print "(if false true false) -> ") (if false true false) | ||
50 | (print "(if true (+ 1 2 3) 0) -> ") (if true (+ 1 2 3) 0) | ||
51 | (print "(if false (+ 1 2 3) 0) -> ") (if false (+ 1 2 3) 0) | ||
52 | (print "(if (or true false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or true false) (+ 1 2 3) (+ 7 8 9)) | ||
53 | (print "(if (or false false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or false false) (+ 1 2 3) (+ 7 8 9)) | ||
54 | (print "(if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9)) | ||
55 | (print "(if true 7) -> ") (if true 7) | ||
56 | (print "(if false 7) -> ") (if false 7) | ||