5 lines
67 B
Text
5 lines
67 B
Text
let is_even d =
|
|
(d land 1) = 0
|
|
|
|
let is_odd d =
|
|
(d land 1) <> 0
|