Source file `char.ml`

1
2
3
4
5
6
7
8
9
include Stdlib.Char

let is_digit = function
  | '0' .. '9' -> true
  | _non_digit_char -> false

let is_lowercase_hex = function
  | '0' .. '9' | 'a' .. 'f' -> true
  | _non_lowercase_hex_char -> false