RosettaCodeData/Task/Input-loop/Mathematica/input-loop.math

4 lines
88 B
Plaintext

stream = OpenRead["file.txt"];
While[a != EndOfFile, Read[stream, Word]];
Close[stream]