RosettaCodeData/Task/File-size/Seed7/file-size.seed7

8 lines
145 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
$ include "seed7_05.s7i";
const proc: main is func
begin
writeln(fileSize("input.txt"));
writeln(fileSize("/input.txt"));
end func;