นี่คือคำถามที่รหัสกอล์ฟ คุณต้องนำเนื้อหาของไฟล์สองไฟล์แยกกัน (i.txt และ o.txt) และสลับไฟล์ คุณสามารถสร้างไฟล์ที่สามเพื่อช่วยให้คุณมีกระบวนการ แต่มีโปรแกรมของคุณลบมันหลังจากที่เนื้อหาของไฟล์จะถูกสลับ อนุญาตให้เปลี่ยนชื่อไฟล์ได้อีกครั้ง

โปรแกรมจะต้องทำงานกับเนื้อหาไฟล์ใด ๆ

รหัสที่สั้นที่สุดจะชนะการส่งที่มีสิทธิ์ทั้งหมดจะได้รับการโหวต

zsh, 20

<i*>t;<o*>i*;mv t o*

Python, 77

import os;t='.txt';r,i,o,x=[os.rename,'i'+t,'o'+t,'1'+t];r(i,x);r(o,i);r(x,o)

Python 65

import os;t='.txt'
for a,b in zip('iox','xio'):os.rename(a+t,b+t)

Python 63

import os;t='.txt'
for a,b in 'ix','oi','xo':os.rename(a+t,b+t)

PHP, 68

<?$r=rename;$t='.txt';$r("i$t","x");$r("o$t","i$t");$r("x","o$t");?>

ไฟล์ Windows Batch, 42

move i.txt x&move o.txt i.txt&move x o.txt

ไฟล์ Windows Batch (args), 30

move %1 x&move %2 %1&move x %2

สองแอนเซอร์ที่ใช้bash 52 และ 62 ตัวอักษร

shell: diff + patch (+ tee + sed ... ) 52

อาจจะไม่สั้นกว่านี้ แต่ฉันพบว่ามันสนุก (และไม่มีการใช้ไฟล์ชั่วคราว ):

diff -u [io]*|tee >(patch -r -)|sed 1s/i/o/|patch -R

ที่มีเนื้อหาจะสลับและไฟล์ที่มีการแก้ไขในสถานที่ :

วิ่งตัวอย่าง

swapContent() { diff -u $1 $2|tee >(patch -r -)|sed 1s/$1/$2/|patch -R ;}

while read page file ;do man -Pcol\ -b $page >$file.txt;done <<<$'man i\nbash o'
printf "%s %8d  %s\n" $(join -j 2 <(stat -c '%s %n' [io]*) <(md5sum [io]*))
swapContent [io]*
printf "%s %8d  %s\n" $(join -j 2 <(stat -c '%s %n' [io]*) <(md5sum [io]*))

สามารถผลิตสิ่งที่ชอบ:

i.txt    46007  1da1f7533e0eab1e97cce97bb7ca1d3b
o.txt   321071  7dcd230890faf4ef848d4745eda14407
patching file o.txt
i.txt   321071  7dcd230890faf4ef848d4745eda14407
o.txt    46007  1da1f7533e0eab1e97cce97bb7ca1d3b

ใช้ xargs เพื่อทำให้ mvคำร้องของ่ายขึ้น

ไม่ตลก แต่ก็ดีอยู่ดี

set -- {i,o}.txt t&&eval 'xargs -n2 mv<<<"' \${1,3,2,1,3,2} \"

PHP, 89

ฉันคิดว่าฉันจะให้มันยิง

<?php $f1='f1.txt';$f2='f2.txt';$ft='ft.txt';copy($f1,$ft);copy($f2,$f1);rename($ft,$f2);

เวอร์ชันที่ไม่ถูกปรับแต่ง:

<?php
$f1 = 'f1.txt';
$f2 = 'f2.txt';
$ft = 'ft.txt';

copy($f1, $ft);
copy($f2, $f1);
rename($ft, $f2);

เห็นได้ชัดว่าฉันเอา 2 คำตอบของที่นี่และรวมพวกเขา .. โอ้ดี

Ruby, 72 ไบต์

ว้าว! รหัสกอล์ฟ Ruby! ฉันไม่คิดว่าเคยลองมาก่อน!

แม้ว่าในความเป็นจริงทั้งหมดนี้ต้องใช้ทางลัด Ruby ที่ดีและรูปแบบคู่ที่ฉันพบ มันเป็นสนามกอล์ฟครั้งแรกของฉันและสนุกมากที่จะทำ โดยไม่ต้องกังวลใจต่อไปนี้เป็นรหัส golfed:

3.times{|x|x*=2;t=".txt";a=([?i,?a,?o]*2);File.rename(a[x]+t,a[x+1]+t)}

และเวอร์ชันที่ไม่ดี

