17 lines
405 B
Text
17 lines
405 B
Text
(let a (fun (v) {
|
|
(print "a(" v ")")
|
|
v }))
|
|
|
|
(let b (fun (v) {
|
|
(print "b(" v ")")
|
|
v }))
|
|
|
|
(print "---") (and (a true) (b true))
|
|
(print "---") (and (a false) (b true))
|
|
(print "---") (and (a true) (b false))
|
|
(print "---") (and (a false) (b false))
|
|
|
|
(print "---") (or (a true) (b true))
|
|
(print "---") (or (a false) (b true))
|
|
(print "---") (or (a true) (b false))
|
|
(print "---") (or (a false) (b false))
|