โปรแกรมของคุณ:

คุณจะเขียนสองโปรแกรม (ทั้งในภาษาเดียวกัน) โปรแกรมหน่วยเก็บใช้สตริงจาก STDIN และเก็บไว้ที่ไหนสักแห่งถาวร (ดูด้านล่าง) แล้วออกโดยไม่มีข้อผิดพลาด โปรแกรมดึงข้อมูลไม่มีการป้อนข้อมูลดึงสายอักขระที่เก็บไว้และพิมพ์ลงใน STDOUT

วัตถุประสงค์ของการทดสอบความคงทน:

คุณควรจะสามารถเรียกใช้โปรแกรมจัดเก็บข้อมูลในเครื่องท้องถิ่นของคุณจากนั้นหมุนเวียนรอบเครื่องท้องถิ่นของคุณแล้วเรียกโปรแกรมเรียกคืนจากเครื่องท้องถิ่นของคุณ คุณสามารถซ่อนสตริงได้ตามต้องการ (แม้กระทั่งบนเว็บ) ตราบใดที่คุณผ่านการทดสอบการรีบูต

กรณีทดสอบ:

การจัดเก็บข้อมูลแล้วดึง:

echo foo | Store
Retrieve
foo

ร้านค้าซ้ำควรเขียนทับ (เช่นวิธี set ()):

echo foo | Store
echo bar | Store
Retrieve
bar

การเรียกคืนซ้ำแล้วซ้ำอีกเป็นวิธีที่ไม่ทำลาย (เช่นวิธี get ()):

echo foo | Store
Retrieve
foo
Retrieve
foo

ดึงข้อมูลก่อนการเรียกใช้หน่วยเก็บข้อมูลใด ๆ :

คุณไม่จำเป็นต้องกังวลเกี่ยวกับเรื่องนี้ โปรแกรมดึงข้อมูลของคุณสามารถสันนิษฐานได้ว่ามีการเรียกใช้โปรแกรมจัดเก็บข้อมูลในบางจุดในอดีต

ความยืดหยุ่นของอินพุต / เอาต์พุต

ผู้คนขอให้ฉันขยายสิ่งนี้จาก STDIN / STDOUT ที่เข้มงวดเป็นกฎ IO มาตรฐาน ฉันทำไม่ได้เพราะมันจะแนะนำช่องโหว่มากเกินไป ตัวเลือก IO มาตรฐานบางตัวมีอินพุตที่เก็บไว้ในวิธีถาวรเช่น "โปรแกรมอาจรับอินพุตจากไฟล์" ฉันต้องการที่จะมีความยืดหยุ่นมากกว่าแค่ STDIN และ STDOUT ที่เข้มงวด แต่ไม่เปิดประตูระบายน้ำ

จากเธรดกฎ IO มาตรฐานฉันเลือกสิ่งที่ไม่ทำลายความท้าทาย:

• โปรแกรมอาจรับอินพุตผ่าน GUI พร้อมต์และพร้อมท์รับคำสั่งหากคุณต้องการ

• โปรแกรมอาจแสดงผลโดยแสดงบนหน้าจอซึ่งรวมถึงกล่องโต้ตอบ GUI

• โปรแกรมอาจรับอินพุตผ่านอาร์กิวเมนต์บรรทัดคำสั่ง

• โปรแกรมอาจส่งออกไปยัง STDERRแต่ก็ยังไม่สามารถโยนข้อผิดพลาดได้จริง

หากคุณใช้ตัวเลือกจะต้องเป็นแบบโต้ตอบกับผู้ใช้ ผู้ใช้ไม่ควรทำงานอื่นนอกเหนือจากการป้อนข้อมูลไปยังโปรแกรมของคุณการพิมพ์ลงในพรอมต์ที่โปรแกรมของคุณให้หรือพิมพ์อินพุตเป็น command-line-arg ของโปรแกรมของคุณ ผู้ใช้ไม่ควรทำสิ่งใดนอกจากการเรียกใช้โปรแกรมเรียกคืนของคุณเพื่อดูผลลัพธ์ที่แสดงบนหน้าจอหรือส่งไปยัง STDOUT หรือ STDERR

