W jednym pliku napisz program, który nie wymaga danych wejściowych i nie generuje danych wyjściowych. Po uruchomieniu powinien odwrócić nazwę pliku, w którym się znajduje, bez względu na nazwę , bez zmiany kodu lub wywoływania innych trwałych skutków ubocznych.

Każdy sposób osiągnięcia tego jest w porządku. Liczy się tylko to, że po uruchomieniu programu jedyną trwałą zmianą jest odwrócenie nazwy pliku. np. żadne nowe pliki nie powinny znajdować się w katalogu.

Ponowne uruchomienie programu powinno odwrócić nazwę. Rzeczywiście, program powinien być w stanie być uruchamiany dowolnie wiele razy.

Na potrzeby tego wyzwania:

• Możesz założyć, że nazwy plików to zawsze ciągi małych liter (az) o długości od 1 do 127 znaków. (Jeśli twój język wymaga, aby pliki miały rozszerzenia do uruchomienia, po prostu odwróć część przed rozszerzeniem, np . mycode.bat→ edocym.bat).
• Możesz założyć, że plik kodu jest sam w katalogu, więc nie będzie miał konfliktów nazw (z wyjątkiem samego siebie).
• Być może nie zakładamy, że nazwa pliku nie jest palindrom, czyli tyle samo, gdy odwrócony. Nazwy plików, które są palindromami, powinny działać tak samo dobrze, jak te, które nie są.
• Możesz przeczytać zawartość pliku lub metadane. Brak Quine ograniczenia tutaj.
• Możesz założyć, że twój program będzie działał na określonym, nowoczesnym, powszechnym systemie operacyjnym (np. Windows / Linux), ponieważ nie wszystkie powłoki mają ten sam zestaw poleceń.

Jako konkretny przykład, powiedzmy, że masz program w języku Python w pliku o nazwie mycodew jego własnym katalogu. Bieganie

python mycode

w terminalu powinno spowodować odwrócenie nazwy pliku edocym. Plik edocympowinien być sam w swoim katalogu - żaden nazwany plik nie mycodepowinien już istnieć. Bieganie

python edocym

odwróci nazwę z powrotem do mycode, w którym to momencie proces można powtarzać w nieskończoność.

Jeśli nazwa tego samego pliku Python została zmieniona racecar(bez zmiany kodu), a następnie uruchom

python racecar

nic nie powinno się wyraźnie zmienić, ponieważ „samochód wyścigowy” to palindrom. To samo dotyczy, jeśli nazwa pliku to, powiedzmy, alub xx.

Najkrótszy kod w bajtach wygrywa. Tiebreaker jest wyżej głosowaną odpowiedzią.

Bash + wspólne narzędzia linux, 13 bajtów

Moja metoda jest podobna do @ DigitalTrauma, ale nieco krótsza ze względu na potok z ls:

mv * `ls|rev`

C #, 153 bajty

void f(){var x=System.Reflection.Assembly.GetExecutingAssembly().ManifestModule.Name;File.Move(x,new string(x.Reverse().ToArray()).Substring(4)+".exe");}

OO jest fajne i dopóki nie zdefiniujesz zmiennej:

System.Reflection.Assembly.GetExecutingAssembly (). ManifestModule.Name

to po prostu znaczy

Bash + wspólne narzędzia linux, 15

• 1 bajt zapisany dzięki @Dennis

Zakłada, że ​​skrypt jest sam w katalogu.

mv * `rev<<<$0`

Julia, 51 bajtów

d,f=splitdir(@__FILE__)
cd(d)do
mv(f,reverse(f))end

Ten program powinien być niezależny od systemu operacyjnego, chociaż był testowany tylko na OS X.

Nie golfowany:

# Get the directory and file name of the current source file
d, f = splitdir(@__FILE__)

# Change the working directory temporarily to d
cd(d) do
    # Overwrite the file with the reverse of its name
    mv(f, reverse(f))
end

MATLAB, 50 46 bajtów

e='.m';x=mfilename;movefile([x e],[flip(x) e])

Dzięki @Suever za usunięcie 4 bajtów i za testowanie!

