Wettbewerb (!): Schreiben Sie in der Sprache Ihrer Wahl ein Programm, das den Verzeichnisbaum eines bestimmten Verzeichnisses durchläuft und einen entsprechenden Baum (dh ein Array von Arrays) ausgibt. Angenommen, das Verzeichnis ist eine vordefinierte Variable D. Die kleinste Zeichenanzahl gewinnt.

Regeln:

• Sie müssen die Rekursion verwenden
• Siehe Regeln

Hinweis: Angenommen, es gibt keine Rekursionstiefenbeschränkungen. Mit anderen Worten, Ihr Code muss nur für ausreichend kleine Verzeichnisbäume und im Prinzip für größere funktionieren.

Zum Beispiel:

Verzeichnisbaum ist

dir1
├── dir11
│   ├── file111
│   └── file112
├── dir12
│   ├── file121
│   ├── file122
│   └── file123
├── file11
├── file12
└── file13

Ausgabebaum ist

[[[],[]],[[],[],[]],[],[],[]]

Erster Code Golf hier, damit ich weiß, ob ich etwas falsch mache.

Habe Spaß :)

Mathematica 120 21 20

Explizite Rekursion (danke alephalpha für das Speichern eines Zeichens):

f=f/@__~FileNames~#&

f["~/StackExchange/dir1"]

{{{}, {}}, {{}, {}, {}}, {}, {}, {}}

TreeForm[%]

Vorherige überkomplizierte Lösung:

d="~/StackExchange/dir1"

f@{x___,Longest@s:{y_,___}..,z___}:=f@{x,f@Drop[{s},1,1],z}
f[FileNameSplit/@FileNames[__,SetDirectory@d;"",∞]]/.f->(#&)

Ruby, 38 Zeichen

Wenn Ihnen zusätzliche Leerzeichen in der Ausgabe nichts ausmachen:

f=->n{Dir[n+'/*'].map{|c|f[c]}}
p f[D]

Anwendungsbeispiel:

D='C:/work/dir1'
f=->n{Dir[n+'/*'].map{|c|f[c]}}
p f[D]

Ausgabe:

[[[], []], [[], [], []], [], [], []]

Wenn ich das Leerzeichen nicht haben kann, so etwas für die zweite Zeile:

puts"#{f[D]}".tr' ',''

Python 2.7, 111 Zeichen

Nimmt den Zielpfad von stdin.

import os
def R(d):return[R(f)for f in[d+'/'+e for e in os.listdir(d)]if os.path.isdir(f)]
print R(raw_input())

Powershell - 182 Char

function A([string]$b){write-host -NoNewline '['; ls -path $b|foreach{if($_.PSIsContainer){A($_.FullName)}ELSE{write-host -NoNewline $f'[]';$f=', '}};write-host -NoNewline ']'};A($D)

Ziemlich Einfach. Könnte um 10 Zeichen reduziert werden, wenn die Kommas nicht benötigt würden. Nimmt Eingaben von $ D (wie in Frage angegeben) entgegen und gibt die Ausgabe auf STD-Out zurück, wie im Beispiel in der Frage angegeben.

Ich wünschte wirklich, Aliase könnten Optionen verwenden! Ich werde von den 'Write-Host-NoNewline's' getötet!

C # 200 Zeichen

Ausgabe eines Strings, kein tatsächliches Array. Nimmt einen Pfad als erstes Argument.

using D=System.IO.DirectoryInfo;class P{static string R(D d){var r="[";foreach(D e in d.GetDirectories())r+=R(e);return r+"]";}static void Main(string[] a) {System.Console.WriteLine(R(new D(a[0])));}}

Ungolfed:

using D = System.IO.DirectoryInfo;

class P
{
    static string R(D d)
    {
        var r = "[";
        foreach (D e in d.GetDirectories())
            r += R(e);
        return r + "]";
    }

    static void Main(string[] a)
    {
        System.Console.WriteLine(R(new D(a[0])));
    }
}

C ++, 318 Bytes

#include <cstdio>
#include <dirent.h>
#include <string>
#define s std::string
#define n e->d_name
s l(s p){s r;dirent*e;DIR*d;if(d=opendir(p.c_str())){int c=0;while(e=readdir(d))if(s("..")!=n&s(".")!=n)r+=&",["[!c++]+(e->d_type==DT_DIR?l(p+'/'+n):"")+"]";closedir(d);}return r;}main(){puts((s("[")+l(D)+"]").c_str());}

Hier ist eine leicht ungolfed Version:

#include <cstdio>
#include <dirent.h>
#include <string>

#define s std::string
#define n e->d_name

s l(s p) {
    s r;
    dirent*e;
    DIR*d;
    if (d=opendir(p.c_str())) {
        int c=0;
        while (e=readdir(d))
            if (s("..")!=n&s(".")!=n)
                r+=&",["[!c++]+(e->d_type==DT_DIR?l(p+'/'+n):"")+"]";
        closedir(d);
    }
    return r;
}

main() {
    puts((s("[")+l(D)+"]").c_str());
}

Bitte beachten Sie, dass - gemäß den Anweisungen - D als vordefinierte Variable angenommen wird, der Code nicht erstellt wird, ohne D anzugeben. Hier ist eine Möglichkeit zum Erstellen:

g++ -Dmain="s D=\".\";main" -o tree golfed.cpp

Batch-Skript - 146, 157, 152, 127 Byte

set x=
:a
set x=%x%,[
cd %1
goto %errorlevel%
:0
for /f %%a in ('dir/b') do call:a %%a
cd..
:1
set x=%x:[,=[%]
cls
@echo %x:~1%

Laufen Sie mit:

scriptfile.cmd folderroot