18 lines
242 B
Text
18 lines
242 B
Text
integer
|
|
is_numeric(text s)
|
|
{
|
|
return !trap_q(alpha, s, 0);
|
|
}
|
|
|
|
integer
|
|
main(void)
|
|
{
|
|
if (!is_numeric("8192&*")) {
|
|
o_text("Not numeric.\n");
|
|
}
|
|
if (is_numeric("8192")) {
|
|
o_text("Numeric.\n");
|
|
}
|
|
|
|
return 0;
|
|
}
|