Testowane na OS X El Capitan i Debian Jessie, oba z wersją Matlab R2014a.

W systemie Windows 'f'potrzebna jest flaga ( e='.m';x=mfilename;movefile([x e],[flip(x) e]),'f') do zmiany nazwy pliku podczas jego używania.

Jak to działa

e='.m';                       % Store file extension '.m' in variable `e`
x=mfilename;                  % Get name of file being run, without the extension
movefile([x e],[flip(x) e])   % Move (rename) file. `flip` is used for reversing the
                              % name without extension. [...] is (string) concatenation

Ruby, 24 bajty

File.rename$0,$0.reverse

Dość oczywiste. ( $0to nazwa wykonywanego pliku).

Uruchom z ruby whateverdziałającym katalogiem katalogu zawierającego plik.

Partia, 109 bajtów

@echo off
set f=%0
set r=
:l
set r=%f:~0,1%%r%
set f=%f:~1%
if not .%f%==. goto l
ren %0.bat %r%.bat

Uwaga 1: Pliki wsadowe muszą kończyć się na .bat; zakłada się, że plik wsadowy jest wykonywany według jego nazwy bez rozszerzenia i że .batnie można go odwrócić. Na przykład reversepróbowałby zmienić nazwę reverse.batna esrever.bat.
Uwaga 2: CMD.EXEbłędy występują po zmianie nazwy pliku wsadowego. ( COMMAND.COMnie, poza tym, że przede wszystkim nie jest w stanie manipulować łańcuchem znaków).

