Program Anda:

Anda akan menulis dua program (keduanya dalam bahasa yang sama). Program penyimpanan mengambil string dari STDIN dan menyimpannya di suatu tempat yang persisten (lihat di bawah) dan kemudian keluar tanpa kesalahan. Program pengambilan tidak mengambil input, mengambil string yang disimpan, dan mencetaknya ke STDOUT.

Tes objektif Kegigihan:

Anda harus dapat menjalankan program penyimpanan pada mesin lokal Anda, kemudian menghidupkan-daya mesin lokal Anda, kemudian memanggil program pengambilan di mesin lokal Anda. Anda dapat menyimpan string sesuai keinginan Anda (bahkan di web) selama Anda lulus tes reboot ini.

Kasus uji:

Penyimpanan kemudian pengambilan:

echo foo | Store
Retrieve
foo

Toko Berulang harus menimpa (seperti metode set ()):

echo foo | Store
echo bar | Store
Retrieve
bar

Pengambilan Berulang adalah metode yang tidak merusak (seperti get ()):

echo foo | Store
Retrieve
foo
Retrieve
foo

Pengambilan sebelum doa Penyimpanan:

Anda tidak perlu khawatir tentang ini. Program pengambilan Anda dapat mengasumsikan bahwa program penyimpanan telah dijalankan di beberapa titik di masa lalu.

Input / Keluwesan fleksibilitas.

Orang-orang meminta saya untuk memperluas ini dari STDIN / STDOUT yang ketat ke aturan IO standar. Saya tidak bisa karena itu akan menyebabkan terlalu banyak celah. Beberapa opsi IO standar sudah memiliki input yang disimpan secara persisten, misalnya "program dapat mengambil input dari file". Saya ingin menjadi lebih fleksibel daripada STDIN dan STDOUT yang ketat, tetapi tanpa membuka pintu air.

Dari utas aturan IO standar, saya memilih yang tidak melanggar tantangan:

• Program dapat mengambil input melalui prompt GUI dan prompt baris perintah jika Anda mau

• Program dapat menampilkan dengan menampilkannya di layar Ini termasuk dialog GUI

• Program dapat mengambil input melalui argumen baris perintah

• Program dapat menghasilkan ke STDERR tetapi masih tidak bisa benar-benar melakukan kesalahan

Jika Anda menggunakan alternatif, itu harus interaktif-pengguna. Pengguna seharusnya tidak perlu melakukan pekerjaan lain selain mem-pipkan input mereka ke program Anda, mengetikkannya ke prompt yang disediakan program Anda, atau mengetik input sebagai baris perintah pada program Anda. Pengguna tidak perlu melakukan apa pun selain menjalankan program pengambilan Anda untuk melihat output yang ditampilkan di layar atau dikirim ke STDOUT atau STDERR.

Asumsi yang diizinkan:

• Dua program Anda akan dijalankan di direktori yang sama
• Program Anda memiliki izin baca-tulis untuk direktori itu
• File yang Anda buat akan selamat dari reboot (tidak dalam temp temp)
• Satu trailing newline yang bukan bagian dari string diizinkan. Tidak ada spasi spasi tambahan lainnya

Ini adalah kode-golf, dan skor Anda adalah jumlah byte dari kedua program.

zsh, 4 byte

Store: >f(membaca dari STDIN dan menulis ke file bernama f)
Retrieve: <f(menulis konten fke STDOUT)

TI-BASIC (Z80), 1 byte ?

Toko:  (cukup masukkan string)
Ambil: Ans(byte 27)

Tetapi jika itu tidak valid:

TI-BASIC (Z80), 7 6 byte

-1 berkat Jakob.

Toko: Prompt Str0(byte DD AA 09)
Ambil: disp Str0(byte ED AA 09)

Browser JS, 44 byte

Toko :

localStorage.a=prompt()

Ambil kembali :

alert(localStorage.a)

POSIX shell sh / bash / ... 8 byte

toko:

dd>f

mendapatkan:

dd<f

Python 3 , 46 byte

toko, 45 byte:

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

Program mengambil dibangun oleh perintah toko, file bernama f. ( 1 byte untuk nama file )

Batch, 16 byte

COPY CON A
TYPE A

Powershell - 4 Bytes

Penyimpanan:

ac

(alternatif juga sc)

Pengambilan

gc

Sunting: Saya baru memperhatikan bahwa output tidak diperbolehkan input pengguna apa pun ... sehingga melonjak dari 4 menjadi 6 atau 8 byte

