Stream merge: Difference between revisions

This REXX version reads &nbsp; (in numerical order) &nbsp; ''any'' &nbsp; number of input files in the form of: &nbsp; &nbsp; <big> nnn.TXT </big> &nbsp; &nbsp; and

<br>and stops reading subsequent &nbsp; ''new'' &nbsp; input files when it encounters aan input file that doesn't exist &nbsp; (or is empty).

$@.=copies('FFff'x, 1e5) /*no value should be larger than this. */

@.=$ do n=1 until @.n==@.; call rdr n; end /*theread defaultany valuenumber forof theappropriate @ arrayfiles. */

n=n-1 do n=1 until @.n==$; call rdr n; end /*readadj. anyN; numberread offrom appropriatea files.non─existent file*/

do forever; y=@.; #=0 /*find [↑]the lowest readvalue 'tilfor a non─existentN file. values.*/

do k=1 forever; for n y=$; #=0 /*find the lowest value for /*traipse through the stemmed N @ valuesarray.*/

if do @.k=1 for n-1 =@. then call rdr k /*traipseNot throughdefined? the stemmedThen read @a array.file record*/

if @.k==$<<y then do; y=@.k; call rdr #=k; end /*NotLowest defined?so far? Then readmark athis fileas recordmin.*/

end if @./*k<<y*/ then do; y=@.k; #=k; end /*Lowest so[↑] far? note Thenuse markof this<< asexact mincomparison*/

call lineout 'ALL.TXT', @.#; say @.# /*outputwrite value to a file; also display. */

call rdr # /*repopulatere-populate thisa file'svalue inputfrom value.the # file. */

end /*forever*/ /*keep reading/merging until exhausted.*/

rdr: parse arg z; @.z=$@.; f=z'.TXT'; if lines(f)\==0 then @.z=linein(f); return</lang>

'''{{out|output''' |text=&nbsp; is the same as the 1^st REXX version when using identical input files).}} <br><br>