6 lines
125 B
Prolog
6 lines
125 B
Prolog
non_empty_file('.').
|
|
non_empty_file('..').
|
|
|
|
empty_dir(Dir) :-
|
|
directory_files(Dir, Files),
|
|
maplist(non_empty_file, Files).
|