สมมติฐานที่อนุญาต:

• โปรแกรมทั้งสองของคุณจะทำงานในไดเรกทอรีเดียวกัน
• โปรแกรมของคุณมีสิทธิ์อ่าน - เขียนสำหรับไดเรกทอรีนั้น
• ไฟล์ที่คุณสร้างจะรอดชีวิตจากการรีบูต (ไม่ใช่ใน temp dir)
• ขึ้นบรรทัดใหม่หนึ่งบรรทัดที่ไม่ได้เป็นส่วนหนึ่งของสตริง ไม่มีช่องว่างต่อท้ายอื่น ๆ

นี่คือโค้ดกอล์ฟและคะแนนของคุณคือผลรวมของจำนวนไบต์จากทั้งสองโปรแกรม

zsh, 4 ไบต์

Store: >f(อ่านจาก STDIN และเขียนไปยังไฟล์ที่เรียกว่าf)
Retrieve: <f(เขียนเนื้อหาของfไปยัง STDOUT)

TI-BASIC (Z80), 1 ไบต์ ?

Store:  (เพียงป้อนสตริง)
สืบค้น: Ans(byte 27)

แต่ถ้ามันไม่ถูกต้อง:

TI-BASIC (Z80), 7 6 ไบต์

-1 ขอบคุณจาคอบ

Store: Prompt Str0(bytes DD AA 09) การ
ดึงข้อมูล: disp Str0(bytes ED AA 09)

เบราว์เซอร์ JS, 44 ไบต์

ร้านค้า :

localStorage.a=prompt()

ดึงข้อมูล :

alert(localStorage.a)

POSIX เชลล์ sh / bash / ... 8 ไบต์

เก็บ:

dd>f

จะได้รับ:

dd<f

Python 3 , 46 ไบต์

เก็บ 45 ไบต์:

open(*'fw').write('print(%r)'%open(0).read())

fโปรแกรมเรียกถูกสร้างขึ้นโดยคำสั่งการจัดเก็บไฟล์ชื่อ ( 1 ไบต์สำหรับชื่อไฟล์ )

รุ่นที่ 16 ไบต์

COPY CON A
TYPE A

Powershell - 4 ไบต์

การจัดเก็บ:

ac

(ทางเลือกด้วยsc)

การแก้ไข

gc

แก้ไข: ฉันเพิ่งสังเกตเห็นว่าเอาต์พุตไม่ได้รับอนุญาตให้ป้อนข้อมูลผู้ใช้ใด ๆ ... ดังนั้นจึงกระโดดจาก 4 เป็น 6 หรือ 8 ไบต์

การจัดเก็บ:

ac f

(ทางเลือกsc f) สำหรับเวอร์ชัน 8 ไบต์

ac

(และระบุfเป็นพา ธ ) สำหรับเวอร์ชัน 6 ไบต์

การแก้ไข

gc f

สนิม 136 ไบต์

ร้านค้า (84 ไบต์)

use std::{fs::*,io::*};

||{let mut v=vec![];stdin().read_to_end(&mut v);write("a",v)}

ดึงข้อมูล (52 ไบต์)

||print!("{}",std::fs::read_to_string("a").unwrap())

กิตติกรรมประกาศ

• -1 ไบต์ขอบคุณEsolanging Fruit

ทุบตี, 12 11 10 ไบต์

เก็บ, 7 6 5 ไบต์

cat ->f# ไม่ต้องการ-stdin เป็นค่าเริ่มต้น

cat >f# ไม่จำเป็นต้องใช้พื้นที่>คั่นด้วย

cat>f

ดึง 5 ไบต์

cat f

HP 49G RPL, 48 ไบต์

วิธีบันทึก: :2: A DUP PURGE STO, 26.5 ไบต์

ในการกู้คืน: :2: A RCL, 21.5 ไบต์

