Zielsetzung

Sie müssen ein Programm schreiben, das eine Ganzzahl nals Eingabe empfängt (von der Befehlszeile) und sich selbst (das Programm) nVerzeichnisse im Verzeichnisbaum einbettet . Beispiel mit n=5:

Die Ordnernamen können beliebig sein. Die einzigen Voraussetzungen sind, dass die Tiefe korrekt ist und dass das Programm an seiner neuen Stelle im Verzeichnisbaum erneut ausgeführt werden kann und dass die neue Quelldatei denselben Dateinamen behält.

Boni:

• Punktzahl * 0.9 Wenn die Verzeichnisse alle einen anderen Namen haben (muss mindestens bis zur Tiefe 1 000 000 zutreffen)
• Punktzahl * 0,5 Wenn Sie die Quelldatei nicht direkt oder indirekt lesen, verschieben oder auf den Quellcode des Programms zugreifen

Bash, 30 × 0,9 × 0,5 = 13,5

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

Nimmt Tiefe als erstes Argument. Erstellt eine feste Verknüpfung zu sich selbst in der folgenden Verzeichnisstruktur:

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

Das Skript kann dann am neuen Speicherort ausgeführt werden, auch wenn rmes mit dem alten Skript ausgeführt wird.

Erläuterung:

seq -s/ $1gibt die Zahlen von 1 bis $1(das erste Argument) aus, getrennt durch einen Schrägstrich.

mkdir -p `seq -s` $1erstellt das von angegebene Verzeichnis seq, -pwobei alle Zwischenverzeichnisse erstellt werden.

ln $0 $_ Erstellen Sie eine feste Verknüpfung zum aktuell ausgeführten Skript im neu erstellten Verzeichnis.

Alt (30 * 0,9 = 27):

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

Beispiellauf (mit ln):

$ 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

Vielen Dank an @DigitalTrauma für den Vorschlag zum Ersetzen $(..)durch`..`

Danke an @hjk für den Vorschlag ln.

C 225 × 0,9 × 0,5 = 101,25

Meine Lösung in C:

$ 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)))

Hier in etwas besser lesbarer Form:

#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)))

Die Prüfung, ob es funktioniert:

$ 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

Im Quellcode steckt höchstwahrscheinlich viel Potenzial zum Golfen.

Charge - 48 × 0,9 = 43,2

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

Dieses Skript erstellt einfach ein neues Verzeichnis und verschiebt die Quelldatei in dieses Verzeichnis 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

Beispiel:

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
]

Ursprüngliche nicht quine Version - 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

Ich habe mir viel von der tollen Antwort von @ es1024 geliehen , aber diese ist eine echte Quine, daher ist sie für beide Boni qualifiziert.

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

Auch Muschelquintechniken von hier aus .

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

Ein bisschen lang, aber ich kann nicht mit diesen langen Funktions- / Variablennamen helfen:

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

Rufen Sie es einfach mit <script/.exe name> <depth>zB. script.exe 5.
Es funktioniert für eine beliebige Anzahl von Verzeichnissen. Vielleicht sogar mehr, als Ihr Dateisystem verarbeiten kann. : D

Wie es funktioniert:

Es ist nur eine einfache Schleife, die den Index zu einer Zeichenfolge hinzufügt. Dann wird das Verzeichnis (und auch alle übergeordneten Verzeichnisse) erstellt und die Datei kopiert sich in dieses Verzeichnis.

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.linkSyncKarten zu dem POSIX Anruf Link , der eine feste Verbindung schafft. Ein ungültiges Argument führt zum Absturz des Programms.

J 82 * 0,9 = 73,8

Dies ist größtenteils ein Port der am häufigsten gewählten Antwort.

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

Speichern skittish.ijsSie die Datei wie gewünscht und rufen Sie sie über die Befehlszeile mit Ihrer Version von auf jconsole. Meins ist verbunden mit 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 Bytes

Ich hatte diese Herausforderung lange im Auge, aber ich wollte sie in Zsh abschließen, ohne externe Programme wie mkdirund aufzurufen ln(ansonsten wäre sie identisch mit der Bash-Lösung). Es stellte sich heraus, dass Zsh seine eigenen Versionen dieser Programme zur Verfügung stellen kann!

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

Probieren Sie es online!