3.times do |x|
    x = x * 2
    t=".txt"
    a=([?i,?a,?o]*2)
    File.rename(a[x]+t, a[x+1]+t)}
end

ปัจจัยสำคัญในการนี้คือพารามิเตอร์ที่ส่งผ่านไปยังสิ่งFile.renameนี้คือ:

File.rename "i.txt", "a.txt"
File.rename "o.txt", "i.txt"
File.rename "a.txt", "o.txt"

หวังว่านี่จะไม่สมเหตุสมผลเลย!

Powershell, 44 49 ไบต์

$t='.txt'
ren i$t a$t -fo
ren o$t i$t
ren a$t o$t

ที่renเป็นนามแฝงสำหรับเปลี่ยนชื่อรายการ a.txtสคริปต์การใช้งานและลบไฟล์ที่สาม

ทับทิม

i1="i.txt"
i2="o.txt"
c1=IO.readlines(i2)
c2=IO.readlines(i1)
File.open(i1){|x|x.puts(c1)}
File.open(i2){|x|x.puts(c2)}

ฉบับย่อ:

a=["i.txt","o.txt"]
(0..1).each{|x|b[x]=IO.readlines(a[x])*"\n"}
a.reverse!
(0..1).each{|x|IO.write(a[x],b[x])}

ไม่ใช่สั้นที่สุด แต่ง่ายมากและอ่านง่าย นอกจากนี้ไม่มีไฟล์กลาง RAM เท่านั้น

PHP

$f1 = 'file1.txt';
$f2 = 'file2.txt';

$f1contents = file_get_contents ($f1);
$f2contents = file_get_contents ($f2);

file_put_contents($f1, $f2contents);
file_put_contents($f2, $f1contents);

เชลล์สคริปต์ 24

ใช้งานได้ใน Bash และอาจเป็นหอยส่วนใหญ่ ส่งผ่านสองชื่อไฟล์ของคุณเป็นพารามิเตอร์

mv $1 ੴ;mv $2 $1;mv ੴ $2

หากคุณต้องการชื่อไฟล์คงที่นี้จะทำเพื่อโทษ 12 ถ่าน:

mv i.txt ੴ;mv o.txt i.txt;mv ੴ o.txt

งูหลาม:

import os
l,e='i_o'*2,'.txt'
for x,y in zip(l,l[1:])[::2]:
 os.rename(x+e,y+e)

ไฟล์ Windows Batch (48)

type i.txt>a&type o.txt>i.txt&type a>o.txt&del a

ฉันลืมเกี่ยวกับคำสั่งย้ายเมื่อฉันเขียนสิ่งนี้ ...

C 162

Golfed: ใช้ t.txt เป็นไฟล์ tmp และเปลี่ยนชื่อจากนั้นลบ t.txt

#include <stdio.h>
#define R(x,y) rename(x,y)
#define X(x) remove(x)
int main(){char *i="i.txt",*o="o.txt",*t="t.txt";R(i,t);X(i);R(o,i);R(t,o);X(t);return 0;}

แก้ไข: ลบ 2 ช่องว่าง

PHP - 172

คำตอบของ @ EisaAdil รุ่นที่ตีกอล์ฟ

$f1='file1.txt';$f2='file2.txt';$f1contents=file_get_contents($f1);$f2contents=file_get_contents($f2);file_put_contents($f1,$f2contents);file_put_contents($f2,$f1contents);

Rebol - 46 (เปลี่ยนชื่อไฟล์) หรือ 55 (เนื้อหา r / w)

เปลี่ยนชื่อไฟล์ (ใช้tเป็นไฟล์ชั่วคราว):

r: :rename 
r i: %i.txt %t
r o: %o.txt i
r %t o

อ่านแล้วเขียนเนื้อหาไฟล์:

a: read i: %i.txt
b: read o: %o.txt
write o a 
write i b

PHP, 45

<?php
copy('i','t');copy('o','i');rename('t','o');

ยังไม่ถึง PHP แต่สั้นที่สุด

Groovy - 99 ตัวอักษร

นี่คือความพยายามของฉันด้วย Groovy 2.2.1 ฉันพยายามทำโดยไม่เปลี่ยนชื่อ:

f={new File(it+".txt")}
w={x,y->x.withWriter{it.write y}}
i=f "i"
o=f "o"
t=i.text
w i,o.text
w o,t

Ungolfed:

file = { new File(it+".txt") }
writeTextToFile = { x,y -> x.withWriter{it.write y} }

iFile = file("i")
oFile = file("o")

iText = iFile.text
writeTextToFile (iFile,oFile.text)
writeTextToFile (oFile,iText)

VBA (148 ... 132) และ (126 ... 110)

