Numerical and alphabetical suffixes: Difference between revisions
Content added Content deleted
m (→{{header|zkl}}: reword test so it makes sense) |
m (→{{header|zkl}}: clean up REs) |
||
Line 749: | Line 749: | ||
fcn naSuffixes(numStr){ |
fcn naSuffixes(numStr){ |
||
var [const] |
var [const] |
||
numRE=RegExp(0'^([+-]*\.*\d+[.]*\d* |
numRE=RegExp(0'^([+-]*\.*\d+[.]*\d*E*[+-]*\d*)^), |
||
bangRE=RegExp(0'^(!+)^); |
bangRE=RegExp(0'^(!+)^); |
||
Line 756: | Line 756: | ||
nstr=nstr[numRE.matched[0][1],*]; |
nstr=nstr[numRE.matched[0][1],*]; |
||
r:=numRE.matched[1]; |
r:=numRE.matched[1]; |
||
if(r.matches("*[. |
if(r.matches("*[.E]*")) r=r.toFloat(); // arg! |
||
else |
else r=BI(r); |
||
reg z; |
reg z; |