8 lines
237 B
Clojure
8 lines
237 B
Clojure
|
(letfn [(a [bool] (print "(a)") bool)
|
||
|
|
(b [bool] (print "(b)") bool)]
|
||
|
|
(doseq [i [true false] j [true false]]
|
||
|
|
(print i "OR" j "= ")
|
||
|
|
(println (or (a i) (b j)))
|
||
|
|
(print i "AND" j " = ")
|
||
|
|
(println (and (a i) (b j)))))
|