การเปลี่ยนชื่อไฟล์ temp ในไดรฟ์ c: \ ความพยายามครั้งแรกที่สนามกอล์ฟ:

Sub s():Set f=CreateObject("Scripting.FileSystemObject"):i="c:\i.txt":t="c:\t":f.MoveFile i,t:f.MoveFile "c:\o.txt",i:Kill t:End Sub

หากมีการอ้างอิง scrrun.dll อยู่แล้วสามารถลดระดับลงเหลือ 126 ... 110

Sub s():Set f=new FileSystemObject:i="c:\i.txt":t="c:\t":f.MoveFile i,t:f.MoveFile "c:\o.txt",i:Kill t:End Sub

C: 65 ตัวอักษร

#define r(a,b)rename(#a".txt",#b".txt");
main(){r(i,)r(o,i)r(,o)}

ทางออกที่ค่อนข้างง่ายใน C ที่ทำงานได้ มันใช้ชื่อชั่วคราว ( .txt) สำหรับหนึ่งในไฟล์ก่อนที่จะให้ชื่อใหม่ที่เหมาะสม

Ungolfed (โปรดสังเกตว่าการเน้นไวยากรณ์ล้มเหลวในการกำหนดข้อผิดพลาดได้ถูกค้นพบ!):

#include <stdio.h>

#define r(a, b) rename(#a ".txt", #b ".txt");

int main()
{
    r(i,  ) // rename("i.txt",  ".txt");
    r(o, i) // rename("o.txt", "i.txt");
    r( , o) // rename( ".txt", "o.txt");

    return 0;
}

Perl, 120 ไบต์ (เนื้อหาการแลกเปลี่ยนโดยไม่เปลี่ยนชื่อไฟล์)

use open IO,':bytes';undef$/;open I,"<i.txt";$I=<I>;open I,"<o.txt";open O,">i.txt";print O<I>;open O,">o.txt";print O$I

เนื้อหาไฟล์ถูกใส่ในหน่วยความจำและเขียนกลับไปยังไฟล์อื่น ดังนั้นi.txtและo.txtจะต้องพอดีกับหน่วยความจำ

เนื่องจากเนื้อหาของแฟ้มมีการแลกเปลี่ยนจริงเชื่อมโยงอย่างหนักมีการปรับปรุงโดยอัตโนมัติดู AJManfield ของความคิดเห็น

Ungolfed:

use open IO => ':bytes'; # binmode, not needed for Unix, but needed for Windows
undef $/;                # read whole file instead of lines
open I, "<i.txt";        # open i.txt for reading
$I = <I>;                # read i.txt
open I, "<o.txt";        # open o.txt for reading
open O, ">i.txt";        # open i.txt for writing
print O <I>;             # read o.txt and put the contents in i.txt
open O, ">o.txt";        # open o.txt for writing
print O $I;              # write o.txt with contents of old i.txt

Windows Batch ขนาด 39 ไบต์

ren i.txt x&ren o.txt i.txt&ren x o.txt

Lua ,71 70 ไบต์

_ENV=os t='.txt'i,o,r='i'..t,'o'..t,rename r(i,t)r(o,i)r(t,o)remove(t)

ลองออนไลน์!

กำหนดosห้องสมุดระบบปฏิบัติการเป็นตารางทั่วโลกเพื่อให้เราสามารถเขียนrenameและremoveแทนและos.rename os.remove(โดยบังเอิญนี่หมายความว่าตัวแปรหนึ่งตัวอักษรเป็นฟิลด์จริงในosตาราง) สร้างนามแฝงสั้น ๆos.renameเพื่อประหยัดพื้นที่ ตั้งค่าตัวแปรชื่อไฟล์โดยใช้'.txt'เป็นไฟล์ชั่วคราว ทำการเปลี่ยนชื่อและลบ

PHP, 52 ไบต์

php ของ AsksAnywayทันสมัยและเล่นกอล์ฟ:

($r=rename)(i.$e=".txt",x);$r(o.$e,i.$e);$r(x,o.$e);

php -nr '<code>'ทำงานด้วย

Tcl , 122 ไบต์

set A [read [open i.txt]]
puts [set i [open i.txt w]] [read [open o.txt]]
puts [set o [open o.txt w]] $A
close $i
close $o

ลองออนไลน์!

set A [read [set i [open i.txt r]]]
set B [read [set o [open o.txt r]]]
close $i
close $o
puts [set i [open i.txt w]] $B
puts [set o [open o.txt w]] $A
close $i
close $o

ลองออนไลน์!

SmileBASIC, 36 35 ไบต์

@L
RENAME@OI[2-I],@IO[I]I=I+1GOTO@L