17 lines
222 B
Text
17 lines
222 B
Text
|
|
||
|
|
let is_even x.
|
||
|
|
if x == 0.
|
||
|
|
return True
|
||
|
|
else.
|
||
|
|
return is_odd (x-1)
|
||
|
|
|
||
|
|
let is_odd x.
|
||
|
|
if x == 1.
|
||
|
|
return False
|
||
|
|
else.
|
||
|
|
return is_even (x-1)
|
||
|
|
|
||
|
|
@:Bool is_even 1
|
||
|
|
# @expect_diagnostic "TypeMismatch"
|
||
|
|
is_even True
|