(defn get-monitor-size [] 24)
(def inch-size (get-monitor-size))
;; case tests constants, and a list groups several of them for one branch.
;; the constants are NOT evaluated - they are taken literally.
;; the trailing form without a test is the default
(def s
(case inch-size
(14 15) "too small"
(16 17 18) "good for the past decade"
(19 20 21 22 23) "for office work"
(24 25 26 27) "great choice"
""))
;; s is "great choice"
(println "Monitor" inch-size "is" s)
;; without that default an unknown value throws
(println "case 99:"
(try (case 99 (14 15) "too small")
(catch Exception e (str "threw: " (ex-message e)))))
;; a range is a condition, not a constant, so it is a job for cond
(println "with cond:"
(cond
(< inch-size 16) "too small"
(<= 16 inch-size 18) "good for the past decade"
(<= 19 inch-size 23) "for office work"
:else "great choice"))