Transportation problem: Difference between revisions

Content added Content deleted
m (→‎{{header|REXX}}: another fix - good to have testers out there :-()
m (→‎{{header|REXX}}: slight improvement for default case in sourcelines)
Line 4,040: Line 4,040:
init:
init:
If lines(fid)=0 Then Do
If lines(fid)=0 Then Do
Say 'Input file not specified or not found. Using default input instead.'
Say 'Input file not specified or not found. Using default input instead.'
in.1=sourceline(4)
Do i=1 To 5
Parse Var in.1 numSources .
Do i=2 To numSources+3
in.i=sourceline(i+3)
in.i=sourceline(i+3)
End
End