10 lines
188 B
Text
10 lines
188 B
Text
|
let is_int s =
|
||
|
|
try ignore (int_of_string s); true
|
||
|
|
with _ -> false
|
||
|
|
|
||
|
|
let is_float s =
|
||
|
|
try ignore (float_of_string s); true
|
||
|
|
with _ -> false
|
||
|
|
|
||
|
|
let is_numeric s = is_int s || is_float s
|