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*[Ee]*[+-]*\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("*[.eE]*")) r=r.toFloat(); // arg!
if(r.matches("*[.E]*")) r=r.toFloat(); // arg!
else r=BI(r);
else r=BI(r);


reg z;
reg z;