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