12 lines
167 B
Plaintext
12 lines
167 B
Plaintext
|
(assert-eq? 7 (if true 7 9))
|
||
|
(assert-eq? 9 (if false 7 9))
|
||
|
|
||
|
($ (max x y)
|
||
|
(if (> x y)
|
||
|
x
|
||
|
y
|
||
|
))
|
||
|
|
||
|
(assert-eq? 32 (max 3 32))
|
||
|
(assert-eq? 329 (max 329 32))
|