Jump to content

Longest string challenge: Difference between revisions

m
→‎read file until not ready: elided the need to initialize the variable named M.
m (→‎read file until not ready: elided the need for the variable named ONE.)
m (→‎read file until not ready: elided the need to initialize the variable named M.)
Line 1,749:
if iFID=='' | iFID=="," then iFID= 'LONGEST.TXT' /*Not specified? Then use the default.*/
signal on notReady /*when E-O-F is reached, jump/branch. */
 
m=0 /*the maximum width (so far). */
do rec=1; _=linein(iFID); w=length(_) /*read a line from the input file. */
do y=rec to 1; m=w; w=0; $=y || _; end /*first initialization.*/
Cookies help us deliver our services. By using our services, you agree to our use of cookies.