Rosetta Code

Empty directory: Difference between revisions

Page Discussion

Empty directory (view source)

Revision as of 12:45, 8 September 2017

252 bytes removed ,  6 years ago
no edit summary
No edit summary
No edit summary
Line 695:
 
<lang Maple>
emptydirectory := proc (dir)
emptydiris(listdir(dir) := Array([".", ".."]); ▼
local emptydir, directory, numfiles, i, empty;
▲emptydir := Array([".", ".."]);
directory := Array(listdir(dir));
numfiles := upperbound(directory);
for i to numfiles do
if member(directory[i], emptydir) then
empty := true;
else empty := false;
end if;
end do;
return empty;
end proc;
</lang>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/210808"