Anonymous user
File size distribution: Difference between revisions
m
→{{header|REXX}}: optimized the reading of the workfile.
m (→{{header|REXX}}: optimized the file reading.) |
m (→{{header|REXX}}: optimized the reading of the workfile.) |
||
Line 429:
$=0; do while lines(dirOut) \== 0
_=linein(dirOUT); if left(_, 1)==' ' then iterate /*process data. */
parse upper var _
if \datatype(sz,'W') then do; #=left(sz, length(sz) - 1) /*SZ has a suffix?*/
if \datatype(#,'N') then iterate /*Meat ¬ numeric? */
| |||