; Section 2.5 - Truth (Page 13)
; Zachary Murray (zmurray@mix.wvu.edu)

; Example 1 - Page 13

; (listp '(a b c))

(list? '(a b c))

; Example 2 - Page 13

; (listp 27)

(list? 27)

; Example 3 - Page 13

; (null nil)

(nil? nil)

; Example 4 - Page 13

; (not nil)

(not nil)

; Example 5 - Page 14

; (if (listp '(a b c))
;   (+ 1 2)
;   (+ 5 6))
; (if (listp 27)
;   (+ 1 2)
;   (+ 5 6))

(if (list? '(a b c))
  (+ 1 2)
  (+ 5 6))
(if (list? 27)
  (+ 1 2)
  (+ 5 6))

; Example 6 - Page 14

; (if (listp 27)
;   (+ 2 3))

(if (list? 27)
  (+ 2 3))

; Example 8 - Page 14

; (and t (+ 1 2))

(and true (+ 1 2))