Rosetta Code/Rank languages by popularity: Difference between revisions
Content added Content deleted
m (→REXX program: changed quoting style.) |
m (→REXX program: changed a ^ glyph to ¬.) |
||
Line 4,803: | Line 4,803: | ||
if igAst then do; igAst= pos(' * ',$)==0; if igAst then iterate; end |
if igAst then do; igAst= pos(' * ',$)==0; if igAst then iterate; end |
||
if pos('RETRIEVED FROM', translate($$))\==0 then leave /*pseudo End─Of─Data?.*/ |
if pos('RETRIEVED FROM', translate($$))\==0 then leave /*pseudo End─Of─Data?.*/ |
||
if which=='L' then do; if left($$, 1)\=="*" then iterate /*lang |
if which=='L' then do; if left($$, 1)\=="*" then iterate /*lang ¬legitimate?*/ |
||
parse upper var $$ '*' $$ "<"; $$= space($$) |
parse upper var $$ '*' $$ "<"; $$= space($$) |
||
if $$=='' then iterate /*recs*/; L.$$= 1 |
if $$=='' then iterate /*recs*/; L.$$= 1 |