콘테스트 (!) : 선택한 언어로 지정된 디렉토리의 디렉토리 트리를 가로 지르는 트리를 출력하는 프로그램을 작성하십시오 (즉, 배열 배열). 디렉토리가 사전 정의 된 변수 D라고 가정하십시오. 문자 수가 가장 적습니다.

규칙 :

• 재귀를 사용해야합니다
• 규칙 참조

참고 : 재귀 깊이 제한이 없다고 가정하십시오. 다시 말해, 코드는 충분히 작은 디렉토리 트리와 원칙적으로 큰 디렉토리 트리에 대해서만 작동하면됩니다.

예를 들어 :

디렉토리 트리는

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

출력 트리는

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

여기에 첫 번째 코드 골프가 있으므로 lemme은 내가 잘못하고 있는지 알 수 있습니다.

재미있게 보내세요 :)

매스 매 티카 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' ',''

파이썬 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())

파워 쉘-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)

상당히 간단합니다. 쉼표가 필요하지 않은 경우 10자를 줄일 수 있습니다. $ D에서 입력을 받고 (질문에 설명 된대로) 질문의 예제가 진행됨에 따라 STD-Out에서 출력을 리턴합니다.

정말로 희망하는 별명은 옵션을 사용할 수 있습니다! 'write-host -NoNewline 's에 의해 죽고 있습니다!

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

언 골프 드 :

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

다음은 약간 ungolfed 버전입니다.

#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, 152127 바이트

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