From ed1f406102738812fafa5e49ee131fe06c177687 Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Wed, 13 Oct 2021 16:44:17 +0200 Subject: Add a lot of primitive types --- examples/booleans.bdl | 4 ++-- examples/lists.bdl | 2 +- examples/types.bdl | 21 ++++++++++----------- 3 files changed, 13 insertions(+), 14 deletions(-) (limited to 'examples') 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 @@ (print "(if (or false false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or false false) (+ 1 2 3) (+ 7 8 9)) (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)) (print "(if true 7) -> ") (if true 7) -(print "(if false 7) -> ") (if false 7) +(print "(if false 7) -> ") (if false 7) (newline) ;; Cond. (print "(cond ((and true true true) 1) ((or true true false) 2) (else 3)) -> ") @@ -61,7 +61,7 @@ (else 3)) (print "(cond ((and true true true) 1) ((or true true false) 2)) -> ") (cond ((and true true false) 1) - ((or false false false) 2)) + ((or false false false) 2)) (newline) (print "(cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) (else 3)) -> ") (cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) diff --git a/examples/lists.bdl b/examples/lists.bdl index 4a27005..36063d6 100644 --- a/examples/lists.bdl +++ b/examples/lists.bdl @@ -3,7 +3,7 @@ ;; ;; List function. -(print "(list) -> ") (list) +(print "(list) -> ") (list) (newline) (print "(list 1) -> ") (list 1) (print "(list 1 2) -> ") (list 1 2) (print "(list 1 2 3) -> ") (list 1 2 3) diff --git a/examples/types.bdl b/examples/types.bdl index 43b7be9..36dab7a 100644 --- a/examples/types.bdl +++ b/examples/types.bdl @@ -12,14 +12,14 @@ (print "(boolean? (not 1)) -> ") (boolean? (not 1)) ;; Empty list/null. -(print "(null? true) -> ") (null? true) -(print "(null? false) -> ") (null? false) -(print "(null? 1) -> ") (null? 1) -(print "(null? 5) -> ") (null? 5) -(print "(null? \"string\") -> ") (null? "string") -(print "(null? (+ 1 2 3)) -> ") (null? (+ 1 2 3)) -(print "(null? (not 1)) -> ") (null? (not 1)) -(print "(null? ()) -> ") (null? ()) +(print "(nil? true) -> ") (nil? true) +(print "(nil? false) -> ") (nil? false) +(print "(nil? 1) -> ") (nil? 1) +(print "(nil? 5) -> ") (nil? 5) +(print "(nil? \"string\") -> ") (nil? "string") +(print "(nil? (+ 1 2 3)) -> ") (nil? (+ 1 2 3)) +(print "(nil? (not 1)) -> ") (nil? (not 1)) +(print "(nil? ()) -> ") (nil? ()) ;; String. (print "(string? true) -> ") (string? true) @@ -40,7 +40,6 @@ (print "(fixnum? (not 1)) -> ") (fixnum? (not 1)) ;; Symbol -;; TODO: We need quotation to test for symbols. (print "(symbol? true) -> ") (symbol? true) (print "(symbol? false) -> ") (symbol? false) (print "(symbol? 1) -> ") (symbol? 1) @@ -48,8 +47,8 @@ (print "(symbol? \"string\") -> ") (symbol? "string") (print "(symbol? (+ 1 2 3)) -> ") (symbol? (+ 1 2 3)) (print "(symbol? (not 1)) -> ") (symbol? (not 1)) -; (print "(symbol? 'a) -> ") (symbol? 'a) -; (print "(symbol? 'c) -> ") (symbol? 'c) +(print "(symbol? 'a) -> ") (symbol? 'a) +(print "(symbol? 'c) -> ") (symbol? 'c) ;; Pair. (print "(pair? false) -> ") (pair? false) -- cgit v1.2.1