Penyimpanan:

ac f

(Alternatif juga sc f) untuk versi 8 byte

ac

(dan tentukan fsebagai path) untuk Versi 6 byte

Pengambilan

gc f

Rust, 136 byte

Simpan (84 byte)

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

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

Retrieve (52 bytes)

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

Ucapan Terima Kasih

• -1 byte berkat Buah Esolanging

Pesta, 12 11 10 byte

toko, 7 6 5 byte

cat ->f# tidak perlu -, stdin adalah default

cat >f# tidak perlu ruang, >pisahkan juga

cat>f

ambil, 5 byte

cat f

HP 49G RPL, 48 byte

Untuk menyimpan :2: A DUP PURGE STO:, 26,5 byte

Untuk mengembalikan :2: A RCL:, 21,5 byte

Jika kita dapat meninggalkan baterai cadangan, kita dapat:

HP 49G RPL, 0 byte

Untuk menyimpan :, 0 byte

Untuk memulihkan :, 0 byte, karena HP 49G membiarkan tumpukan tidak tersentuh saat reboot.

APL (APLX) , 5 byte

Toko: ⍞⍈1
Ambil:⍇1

⍞ dapatkan baris dari stdin
⍈1 tulis ke komponen selanjutnya yang tersedia dari file nomor 1

⍇1 baca komponen pertama * terakhir dari nomor file 1

* Dokumentasi mengatakan pertama tetapi eksperimen menunjukkan yang terakhir .

bash, 10 byte (tidak bersaing)

touch $@
ls

Nama file Unix dapat berisi karakter apa pun kecuali NULdan /, dan nama mereka dapat mencapai panjang hingga 255 byte sehingga ini hanya dapat menyimpan string hingga panjang itu (menganggap bahwa pembatasan media penyimpanan), dan yang tidak mengandung '/ 'di dalam mereka. Itulah salah satu alasan mengapa ini tidak bersaing, alasan lain adalah menganggap direktori yang dijalankannya kosong (atau keluaran asing dari lsdiizinkan). Saya masih ingin memposting ini karena sepertinya cara yang keren dan tidak jelas untuk menyimpan informasi.

Lain pada nada yang sama, yang tidak akan memiliki panjang dan keterbatasan karakter yang sama adalah:

35 33 byte

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

Ini memungkinkan /karakter dalam string, dan mendukung lebih banyak karakter (persis berapa banyak tergantung pada implementasi).

(-2 byte untuk ini berkat @Cow quack)

Python 3, 56 byte

Simpan (33 byte)

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

Ambil (23 byte)

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

Mencetak dengan baris baru yang tertinggal.

Japt, 46 30 byte

^{-16 byte terima kasih kepada Shaggy .}

Salah satu pertama kalinya saya mencoba menggunakan Japt. Eval JS kadang-kadang bisa gelisah. Menggunakan browser window.localStorage.

Simpan (16 byte)

Ox`lo¯lSÈSge.P=U

Retrieve (14 bytes)

Ox`lo¯lSÈSge.P

Haskell, 46 byte

Simpan (26 byte):

getContents>>=writeFile"t"

Ambil (20 byte):

readFile"t">>=putStr

Ruby (26 Bytes)

Set (16 Bytes)

IO.write'a',gets

Dapatkan (10 Bytes)

IO.read'a'

MATLAB (30 Bytes)

Set (22 Bytes)

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

Dapat memangkas 4 byte dengan mengubah ke input(''), tetapi ini akan membutuhkan input dalam tanda kutip tunggal:'input string'

Dapatkan (8 Bytes)

load a;a

C (GCC), 98 byte

Simpan (46 byte)

Input melalui argumen baris perintah pertama.

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

Retrieve (52 bytes)

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

Unportability

• Mengharuskan beberapa jenis pointer cocok int.

Ucapan Terima Kasih

• -2 bytes berkat ceilingcat
• -10 byte terima kasih kepada Peter Cordes

APL (Dyalog Unicode) , 18 byte

Toko: ⍞⎕NPUT⎕A 1 Coba online!
Ambil: ⊃⎕NGET⎕A Coba online!

⍞ dapatkan baris dari stdin,
⎕NPUT letakkan di file asli yang disebut
⎕A alfabet huruf besar 1 dan timpa jika file ada

