Trong một tệp duy nhất, viết chương trình không yêu cầu đầu vào và không tạo đầu ra. Khi chạy, nó sẽ đảo ngược tên của tệp mà nó được chứa trong đó, bất kể tên đó là gì , mà không làm thay đổi mã hoặc tạo ra các tác dụng phụ kéo dài khác.

Bất kỳ cách nào để đạt được điều này là tốt. Điều quan trọng là một khi chương trình được chạy, thay đổi duy nhất là tên tệp của nó đã bị đảo ngược. ví dụ: không có tập tin mới nào trong thư mục

Chạy chương trình một lần nữa nên đảo ngược tên trở lại. Thật vậy, chương trình sẽ có thể được chạy tùy ý nhiều lần.

Đối với mục đích của thách thức này:

• Bạn có thể giả sử tên tệp luôn là chuỗi các chữ cái viết thường (az) dài từ 1 đến 127 ký tự. (Nếu ngôn ngữ của bạn yêu cầu các tệp phải có tiện ích mở rộng để chạy thì chỉ cần đảo ngược phần trước phần mở rộng, ví dụ mycode.bat→ edocym.bat.)
• Bạn có thể giả sử tệp mã nằm trong một thư mục để nó không có xung đột đặt tên (ngoại trừ chính nó).
• Bạn có thể không cho rằng tên tệp không phải là một bảng màu, tức là giống nhau khi bị đảo ngược. Tên tập tin là palindromes nên hoạt động tốt như những tên không.
• Bạn có thể đọc nội dung hoặc siêu dữ liệu của tệp. Không có hạn chế quine ở đây.
• Bạn có thể cho rằng chương trình của bạn sẽ được chạy trên một hệ điều hành phổ biến, hiện đại (cụ thể là Windows / Linux), vì không phải tất cả các hệ vỏ đều có cùng một bộ lệnh.

Như một ví dụ cụ thể, giả sử bạn có một chương trình Python trong một tệp được gọi mycodetrong thư mục riêng của nó. Đang chạy

python mycode

trong thiết bị đầu cuối sẽ dẫn đến tên tệp được đảo ngược thành edocym. Tệp edocymphải ở một mình trong thư mục của nó - không có tệp nào được đặt tên mycodenữa. Đang chạy

python edocym

sẽ đảo ngược tên trở lại mycode, tại đó quá trình có thể được lặp lại vô thời hạn.

Nếu cùng một tệp Python đã được đổi tên racecar(không thay đổi mã) và sau đó chạy

python racecar

không có gì thay đổi rõ rệt vì "racecar" là một bảng màu. Điều đó cũng tương tự nếu tên tệp là, nói, ahoặc xx.

Mã ngắn nhất tính bằng byte thắng. Tiebreaker là câu trả lời bình chọn cao hơn.

Bash + tiện ích linux phổ biến, 13 byte

Phương pháp của tôi tương tự như @ DigitalTrauma nhưng ngắn hơn một chút do đường ống có ls:

mv * `ls|rev`

C #, 153 byte

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

OO rất tuyệt và cho đến khi bạn có một biến được xác định:

System.Reflection.Assugging.GetExecutingAssugging (). ManifestModule.Name

điều đó chỉ có nghĩa

Bash + tiện ích linux phổ biến, 15

• Lưu 1 byte nhờ @Dennis

Giả sử rằng tập lệnh nằm trong một thư mục của chính nó.

mv * `rev<<<$0`

Julia, 51 byte

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

Chương trình này phải là hệ điều hành bất khả tri, mặc dù nó chỉ được thử nghiệm trên OS X.

Ung dung:

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

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

Cảm ơn @Suever đã xóa 4 byte và để thử nghiệm!

Đã thử nghiệm trên OS X El Capitan và Debian Jessie, cả hai đều có phiên bản Matlab R2014a.

Trên Windows 'f'cần có cờ ( e='.m';x=mfilename;movefile([x e],[flip(x) e]),'f') để thay đổi tên tệp trong khi tệp đang được sử dụng.

Làm thế nào nó hoạt động

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 byte

File.rename$0,$0.reverse

Khá tự giải thích. ( $0là tên của tệp đang được thực thi.)

Chạy với ruby whatevermột thư mục làm việc của thư mục chứa tệp.

Mẻ, 109 byte

@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

Lưu ý 1: Các tệp hàng loạt phải kết thúc bằng .bat; giả định rằng tệp bó được thực thi bằng tên của nó mà không có phần mở rộng và .batkhông được đảo ngược. Ví dụ, reversesẽ cố gắng đổi tên reverse.batthành esrever.bat.
Lưu ý 2: CMD.EXElỗi sau khi đổi tên tệp bó. ( COMMAND.COMsẽ không, ngoại trừ việc nó không có khả năng thao tác chuỗi ở vị trí đầu tiên.)

