RosettaCodeData/Task/Determine-if-a-string-is-numeric/Phix/determine-if-a-string-is-numeric-2.phix
2016-12-05 23:44:36 +01:00

10 lines
372 B
Text

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"})