Amaç

nGirdi olarak bir tamsayı alan (komut satırından) bir program yazmanız ve ndizin programının kendisine (program) dizinlerini gömmeniz gerekir . İle örnek n=5:

Klasör adları istediğiniz gibi olabilir. Tek gereksinim, derinliğin doğru olması ve programın dizin ağacındaki yeni noktasından tekrar çalıştırılabilmesi ve yeni kaynak dosyasının aynı dosya adını tutmasıdır.

Bonuslar:

• Skor * 0.9 Dizinlerin hepsi farklı bir isme sahipse (en azından 1000 000 derinliğe kadar doğru olmalıdır)
• Skoru * 0.5 Eğer yoksa doğrudan veya dolaylı olarak programın kaynak kodunu okumak veya kaynak dosya veya erişimi taşımak

Bash, 30 * 0.9 * 0.5 = 13.5

mkdir -p `seq -s/ $1`;ln $0 $_

Derinliği ilk argüman olarak alır. Aşağıdaki dizin yapısında kendisine sabit bir bağlantı oluşturur:

1/2/3/4/5/.../n

Komut dosyası daha sonra rmeski komut dosyasında çalıştırılsa bile yeni konumdan çalıştırılabilir.

Açıklama:

seq -s/ $11'den $1(ilk bağımsız değişkene) sayıları eğik çizgi ile ayırarak verir.

mkdir -p `seq -s` $1tarafından belirtilen dizini seq, -ptüm ara dizinleri oluşturarak oluşturur.

ln $0 $_ yeni oluşturulan dizinde çalışmakta olan komut dosyasına sabit bir bağlantı oluşturun.

Eski (30 * 0,9 = 27):

mkdir -p `seq -s/ $1`;cp $0 $_

Örnek çalışma (ln ile):

$ ls -lGR
.:
total 1
-rwx------+ 1 ducks 41 Jan  5 15:00 test.sh

$ ./test.sh 4

$ ls -lgR
.:
total 1
drwxr-xr-x+ 1 ducks  0 Jan  5 15:01 1
-rwx------+ 2 ducks 41 Jan  5 15:00 test.sh

./1:
total 0
drwxr-xr-x+ 1 ducks 0 Jan  5 15:01 2

./1/2:
total 0
drwxr-xr-x+ 1 ducks 0 Jan  5 15:01 3

./1/2/3:
total 0
drwxr-xr-x+ 1 ducks 0 Jan  5 15:01 4

./1/2/3/4:
total 1
-rwx------+ 2 ducks 41 Jan  5 15:00 test.sh

$ rm ./test.sh

$ ls -lg
total 0
drwxr-xr-x+ 1 ducks 0 Jan  5 15:01 1

$ ls -lg 1/2/3/4
total 1
-rwx------+ 1 ducks 41 Jan  5 15:00 test.sh

Yerine öneri için @DigitalTrauma sayesinde $(..)ile`..`

@Hjk önerisi için teşekkürler ln.

C, 225 * 0.9 * 0.5 = 101.25

C çözümüm:

$ cat d.c
#define R(x)#x
#define T(x)R(x)
#define S(p)b[9];main(i,v)char**v;{for(i=atoi(v[1]);i--;sprintf(b,"%i",i),mkdir(b),chdir(b));fputs("#define R(x)#x\n#define T(x)R(x)\n#define S(p)"p"\nS(T(S(p)))",fopen("d.c","w"));}
S(T(S(p)))

Burada biraz daha okunabilir bir biçimde:

#define R(x) #x
#define T(x) R(x)
#define S(p) char b[9];\
             main(int i,char**v) { \
                for(i=atoi(v[1]); i--; sprintf(b,"%i",i), \
                                       mkdir(b), \
                                       chdir(b)); \
                fputs("#define R(x) #x\n" \
                      "#define T(x) R(x)\n" \
                      "#define S(p) " p "\n" \
                      "S(T(S(p)))", \
                      fopen("d.c", "w")); \
             }
S(T(S(p)))

Çalışıp çalışmadığını kontrol edin:

$ gcc -o d d.c
# a lot of warning and notes from gcc ... 
$ ./d 10
$ diff -s d.c 9/8/7/6/5/4/3/2/1/0/d.c
Files d.c and 9/8/7/6/5/4/3/2/1/0/d.c are identical

Büyük olasılıkla kaynak kodunda çok fazla golf potansiyeli var.

Parti - 48 * 0.9 = 43.2

for /l %%a in (1,1,%1)do md %%a&cd %%a&move..\%0

Bu komut dosyası yeni bir dizin oluşturur ve kaynak dosyayı dizine taşır n.

H:\MyDocuments\uprof\top>embed.bat 5

     ...

