diff options
| author | Bad Diode <bd@badd10de.dev> | 2021-10-13 16:44:17 +0200 |
|---|---|---|
| committer | Bad Diode <bd@badd10de.dev> | 2021-10-13 16:44:17 +0200 |
| commit | ed1f406102738812fafa5e49ee131fe06c177687 (patch) | |
| tree | 0bb648c18b6f96e0f020a9f8e664df330199b51b /examples/booleans.bdl | |
| parent | b8bad3bf5af3261f25780a8cd8b90a659fe29bab (diff) | |
| download | bdl-ed1f406102738812fafa5e49ee131fe06c177687.tar.gz bdl-ed1f406102738812fafa5e49ee131fe06c177687.zip | |
Add a lot of primitive types
Diffstat (limited to 'examples/booleans.bdl')
| -rw-r--r-- | examples/booleans.bdl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/booleans.bdl b/examples/booleans.bdl index e38fb1f..0598450 100644 --- a/examples/booleans.bdl +++ b/examples/booleans.bdl | |||
| @@ -44,7 +44,7 @@ | |||
| 44 | (print "(if (or false false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or false false) (+ 1 2 3) (+ 7 8 9)) | 44 | (print "(if (or false false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or false false) (+ 1 2 3) (+ 7 8 9)) |
| 45 | (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)) | 45 | (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)) |
| 46 | (print "(if true 7) -> ") (if true 7) | 46 | (print "(if true 7) -> ") (if true 7) |
| 47 | (print "(if false 7) -> ") (if false 7) | 47 | (print "(if false 7) -> ") (if false 7) (newline) |
| 48 | 48 | ||
| 49 | ;; Cond. | 49 | ;; Cond. |
| 50 | (print "(cond ((and true true true) 1) ((or true true false) 2) (else 3)) -> ") | 50 | (print "(cond ((and true true true) 1) ((or true true false) 2) (else 3)) -> ") |
| @@ -61,7 +61,7 @@ | |||
| 61 | (else 3)) | 61 | (else 3)) |
| 62 | (print "(cond ((and true true true) 1) ((or true true false) 2)) -> ") | 62 | (print "(cond ((and true true true) 1) ((or true true false) 2)) -> ") |
| 63 | (cond ((and true true false) 1) | 63 | (cond ((and true true false) 1) |
| 64 | ((or false false false) 2)) | 64 | ((or false false false) 2)) (newline) |
| 65 | (print "(cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) (else 3)) -> ") | 65 | (print "(cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) (else 3)) -> ") |
| 66 | (cond ((and true true true) (+ 1 2 3)) | 66 | (cond ((and true true true) (+ 1 2 3)) |
| 67 | ((or true true false) 2) | 67 | ((or true true false) 2) |