หากเราสามารถทิ้งแบตเตอรี่สำรองไว้เราจะได้รับ:

HP 49G RPL, 0 ไบต์

วิธีบันทึก: , 0 ไบต์

ในการกู้คืน: , 0 ไบต์เนื่องจาก HP 49G ปล่อยให้กองไม่ถูกแตะต้องข้ามการรีบูต

APL (APLX) 5 ไบต์

ร้านค้า: ⍞⍈1
ดึงข้อมูล:⍇1

⍞ รับสายจาก stdin
⍈1 เขียนไปยังองค์ประกอบที่มีอยู่ต่อไปของหมายเลขไฟล์ 1

⍇1 อ่านองค์ประกอบแรก * สุดท้ายของหมายเลขไฟล์ 1

* เอกสารกล่าวว่าเป็นครั้งแรกแต่การทดลองแสดงให้เห็นว่าที่ผ่านมา

ทุบตี, 10 ไบต์ (ไม่แข่งขัน)

touch $@
ls

ชื่อไฟล์ Unix สามารถมีอักขระใด ๆ ยกเว้นNULและ/และชื่อของพวกเขาสามารถมีความยาวได้ไม่เกิน 255 ไบต์ดังนั้นสิ่งนี้จะสามารถเก็บเฉพาะสตริงที่มีความยาวสูงสุดเท่านั้น (พิจารณาว่าข้อ จำกัด ของสื่อจัดเก็บ) และที่ไม่มี '/ ในพวกเขา นั่นเป็นเหตุผลหนึ่งที่ทำให้ไม่สามารถแข่งขันได้อีกอย่างหนึ่งคือถือว่าไดเรกทอรีที่ใช้งานอยู่นั้นว่างเปล่า (หรือlsอนุญาตให้มีการส่งออกจากภายนอก) ฉันยังต้องการโพสต์สิ่งนี้เพราะมันเป็นวิธีที่ยอดเยี่ยมและไม่ชัดเจนในการจัดเก็บข้อมูล

อีกแบบในหลอดเลือดดำที่คล้ายกันซึ่งไม่มีความยาวและข้อ จำกัด ของอักขระเหมือนกันคือ:

35 33 ไบต์

mkdir -p $@
find|sed '$!d;s/..//'

สิ่งนี้จะช่วยให้/ตัวละครในสตริงและรองรับตัวละครอีกหลายตัว (ขึ้นอยู่กับการใช้งาน)

(-2 ไบต์ในการขอบคุณ @Cows นักต้มตุ๋น)

Python 3, 56 ไบต์

ร้านค้า (33 ไบต์)

open(*'aw').write(open(0).read())

ดึงข้อมูล (23 ไบต์)

print(open('a').read())

พิมพ์ด้วยบรรทัดใหม่ต่อท้าย

Japt 46 46ไบต์

^{-16 ไบต์ขอบคุณที่มีขนดก}

ครั้งแรกที่ฉันลองใช้ Japt JS eval บางครั้งอาจหงุดหงิด window.localStorageใช้เบราว์เซอร์

ร้านค้า (16 ไบต์)

Ox`lo¯lSÈSge.P=U

ดึงข้อมูล (14 ไบต์)

Ox`lo¯lSÈSge.P

Haskell, 46 ไบต์

ร้านค้า (26 ไบต์):

getContents>>=writeFile"t"

ดึงข้อมูล (20 ไบต์):

readFile"t">>=putStr

ทับทิม (26 ไบต์)

ชุด (16 ไบต์)

IO.write'a',gets

รับ (10 ไบต์)

IO.read'a'

MATLAB (30 ไบต์)

ตั้งค่า (22 ไบต์)

a=input('','s');save a

สามารถโกนทิ้งได้ 4 ไบต์โดยเปลี่ยนเป็นinput('')แต่จะต้องมีอินพุตในเครื่องหมายคำพูดเดี่ยว:'input string'

รับ (8 ไบต์)

load a;a

C (GCC), 98 ไบต์

