A-M baby

Task/Empty-directory/Groovy/empty-directory-1.groovy

@@ -0,0 +1,4 @@
+def isDirEmpty = { dirName ->
+    def dir = new File(dirName)
+    dir.exists() && dir.directory && (dir.list() as List).empty
+}

Task/Empty-directory/Groovy/empty-directory-2.groovy

@@ -0,0 +1,9 @@
+def currentDir = new File('.')
+def random = new Random()
+def subDirName = "dir${random.nextInt(100000)}"
+def subDir = new File(subDirName)
+subDir.mkdir()
+subDir.deleteOnExit()
+
+assert ! isDirEmpty('.')
+assert isDirEmpty(subDirName)

Task/Empty-directory/J/empty-directory-1.j

@@ -0,0 +1,2 @@
+require 'dir'
+empty_dir=: 0 = '/*' #@dir@,~ ]

Task/Empty-directory/J/empty-directory-2.j

@@ -0,0 +1,5 @@
+$ mkdir /tmp/a
+$ touch /tmp/a/...
+$ mkdir /tmp/b
+$ mkdir /tmp/c
+$ mkdir /tmp/c/d

Task/Empty-directory/J/empty-directory-3.j

@@ -0,0 +1,6 @@
+   empty_dir 'c:/cygwin/tmp/a'
+0
+   empty_dir 'c:/cygwin/tmp/b'
+1
+   empty_dir 'c:/cygwin/tmp/c'
+0

Task/Empty-directory/Liberty-BASIC/empty-directory.liberty

@@ -0,0 +1,15 @@
+dim info$(10, 10)
+files "c:\", info$()
+
+qtyFiles=val(info$(0,0))
+n = qtyFiles+1  'begin directory info
+
+folder$ = info$(n,0)  'path to first directory in c:
+
+files folder$, info$() 're-fill array with data from sub folder
+
+if val(info$(0,0)) + val(info$(0, 1)) <> 0 then
+    print "Folder ";folder$;" is not empty."
+else
+    print "Folder ";folder$;" is empty."
+end if

Task/Empty-directory/Mathematica/empty-directory.mathematica

@@ -0,0 +1,5 @@
+EmptyDirectoryQ[x_] := (SetDirectory[x]; If[FileNames[] == {}, True, False])
+
+Example use:
+EmptyDirectoryQ["C:\\Program Files\\Wolfram Research\\Mathematica\\9"]
+->True