การประกวด (!): ในภาษาที่คุณเลือกให้เขียนโปรแกรมที่จะสำรวจทรีไดเรกทอรีของไดเรกทอรีที่กำหนดและส่งออกทรี (เช่นอาร์เรย์ของอาร์เรย์) ที่สอดคล้องกับมัน สมมติว่าไดเรกทอรีเป็นตัวแปรที่กำหนดไว้ล่วงหน้า D. จำนวนตัวอักษรที่เล็กที่สุดชนะ

กฎ:

• คุณต้องใช้การสอบถามซ้ำ
• ดูกฎ

หมายเหตุ: สมมติว่าไม่มีการจำกัดความลึกของการเรียกซ้ำ กล่าวอีกนัยหนึ่งรหัสของคุณต้องทำงานกับไดเรกทอรีต้นไม้ขนาดเล็กและในหลักการสำหรับต้นไม้ใหญ่

ตัวอย่างเช่น

ต้นไม้ไดเรกทอรีคือ

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

ต้นไม้ออกคือ

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

กอล์ฟรหัสแรกที่นี่เพื่อทราบว่าฉันกำลังทำอะไรผิด

มีความสุข :)

Mathematica 120 21 20

การเรียกซ้ำแบบชัดแจ้ง (ขอบคุณ alephalpha สำหรับการบันทึกหนึ่งถ่าน):

f=f/@__~FileNames~#&

f["~/StackExchange/dir1"]

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

TreeForm[%]

โซลูชันที่ซับซ้อนที่ผ่านมา:

d="~/StackExchange/dir1"

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

ทับทิม 38 ตัวอักษร

หากคุณไม่สนใจช่องว่างพิเศษในผลลัพธ์:

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

ตัวอย่างการใช้งาน:

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

เอาท์พุท:

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

ถ้าฉันไม่สามารถมีช่องว่างอะไรบางอย่างเช่นนี้สำหรับบรรทัดที่สอง:

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

Python 2.7, 111 ตัวอักษร

นำเส้นทางเป้าหมายจาก 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 ตัวละคร

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)

ค่อนข้างง่าย สามารถลดขนาดได้ 10 ตัวถ้าไม่จำเป็นต้องใช้จุลภาค รับอินพุตจาก $ D (ตามที่ระบุในคำถาม) ส่งคืนเอาต์พุตบน STD-Out ตามตัวอย่างในคำถามที่เกิดขึ้น

นามแฝงที่ต้องการจริงๆสามารถใช้ตัวเลือก! ฉันถูกฆ่าโดย 'เขียน - โฮสต์ - ไม่มีของใหม่!

C # 200 ตัวอักษร

การส่งออกสตริงไม่ใช่อาร์เรย์จริง ใช้พา ธ เป็นอาร์กิวเมนต์แรก

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 ไบต์

#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());}

นี่คือรุ่นที่ไม่ได้รับการเคารพเล็กน้อย:

#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());
}

โปรดสังเกตว่าตั้งแต่ - ตามคำแนะนำ - D ถือว่าเป็นตัวแปรที่กำหนดไว้ล่วงหน้ารหัสจะไม่สร้างโดยไม่มีการส่ง D. อย่างใดนี่เป็นวิธีหนึ่งในการสร้าง:

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

สคริปต์ชุด - 146, 157, 152 127 ไบต์

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%

ทำงานด้วย:

scriptfile.cmd folderroot