RosettaCodeData/Task/Input-loop/Mathematica/input-loop.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

3 lines
88 B
Text

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