Chỉnh sửa: Đã lưu 2 byte bằng cách sử dụng đảm bảo rằng tên tệp là chữ cái (dựa trên nhận xét của @ CᴏɴᴏʀO'Bʀɪᴇɴ).

C, 102 byte

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

Phá vỡ:

                            // 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

Cuối cùng, một thử thách mà C không (khá vô vọng) không cạnh tranh!

Nếu chúng ta lấy "Bạn có thể giả định thư mục làm việc của vỏ sẽ là thư mục tập tin là trong" để có nghĩa là chương trình sẽ luôn luôn được gọi là ./myexecutable, chúng ta có thể đơn giản hóa *n=strrchr(*v,47)để *n=*v+1tiết kiệm 10 ký tự, nhưng điều này không phải là hoàn toàn hợp lệ ( nó có thể được gọi là ././myexecutable, ví dụ).

Ngoài ra nếu bạn muốn giữ phần mở rộng tệp (ví dụ: ".out"), bạn có thể thay đổi *t=strchr(b,0)thành *t=strrchr(b,46), tốn 2 byte. Không yêu cầu mặc dù.

Vitsy + * sh, 15 byte

iG:`?r.iG' mr',

Giải trình

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.

Lưu ý rằng nội dung gửi này phải sử dụng phiên bản Vitsy không an toàn (không thể thực hiện trên Dùng thử trực tuyến!)

Perl 5, 18 byte

Một chút giống như Ruby (chạy perl nameofscript):

rename$0,reverse$0

Đưa một đường dẫn có thể vào tài khoản là xấu hơn (47 byte)

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

V , 29 26 byte

:se ri
izyw:!mv z "
dd

Vì cái này chứa các dấu vết không thể in được, đây là một bãi chứa hex:

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

Lưu ý: điều này sẽ không chạy trên v.tryitonline.net vì TIO không cho phép truy cập tệp.

Giải trình:

: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 byte

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

-Alex.A đã xóa 1 byte.

-Digital Trauma cho tôi thấy os.rename () đã lấy đi 62 byte.

-muddyfish đã loại bỏ 7 byte.

PHP 84, 70, 54 byte

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

PowerShell, 39 byte

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

Python 2 , 41 byte

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

Bản demo trên Bash.

Python thực sự không quan tâm đến phần mở rộng tệp, vì vậy chúng ta chỉ có thể lật toàn bộ tên tệp.

PHP, 31 byte

Tôi đoán không có gì nhiều để giải thích:

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

Perl 6 ,  70   27 byte

Nếu nó cần để làm việc trong một thư mục làm việc khác, bạn sẽ cần một cái gì đó như thế này:

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

Vì thư mục làm việc sẽ là cùng thư mục với chương trình, nó có thể được đơn giản hóa thành:

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

Giải trình:

$_ = $*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 (Nút), 108 104 68 byte

36 byte được lưu, nhờ có Downgoat!

Phiên bản Windows:

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

Phiên bản khác:

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

JavaScript ES6 (Node.js) 70 byte

Không có Regex Yay!

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

Bất kỳ trợ giúp được đánh giá cao

PowerShell v4 +, 68 byte

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

Chỉ hoạt động vì tập lệnh được đảm bảo nằm trong một thư mục. Thực hiện một ls(bí danh cho Get-ChildItem) và lấy .Name(các) đối tượng kết quả. Chúng tôi lưu trữ nó trong $cvà sau -splitđó vào khoảng thời gian theo nghĩa đen để có được tên tệp và phần mở rộng, và lưu trữ chúng trong $avà $b, tương ứng.

Tiếp theo là lệnh mv(bí danh cho Move-Item), nơi chúng ta đang di chuyển $cđến $a(đảo ngược) .$b.

Thí dụ

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 hoặc 3.4+), 61 49 byte

Tôi tin rằng điều này gần với giải pháp Python tối ưu:

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

Lấy cảm hứng từ s4b3r6câu trả lời của mình, nhưng sử dụng cắt danh sách thay vì đảo ngược và lưu __file__vào một biến để lưu byte khi sử dụng hai lần.

Lưu ý: Điều này giả định rằng tên tệp luôn luôn *.py. Một giải pháp chung chung hơn một chút có thể xử lý bất kỳ phần mở rộng tệp hai ký tự nào sẽ được sử dụng a[-3:]để thay thế ".py", với chi phí thêm 1 byte.

Cập nhật: Đã lưu 12 byte bằng cách sử dụng thủ thuật cắt danh sách a[-4::-1]để xóa phần mở rộng tệp, thay vì tách và sau đó đảo ngược với a.split(".")[0][::-1].

Powershell, 112 byte

Tôi sẽ không đánh bại các cmds unix, chỉ cần thêm hai xu cho vui :-)

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

PowerShell, 50 byte

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

Chỉ có một tệp, vì vậy mv *ký tự đại diện sẽ chỉ có một kết quả. Tên đích (ls).basenameliệt kê tất cả các tệp (bí danh cho 'dir'), gọi thuộc tính BaseName - và vì chỉ có một tệp, PowerShell sẽ giải nén mảng 1 mục thành một chuỗi. Lưu tên tệp đó vào $f, sau đó lập chỉ mục cho nó đếm ngược và -joincác ký tự đảo ngược sao lưu thành một chuỗi. Thêm .ps1hậu tố bắt buộc .

Tự động, 45 byte

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

Python 2.7, 68 byte

nhập os; a = __ tệp __; os.rename (a, a.split ("\\") [- 1] [: - 3] [:: - 1] + ". py")

Đây có lẽ là điều tốt nhất tôi có thể nhận được nó. Tôi chỉ chứng minh mình sai.

Python (2 & 3), 88 78 byte

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

Khai thác thực tế là tên tệp được đưa ra bởi sys.argv (vì thư mục làm việc là thư mục chứa tệp) và sử dụng os.rename. Khó chịu, đảo ngược trả về một iterator, vì vậy chúng ta phải sử dụng tham gia.

Chỉnh sửa: Đã lưu 10 byte bằng cách sử dụng __file__ thay vì sys.argv [0], như được đề xuất bởi @muddyfish cho @DigitalTrauma.

tcl, 42

file rename $argv0 [string reverse $argv0]

Visual Basic Script, 44 byte

WScript.Echo(StrReverse(WScript.ScriptName))

Ví dụ đầu ra cho tệp được gọi reverse.vbs(Chạy với cscript):

sbv.esrever

sfk , 83 byte

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

Hãy thử trực tuyến!

SmileBASIC 60 byte

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

Thay thế:

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