H:\MyDocuments\uprof\top>tree /f
Folder PATH listing for volume DATA009_HOMES
Volume serial number is B88B-384C
H:.
└───1
    └───2
        └───3
            └───4
                └───5
                        embed.bat

Zsh, 63 60 58 52 * 0.9 = 56.7 54 52.2 46.8

s=$(<$0);for i in {1..$1};{mkdir $i;cd $i};echo $s>f

Misal:

llama@llama:...Code/misc/foo$ zsh f 5
llama@llama:...Code/misc/foo$ ls -R
.:
d1  f

./d1:
d2

./d1/d2:
d3

./d1/d2/d3:
d4

./d1/d2/d3/d4:
d5

./d1/d2/d3/d4/d5:
f
llama@llama:...Code/misc/foo$ cat d1/d2/d3/d4/d5/f 
s=$(cat $0);for i in {1..$1};do;mkdir d$i;cd d$i;done;echo $s>f
llama@llama:...Code/misc/foo$ cat f
s=$(cat $0);for i in {1..$1};do;mkdir d$i;cd d$i;done;echo $s>f
llama@llama:...Code/misc/foo$ diff f d1/d2/d3/d4/d5/f
llama@llama:...Code/misc/foo$

Rebol - 114 * 0.9 * 0.5 = 51.3

do b:[d: copy %./ repeat n do input[mkdir repend d[n"/"]]write join d s: system/options/script join"do b: "mold b]

Ungolfed:

do b: [
    d: copy %./
    repeat n do input [
        mkdir repend d [n "/"]
    ]
    write join d s: system/options/script join "do b: " mold b
]

Orijinal non-quine versiyonu - 90 * 0.9 = 81

d: %./ repeat n do input[mkdir repend d[n"/"]write join d s: system/options/script read s]

Ungolfed:

d: %./
repeat n do input [
    mkdir repend d [n "/"]
]
write join d s: system/options/script read s

Bash 167 * 0.5 * 0.9 = 75.15

@ Es1024'ün büyük cevabından yoğun bir şekilde borçlanmak , ancak bu gerçek bir kınadır, bu yüzden her iki bonus için de yeterlidir.

b=\' c=\\ a='d=`seq -s/ $1`;mkdir -p $d;echo b=$c$b c=$c$c a=$b$a$b>>$d/$0;echo $a>>$d/$0'
d=`seq -s/ $1`;mkdir -p $d;echo b=$c$b c=$c$c a=$b$a$b>>$d/$0;echo $a>>$d/$0

Ayrıca, buradan kabuk quine teknikleri .

AutoIt3, 106 * 0,9 = 95,4 bayt

Biraz uzun ama bu uzun fonksiyon / değişken isimleri ile yardımcı olamaz:

$f = @WorkingDir
For $i = 1 To $CmdLine[1]
    $f &= "\" & $i
Next
DirCreate($f)
FileCopy(@ScriptFullPath, $f)

Basitçe ile diyoruz <script/.exe name> <depth>mesela. script.exe 5.
Herhangi bir dizin için çalışacaktır; belki de dosya sisteminizin üstesinden gelebilir. : D

Nasıl çalışır:

Dizini bir dizeye ekleyen basit bir döngü. Ardından dizin (ve tüm üst dizinler de) oluşturulur ve dosya kendisini bu dizine kopyalar.

Node.js, 136 133 * 0.9 * 0.5 = 61.2 59.85

r=require,f=r('fs'),p=__dirname;while(i=process.argv[2]--)f.mkdirSync(p+='/'+i);f.linkSync(a=__filename,p+'/'+r('path').basename(a))

fs.linkSyncsabit bir bağlantı oluşturan POSIX arama bağlantısıyla eşleşir . Geçersiz bir argüman programın çökmesine neden olur.

J, 82 * 0.9 = 73.8

Bu çoğunlukla en çok oy alan cevabın bir limanı.

exit (1!:1[1{A) 1!:2 <] (s,'/',>1{A)[fpathcreate s=:' /'charsub":1+i.".>{:A=:ARGV

skittish.ijsİstediğiniz veya istediğiniz gibi kaydedin ve sürümünüzü kullanarak komut satırından çağırın jconsole. Benimki şuna bağlandı jc:

$ jc skittish.ijs 20
$ ls 1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/20/skittish.ijs 
1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/20/skittish.ijs

Zsh , 55 * 0.9 * 0.5 = 24.75 bayt

Gözlerimi uzun süredir bu meydan okumada gördüm, ancak Zsh'da mkdirve gibi harici programları çağırmadan tamamlamak istedim ln(aksi takdirde bash çözümü ile aynı olurdu). Anlaşılan, Zsh bu programların kendi sürümlerini sağlayabilir!

zmodload zsh/files
mkdir -p ${(j:/:):-{1..$1}}
ln $0 $_

Çevrimiçi deneyin!