ร้านค้า (46 ไบต์)

อินพุตคือผ่านอาร์กิวเมนต์บรรทัดคำสั่งแรก

main(c,v)char**v;{fputs(v[1],fopen("a","w"));}

ดึงข้อมูล (52 ไบต์)

c,d;r(){for(d=open("a",0);read(d,&c,1);)putchar(c);}

Unportability

• intกำหนดว่าประเภทตัวชี้หลายพอดี

กิตติกรรมประกาศ

• -2 ไบต์ต้องขอบคุณแมวป่า
• -10 ไบต์ขอบคุณPeter Cordes

APL (Dyalog Unicode)ขนาด 18 ไบต์

ร้านค้า: ⍞⎕NPUT⎕A 1 ลองออนไลน์!
ดึงข้อมูล: ⊃⎕NGET⎕A ลองออนไลน์!

⍞ รับสายจาก stdin
⎕NPUT วางไว้ในไฟล์พื้นเมืองที่เรียกว่า
⎕A ตัวอักษรตัวพิมพ์ใหญ่ 1 และเขียนทับหากไฟล์ที่มีอยู่

⊃ ส่วนแรก (ข้อมูลส่วนถัดไปคือการเข้ารหัสและประเภทการสิ้นสุดบรรทัด) ของการ
⎕NGET รับไฟล์เนทิฟ
⎕A ตัวอักษรตัวพิมพ์ใหญ่

R (27 ไบต์)

ร้านค้า (21 ไบต์)

x=readLines('stdin')

โหลด (6 ไบต์)

cat(x)

เพื่อให้สามารถใช้งานได้สคริปต์ตัวแรกจะต้องถูกเรียกใช้ด้วยตัวเลือกบรรทัดคำสั่ง--saveและตัวที่สองด้วย--restore(แม้ว่าในโหมดโต้ตอบนี้ไม่จำเป็น: ตัวเลือกเหล่านี้เป็นค่าเริ่มต้น)

สิ่งนี้อาจสั้นลงได้ถึง 7 ไบต์เพราะไม่ใช่ว่าข้อผิดพลาดใน R จะป้องกันไม่ให้อาร์กิวเมนต์เริ่มต้นreadLineทำงานในโหมดที่ไม่โต้ตอบ ในโหมดอินเทอร์แอกทีฟไม่จำเป็นและวิธีแก้ปัญหาจึงใช้เพียง20 ไบต์เท่านั้น

Java (JDK 10) , 204 ไบต์

คำเตือน:เขียนทับการตั้งค่าใด ๆ ที่โปรแกรมจาวาใด ๆ ได้จัดเก็บไว้สำหรับชื่อผู้ใช้ของคุณ!

ร้านค้า, 94 ไบต์:

interface S{static void main(String[]a){java.util.prefs.Preferences.userRoot().put("",a[0]);}}

ลองออนไลน์!

ดึงข้อมูล 110 ไบต์:

interface R{static void main(String[]a){System.out.print(java.util.prefs.Preferences.userRoot().get("",""));}}

ลองออนไลน์!

java S foo
java R
foo

นี้ทำงานโดยการป้อนข้อมูลเป็นหาเรื่องและเก็บไว้ในการตั้งค่าการใช้การเก็บข้อมูลสำรองไว้ให้โดยjava.util.prefs มันเขียนทับรูตโหนดของผู้ใช้เพื่อบันทึกหนึ่งไบต์ในการตั้งชื่อโหนด หากคุณต้องการทดสอบแบบไม่ทำลายระบบให้รันจากชื่อผู้ใช้แบบไม่มีการเปลี่ยนแปลงหรือเปลี่ยนรหัสจาก "" เป็นชื่อโหนด

C #, 157 ไบต์

ชุด 74 ไบต์:

class P{static void Main(string[]a){System.IO.File.WriteAllLines("a",a);}}

รับ 83 ไบต์:

class P{static void Main(){System.Console.Write(System.IO.File.ReadAllText("a"));}}

