Cuộc thi (!): Trong ngôn ngữ bạn chọn, hãy viết chương trình sẽ duyệt qua cây thư mục của một thư mục đã cho và xuất ra một cây (tức là một mảng các mảng) tương ứng với nó. Giả sử thư mục là một biến được xác định trước D. Số ký tự nhỏ nhất sẽ thắng.

Quy tắc:

• Bạn phải sử dụng đệ quy
• Xem quy tắc

Lưu ý: Giả sử rằng không có giới hạn độ sâu đệ quy. Nói cách khác, mã của bạn chỉ cần hoạt động cho các cây thư mục đủ nhỏ và về nguyên tắc cho các cây lớn hơn.

Ví dụ:

Cây thư mục là

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

Cây đầu ra là

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

Mã golf đầu tiên ở đây để tôi biết nếu tôi làm sai.

Chúc vui vẻ :)

Toán học 120 21 20

Đệ quy rõ ràng (cảm ơn alephalpha vì đã lưu một char):

f=f/@__~FileNames~#&

f["~/StackExchange/dir1"]

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

TreeForm[%]

Giải pháp quá phức tạp trước đây:

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 ký tự

Nếu bạn không nhớ một số khoảng trắng thừa trong đầu ra:

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

Ví dụ sử dụng:

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

Đầu ra:

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

Nếu tôi không thể có khoảng trắng, một cái gì đó như thế này cho dòng thứ hai:

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

Python 2.7, 111 ký tự

Lấy đường dẫn đích từ 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)

Khá đơn giản. Có thể giảm 10 ký tự nếu không yêu cầu dấu phẩy. Lấy đầu vào từ $ D (như đã nêu trong câu hỏi), trả về đầu ra trên STD-Out như ví dụ trong câu hỏi đã đi.

Thực sự muốn bí danh có thể sử dụng tùy chọn! Tôi đang bị giết bởi 'máy chủ lưu trữ -Không dòng mới!

C # 200 ký tự

Xuất ra một chuỗi, không phải là một mảng thực tế. Lấy một đường dẫn làm đối số đầu tiên.

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])));}}

Ung dung:

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 byte

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

Đây là một phiên bản hơi vô căn cứ:

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

Xin lưu ý rằng vì - theo hướng dẫn - D được coi là biến được xác định trước, mã không được xây dựng mà không cung cấp bằng cách nào đó D. Đây là một cách để xây dựng:

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

Tập lệnh hàng loạt - 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%

Chạy với:

scriptfile.cmd folderroot