is_odd.ml

let rec is_odd_pos(num: int): bool =
  if num = 0 then false
  else is_even_pos(num - 1)
and is_even_pos(num: int): bool =
  if num = 0 then true
  else is_odd_pos(num - 1);;

let rec is_odd_neg(num: int): bool =
  if num = 0 then false
  else is_even_neg(num + 1)
and is_even_neg(num: int): bool =
  if num = 0 then true
  else is_odd_neg(num + 1);;

let is_odd(num: int): bool =
  if num >= 0 then (is_odd_pos num)
  else (is_odd_neg num);;