-1 ไบต์ขอบคุณ VisualMelon
-2 ไบต์ขอบคุณ LiefdeWen

Perl 5, 48 26 23 ไบต์

เขียน, 20 + 1 (-n) ไบต์

-3 ไบต์ขอบคุณม็อบ

open f,">>f";print f

จริง ๆ แล้วฉันไม่แน่ใจเกี่ยวกับประเด็นนี้ แต่มันก็ตรงตามเกณฑ์ สำหรับรายการที่ผ่านมามีเพียงการนับตัวเลือก cli เท่านั้นนั่นคือสิ่งที่ฉันจะไปด้วย

อ่าน, 0 + 2 ไบต์

perl -pe "" f

ทูต , 23 + 16 = 39 ไบต์

เพียงแค่เขียน STDIN ไปยังแฟ้มแล้วอ่านแฟ้มAA

store.@:

$A&FileWrite!AllInput[]

retrieve.@:

Echo!FileRead!$A

การทดสอบ

C:\Users\conorob\Programming\attache (master -> origin)
λ echo testing | attache store.@

C:\Users\conorob\Programming\attache (master -> origin)
λ attache retrieve.@
testing

Lua, 57 53 51 ไบต์

ร้านค้า, 27 ไบต์

io.open("x","w"):write(...)

ดึงข้อมูล 24 ไบต์

print(io.open"x":read())

ทับทิม

ร้านค้า (24 ไบต์)

File.write('a', ARGV[0])

ดึงข้อมูล (16 ไบต์)

p File.read('a')

C (Unix / GNU), 23 + 23 = 46 ไบต์

ร้านค้า, 27 23 ไบต์

main(){system("dd>f");}

ดึงข้อมูล27 23 ไบต์

main(){system("dd<f");}

สิ่งนี้จะห่อคำตอบของ jofelไว้ในโปรแกรม C

หมายเหตุ: ddคำสั่งแสดงผลสถิติบางอย่างstderrดังนั้นคุณจะเห็นผลลัพธ์เพิ่มเติมบางอย่างเมื่อคุณเรียกใช้ในเชลล์อย่างไร้เดียงสา อย่างไรก็ตามเนื่องจากความท้าทายเพียงบอกว่าจะต้องนำเสนอสตริงที่เก็บไว้ในstdoutไม่stderrฉันเอามันว่ามันได้รับอนุญาตให้มีการส่งออกเพิ่มเติมในstderr... อย่างไรก็ตามการระงับการstderrส่งออกเป็นเรื่องง่ายเหมือนกับการแทนที่ddด้วยการcatเพิ่มจำนวนไบต์ของ สองโปรแกรมโดยหนึ่งแต่ละ

PHP, 26 + 1 + 21 = 48 ไบต์

Store.php:

<?fputs(fopen(s,w),$argn);

echo <input> | php -nF Store.phpทำงานด้วย

Retrieve.php:

<?=fgets(fopen(s,r));

php -n Retrieve.phpทำงานด้วย

C (gcc) , 77 67 + 25 = 92 ไบต์

คอมไพล์ด้วยคำเตือนเพียงไม่กี่คำใน gcc ของฉัน

store.c

#include<stdio.h>
main(int c,char**v){fputs(v[1],fopen("f","w"));}

อาจจะเล่นกอล์ฟรวมถึง แต่ฉันไม่สามารถหาวิธี Segfaults ถ้าคุณไม่ผ่านมันไป แต่อย่างใด

Peter Cordes: -1

read.c

main(){system("cat f");}

รุ่นที่ - 11 ไบต์

%12>f
type f

การป้อนข้อมูลที่ได้รับเป็นอาร์กิวเมนต์บรรทัดคำสั่งและยังคงมีอยู่ (กับข้อผิดพลาดที่สร้างขึ้นเมื่อพยายามดำเนินการตั้งแต่ CMD พยายามดำเนินพารามิเตอร์) fใน

รุ่นที่ - 7 ไบต์ (ไม่ใช่การแข่งขัน)

'>%1
dir

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