Edycja: Zapisano 2 bajty, używając gwarancji, że nazwa pliku jest alfabetyczna (na podstawie komentarza @ CᴏɴᴏʀO'Bʀɪᴇɴ).

C, 102 bajty

main(c,v)char**v;{char*b=strdup(*v),*n=strrchr(*v,47),*t=strchr(b,0);for(;*++n;*--t=*n);rename(*v,b);}

Awaria:

                            // No #include lines required (for GCC at least)
main(c,v)char**v;{          // K&R style function to save 2 bytes
    char*b=strdup(*v),      // Duplicate args[0] (script path)
        *n=strrchr(*v,47),  // Find last "/" in input
        *t=strchr(b,0);     // Go to end of output string
    for(;*++n;*--t=*n);     // Reverse input into output character-by-character
    rename(*v,b);           // Rename the file
}                           // Implicit return 0

Wreszcie wyzwanie, w którym C nie jest (tak beznadziejnie) niekonkurencyjne!

Jeśli weźmiemy „Można założyć, katalog roboczy powłoki będzie folder plik znajduje się” oznacza, że program będzie zawsze wywoływana jak ./myexecutablemożemy uprościć *n=strrchr(*v,47)aby *n=*v+1zapisać 10 znaków, ale to nie jest do końca poprawny ( można ././myexecutablena przykład wywołać ).

Również jeśli chcesz zachować rozszerzenie pliku (np. „.Out”), możesz zmienić *t=strchr(b,0)na *t=strrchr(b,46), kosztując 2 bajty. Nie jest to jednak wymagane.

Vitsy + * sh, 15 bajtów

iG:`?r.iG' mr',

Wyjaśnienie

iG:`?r.iG' mr',
i               Push -1 to the stack. (this assumes that no arguments are passed)
 G              Get the use name of the class specified by the top item of the
                stack. (-1 refers to the origin class, so this class)
  :             Duplicate stack and jump to it.
   `            Read a file with the current stack as its name, replacing the stack
                with the file's contents.
    ?           Shift one stack to the right.
     r          Reverse the current stack.
      .         Write a file with the name specified by the top stack and the
                contents as the second-to-top stack.
       iG       Get the name of the current class again.
         ' mr'  Push 'rm ' to the stack.
              , Execute the current stack as a command.

Pamiętaj, że w tym zgłoszeniu należy użyć niezabezpieczonej wersji Vitsy (nie można tego zrobić w Try It Online!)

Perl 5, 18 bajtów

Trochę jak Ruby (uruchom perl nameofscript):

rename$0,reverse$0

Biorąc pod uwagę możliwą ścieżkę, jest brzydsza (47 bajtów)

($a,$b)=$0=~/(.*\/)?(.*)/;rename$0,$a.reverse$b

V , 29 26 bajtów

:se ri
izyw:!mv z "
dd

Ponieważ zawiera to niedrukowalne, oto zrzut heksowy:

00000000: 3a73 6520 7269 0a69 127a 1b79 773a 216d  :se ri.i.z.yw:!m
00000010: 7620 127a 2012 220a 6464                 v .z .".dd

Uwaga: nie będzie działać na v.tryitonline.net, ponieważ TIO nie zezwala na dostęp do plików.

Wyjaśnienie:

:se ri            "Turn on 'reverse mode' (all text is inserted backwards)
i<C-r>z<esc>      "Enter the path to the file in reverse
yw                "Yank a word. This first word is the name we will save the new file as

"Run an "mv" in the terminal with the contents of register 'z' (the path to the file)
"And the contents of register '"' (the word we yanked)
:!mv <C-r>z <C-r>"

dd                "Delete a line so that we don't have any text printed.

Python 3, 105 bajtów

import os;a=__file__.split('\\')[::-1][0].split('.');os.rename('.'.join(a),'.'.join([a[0][::-1],a[1]]))

-Aleks.A usunięto 1 bajt.

-Digital Trauma pokazał mi os.rename (), który zabrał 62 bajty.

-muddyfish usunął 7 bajtów.

PHP, 84, 70, 54 bajty

rename($f=__FILE__,strrev(basename($f,$e='.php')).$e);

PowerShell, 39 bajtów

mi *(-join((ls).name)[-5..-999]+'.ps1')

Python 2 , 41 bajtów

import os;s=__file__;os.rename(s,s[::-1])

Demo na Bash.

Python naprawdę nie dba o rozszerzenie pliku, więc możemy po prostu przerzucić całą nazwę pliku.

PHP, 31 bajtów

Chyba nic wielkiego do wyjaśnienia:

rename($x=$argv[0],strrev($x));

Perl 6 ,  70   27 bajtów

Gdyby musiał pracować w innym katalogu roboczym, potrzebujesz czegoś takiego:

$_=$*PROGRAM;.rename: .basename.flip.IO.absolute: .absolute.IO.dirname

Ponieważ katalog roboczy będzie tym samym katalogiem co program, można go uprościć po prostu:

$_=$*PROGRAM;.rename: .flip

Wyjaśnienie:

$_ = $*PROGRAM;  # IO::Path object

$_.rename:
    $_.basename
      .flip      # reverse characters
      .IO        # turn into an IO object (IO::Path)
      .absolute: # turn it into an absolute path Str in the following dir
        $_.absolute.IO.dirname

JavaScript (węzeł), 108 104 68 bajtów

36 bajtów zapisanych, dzięki Downgoat!

Wersja Windows:

require("fs").rename(F=__filename,F.split(/.*\\|/).reverse().join``)

Inna wersja:

require("fs").rename(F=__filename,F.split(/.*\/|/).reverse().join``)

JavaScript ES6 (Node.js) 70 bajtów

No Regex Yay!

require("fs").rename(a=__filename,[...a].reverse().join``.split`/`[0])

Każda pomoc jest mile widziana

PowerShell v4 +, 68 bajtów

$a,$b=($c=(ls).Name)-split'\.';mv $c "$(-join($a[$a.length..0])).$b"

Działa tylko, ponieważ skrypt ma gwarancję, że sam znajdzie się w katalogu. Wykonuje ls(alias dla Get-ChildItem) i pobiera .Namewynikowe obiekty. Przechowujemy to w, $ca następnie -splitw dosłownym okresie, aby uzyskać nazwę pliku i rozszerzenie oraz przechowywać je odpowiednio w $ai $b.

Dalej jest polecenie mv(alias dla Move-Item), w którym przechodzimy $cdo $a(odwróconego) .$b.

Przykład

PS C:\Tools\Scripts\golfing\reverse> ls

    Directory: C:\Tools\Scripts\golfing\reverse

Mode                LastWriteTime     Length Name
----                -------------     ------ ----
-a---         6/13/2016   7:58 AM         88 reverse.ps1

PS C:\Tools\Scripts\golfing\reverse> .\reverse.ps1

PS C:\Tools\Scripts\golfing\reverse> ls

    Directory: C:\Tools\Scripts\golfing\reverse

Mode                LastWriteTime     Length Name
----                -------------     ------ ----
-a---         6/13/2016   7:58 AM         88 esrever.ps1

Python (2.7 lub 3.4+), 61 49 bajtów

Uważam, że jest to zbliżone do optymalnego rozwiązania Python:

import os;a=__file__;os.rename(a,a[-4::-1]+".py")

Zainspirowany s4b3r6odpowiedzią, ale używa wycinania list zamiast odwrotnego i zapisuje __file__zmienną w celu zapisania bajtów przy dwukrotnym użyciu.

Uwaga: Zakłada się, że nazwa pliku jest zawsze *.py. Nieco bardziej ogólnym rozwiązaniem, które może obsłużyć dowolne dwuznakowe rozszerzenie pliku, byłoby a[-3:]zastąpienie ".py"go kosztem 1 dodatkowego bajtu.

Aktualizacja: Zapisano 12 bajtów, używając sztuczki wycinania list, a[-4::-1]aby usunąć rozszerzenie pliku, zamiast dzielić, a następnie cofać a.split(".")[0][::-1].

PowerShell, 112 bajtów

Nie zamierzam pobić cmdów unixowych, dodając tylko dwa pensy dla zabawy :-)

gci * | % { $n=($_.basename[-1..-(($_.basename).length)] -join “”)+$_.Extension; mv -Path $_.Fullname -Dest $n }

PowerShell, 50 bajtów

mv *(-join($f=(ls).BaseName)[$f.Length..0]+'.ps1')

Jest tylko jeden plik, więc mv *symbol wieloznaczny powłoki będzie miał tylko jeden wynik. Nazwą docelową jest (ls).basenamelista wszystkich plików (alias „dir”), wywoływana jest właściwość BaseName - a ponieważ jest tylko jeden plik, PowerShell rozpakuje tablicę 1-elementową w ciąg. Zapisz nazwę pliku $f, a następnie zindeksuj odliczanie, a -joinodwrócone znaki z powrotem w łańcuch. Dodaj obowiązkowy .ps1sufiks.

AutoIt, 45 bajtów

$a=@ScriptName
FileMove($a,StringReverse($a))

Python 2.7, 68 bajtów

import os; a = __ plik __; os.rename (a, a.split ("\\") [- 1] [: - 3] [:: - 1] + ". py")

To chyba najlepsze, co mogę dostać. Właśnie udowodniłem, że się mylę.

Python (2 i 3), 88 78 bajtów

import os;os.rename(__file__,''.join(reversed(__file__.split(".")[0]))+".py"))

Wykorzystuje fakt, że nazwa pliku jest podawana przez sys.argv (ponieważ katalog roboczy to folder, w którym znajduje się plik) i korzysta z os.rename. Irytujące, odwrócone zwraca iterator, więc musimy użyć łączyć.

Edycja: Zapisano 10 bajtów, używając __plik___ zamiast sys.argv [0], jak sugeruje @muddyfish dla @DigitalTrauma.

tcl, 42

file rename $argv0 [string reverse $argv0]

Skrypt Visual Basic, 44 bajtów

WScript.Echo(StrReverse(WScript.ScriptName))

Przykładowe dane wyjściowe dla pliku o nazwie reverse.vbs(Uruchom z cscript):

sbv.esrever

sfk , 83 bajty

list -maxfiles=1 . +setvar n +getvar n +swap +setvar m +ren -var . /#(n)/#(m)/ -yes

Wypróbuj online!

SmileBASIC 60 bajtów

P$=PRGNAME$()FOR I=1-LEN(P$)TO.Q$=Q$+P$[-I]NEXT
RENAME P$,Q$

Alternatywny:

P$=PRGNAME$()T$=P$*1WHILE""<T$Q$=Q$+POP(T$)WEND
RENAME P$,Q$