7 lines
143 B
Text
7 lines
143 B
Text
include get.e
|
|
|
|
function is_numeric(sequence s)
|
|
sequence val
|
|
val = value(s)
|
|
return val[1]=GET_SUCCESS and atom(val[2])
|
|
end function
|