⊃ bagian pertama (data, bagian selanjutnya adalah penyandian dan tipe akhir baris) untuk
⎕NGET mendapatkan file asli
⎕A alfabet huruf besar

R (27 byte)

toko (21 byte)

x=readLines('stdin')

memuat (6 byte)

cat(x)

Agar ini berfungsi, skrip pertama perlu dipanggil dengan opsi baris perintah --save, dan skrip kedua dengan --restore(meskipun dalam mode interaktif ini tidak diperlukan: opsi ini adalah default).

Ini dapat dipersingkat oleh 7 byte jika bukan karena fakta bahwa bug dalam R mencegah argumen default readLinedari bekerja dalam mode non-interaktif. Dalam mode interaktif, itu tidak perlu, dan karena itu solusinya hanya menggunakan 20 byte .

Java (JDK 10) , 204 Bytes

Peringatan: Timpa preferensi yang disimpan oleh program java untuk nama pengguna Anda!

Simpan, 94 Bytes:

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

Cobalah online!

Ambil 110 Bytes:

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

Cobalah online!

java S foo
java R
foo

Ini berfungsi dengan mengambil input sebagai argumen dan menyimpannya di backing-store preferensi pengguna yang disediakan oleh java.util.prefs . Ini menimpa simpul root pengguna untuk menghemat satu byte pada penamaan node. Jika Anda ingin mengujinya secara non-destruktif, jalankan dari nama pengguna yang ada atau ubah kunci dari "" menjadi nama simpul.

C #, 157 Bytes

Set, 74 Bytes:

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

Dapatkan, 83 Bytes:

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

-1 Bytes berkat VisualMelon
-2 Bytes terima kasih kepada LiefdeWen

Perl 5, 48 26 23 byte

Tulis, 20 + 1 (-n) byte

-3 byte terima kasih kepada mob

open f,">>f";print f

Saya sebenarnya tidak yakin tentang hal ini, tetapi memenuhi kriteria. Untuk entri sebelumnya, hanya opsi cli yang dihitung, jadi itulah yang saya lakukan.

Baca, 0 + 2 byte

perl -pe "" f

Attache , 23 + 16 = 39 byte

Cukup menulis STDIN ke file A, lalu membaca file A.

store.@:

$A&FileWrite!AllInput[]

retrieve.@:

Echo!FileRead!$A

Pengujian

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 byte

Simpan, 27 byte

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

Retrieve, 24 byte

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

RUBI

Simpan (24 byte)

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

Ambil (16 byte)

p File.read('a')

C (Unix / GNU), 23 + 23 = 46 byte

Simpan, 27 23 byte

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

Ambil, 27 23 byte

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

Ini pada dasarnya membungkus jawaban jofel ke dalam program C.

Catatan: ddPerintah menampilkan beberapa statistik stderr, sehingga Anda akan melihat beberapa output tambahan saat Anda menjalankannya secara naif di shell. Namun, karena tantangannya hanya mengatakan bahwa string yang disimpan harus disajikan pada stdout, tidak stderr, saya bawa bahwa itu diperbolehkan untuk memiliki output tambahan pada stderr... Pokoknya, menekan stderroutput semudah mengganti dddengan cat, meningkatkan jumlah byte dari dua program per satu, masing-masing.

PHP, 26 + 1 + 21 = 48 byte

Store.php:

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

Jalankan dengan echo <input> | php -nF Store.php.

Retrieve.php:

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

Jalankan dengan php -n Retrieve.php.

C (gcc) , 77 67 + 25 = 92 byte

Kompilasi dengan hanya beberapa peringatan di gcc saya.

store.c

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

Mungkin bisa bermain golf termasuk, tapi saya tidak tahu caranya. Segfault jika Anda tidak memberikan apa pun, tetapi apa pun itu.

Peter Cordes: -1

baca.c

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

Gelombang - 11 Bytes

%12>f
type f

Input diterima sebagai argumen baris perintah dan tetap ada (dengan pesan kesalahan dibuat pada upaya eksekusi, karena CMD mencoba untuk mengeksekusi parameter) di f.

Batch - 7 Bytes (tidak kompetitif)

'>%1
dir

Ada sejumlah besar karakter yang tidak valid dalam nama file, jadi ini tidak akan bekerja untuk beberapa string, tetapi ini pada dasarnya menyimpan karakter sewenang-wenang ke nama file yang diberikan oleh parameter. Untuk membacanya, itu hanya mencantumkan semua file dalam direktori, termasuk string kami.