14 lines
443 B
Text
14 lines
443 B
Text
function isNumber(string s)
|
|
return scanf(s,"%f")!={}
|
|
end function
|
|
|
|
function testset(sequence s)
|
|
for i=1 to length(s) do
|
|
s[i] = isNumber(s[i])
|
|
end for
|
|
return s
|
|
end function
|
|
?testset({"#a","#A","0xA","0(16)A","#FF","255","0",".14",".05","-5.2","0xf","ten","1B"})
|
|
?testset({" 12 ",trim(" 12 ")})
|
|
?testset({"0o16","0o18"})
|
|
?testset({"1_000","0b10101111_11110000_11110000_00110011","-0b10101","0x10.5",""," ","1.","50e"})
|