23 lines
337 B
Plaintext
23 lines
337 B
Plaintext
(
|
|
:none :two :one :both -> :r2 -> :r1
|
|
(
|
|
((r1 r2 and)(both))
|
|
((r1)(one))
|
|
((r2)(two))
|
|
((true)(none))
|
|
) case
|
|
) :if2
|
|
|
|
(3 4 >) (0 0 ==)
|
|
("both are true")
|
|
("the first is true")
|
|
("the second is true")
|
|
("both are false")
|
|
if2 puts! ;the second is true
|
|
|
|
;compare to regular if
|
|
(4 even?)
|
|
("true")
|
|
("false")
|
|
if puts! ;true
|