RosettaCodeData/Task/Empty-directory/OCaml/empty-directory.ml

3 lines
45 B
OCaml

let is_dir_empty d =
Sys.readdir d = [| |]