Programlarınız:

İki program yazacaksınız (ikisi de aynı dilde). Depolama programı bir dizgiyi STDIN'den alır ve kalıcı bir yerde saklar (aşağıya bakınız) ve sonra hatasız biçimde çıkar. Alma programı giriş yapmaz, kaydedilen dizeyi alır ve STDOUT'a yazdırır.

Kalıcılığın nesnel testi:

Depolama programını yerel makinenizde çalıştırabilmeli, daha sonra yerel makinenizi kapatıp ardından yerel makinenizden alma programını aramalısınız. Bu yeniden başlatma testini geçtiğiniz sürece dizeyi istediğiniz şekilde (hatta web'de) saklayabilirsiniz.

Test Durumları:

Depolama sonra almak:

echo foo | Store
Retrieve
foo

Tekrarlanan Mağazalar üzerine yazılmalıdır (bir set () yöntemi gibi):

echo foo | Store
echo bar | Store
Retrieve
bar

Tekrarlanan Alma tahribatsızdır (bir get () yöntemi gibi):

echo foo | Store
Retrieve
foo
Retrieve
foo

Depolama herhangi bir çağrısından önce alma:

Bunun için endişelenmene gerek yok. Alma programınız, depolama programının geçmişte bir noktada çalıştırıldığını varsayabilir.

Giriş / Çıkış esnekliği.

İnsanlar benden katı STDIN / STDOUT'dan standart IO kurallarına genişletmemi istediler. Yapamam çünkü çok fazla boşluk gösterecek. Bazı standart G / Ç seçenekleri, sürekli bir şekilde saklanmış girişe sahiptir, örneğin "programlar bir dosyadan giriş alabilir". Sadece katı STDIN ve STDOUT'dan daha esnek olmak istiyorum, ancak taşkın kapılarını açmadan.

Standart GÇ kuralları başlığından, zoru çözmeyenleri kiraz toplayacağım:

• İsterseniz Programlar, GUI istemleri ve komut satırı istemleri aracılığıyla giriş alabilir

• Programlar ekranda görüntüleyerek çıktısını alabilir. GUI iletişim kutularını içerir

• Programlar komut satırı argümanları üzerinden girdi alabilir

• Programlar STDERR'ye çıktı verebilir, ancak yine de hatalar atamaz.

Alternatif kullanıyorsanız, kullanıcı etkileşimli olması gerekir. Kullanıcının, girişlerini programınıza aktarma, programınızın sağladığı bir bilgi istemine yazma veya programın komut satırı bağımsız değişkeni olarak girme dışında başka bir iş yapması gerekmemelidir. Kullanıcının ekranda görüntülenen veya STDOUT veya STDERR'ye gönderilen çıktısını görmek için alma programınızı çalıştırmaktan başka bir şey yapması gerekmemelidir.

İzin verilen varsayımlar:

• İki programınız aynı dizinde çalıştırılacak
• Programlarınızın bu dizin için okuma-yazma izinleri var.
• Yarattığınız dosyalar yeniden başlatmaya devam eder (geçici bir dizinde değil)
• Dizenin parçası olmayan bir son satırın girilmesine izin verilir. Başka iz bırakmayan boşluk yok

Bu kod golf ve puanınız her iki programdaki baytların toplamıdır.

zsh, 4 bayt

Mağaza: >f(STDIN'den okur ve bir dosyaya yazar f)
Al: <f(STDOUT'a yazıyor f)

TI-BASIC (Z80), 1 bayt ?

Mağaza:  (sadece dizeye giriniz)
Alma: Ans(bayt 27)

Ancak bu geçerli değilse:

TI-BASIC (Z80), 7 6 bayt

-1 Jakob'a teşekkürler.

Mağaza: Prompt Str0(bayt DD AA 09)
Al: disp Str0(bayt ED AA 09)

Tarayıcı JS, 44 bayt

Mağaza :

localStorage.a=prompt()

Al :

alert(localStorage.a)

POSIX kabuk sh / bash / ... 8 bayt

depolamak:

dd>f

almak:

dd<f

Python 3 , 46 bayt

mağaza, 45 bayt:

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

Alma programı, adlandırılmış bir dosya olan store komutu tarafından oluşturulur f. ( Dosya adı için 1 bayt )

Toplu, 16 bayt

COPY CON A
TYPE A

Powershell - 4 Bayt

Depolama:

ac

(ayrıca alternatif sc)

geri alma

gc

Düzenleme: Çıktının herhangi bir kullanıcı girişine izin vermediğini fark ettim ... bu yüzden 4'den 6 ya da 8 bayta atlar

Depolama:

ac f

sc f8 alternatif versiyon için (alternatif )

ac

(ve fyol olarak belirtin ) 6 baytlık Sürüm için

geri alma

gc f

Pas, 136 bayt

Mağaza (84 bayt)

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

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

Al (52 bayt)

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

Teşekkür

• Esolanging Fruit sayesinde -1 bayt

Bash, 12 11 10 bayt

mağaza, 7 6 5 bayt

cat ->f# gerek yok -, stdin varsayılan

cat >f# alana gerek yok, >ayrılıyor

cat>f

5 bayt al

cat f

HP 49G RPL, 48 bayt

Kaydetmek için:, :2: A DUP PURGE STO26,5 bayt

Geri yüklemek için:, :2: A RCL21,5 bayt

Yedek bataryada kalabilirsek:

HP 49G RPL, 0 bayt

Kaydetmek için:, 0 bayt

Geri yüklemek için:, 0 bayt, çünkü HP 49G yığını yeniden başlatmalar arasında el değmemiş bırakıyor.

APL (APLX) , 5 bayt

Mağaza: ⍞⍈1
Al:⍇1

⍞ stdin yazımından
⍈1 dosya numarasının bir sonraki kullanılabilir bileşenine satır almak 1

⍇1Dosya numarası 1'in ilk * son bileşenini  okuyun

* Dokümantasyon önce diyor ama deney son gösteriyor .

bash, 10 bayt (rekabetçi olmayan)

touch $@
ls

Unix dosya adları içerebilir dışında herhangi bir karakter NULve /ve isimleri olabilir 255 bayt uzunluğunda kadar bu yalnızca o uzunluğa asar saklamak mümkün olacak, böylece ve 'içermediğini (depolama aracının bir sınırlama olduğunu düşünün) / 'onların içinde. Bunun rekabetsiz olmasının bir nedeni, bir diğeri de üzerinde çalıştığı dizinin boş olduğunu varsaymasıdır (ya da dışarıdan çıkan çıktıya lsizin verilir). Bunu hala göndermek istedim çünkü bilgi depolamak için harika ve açık olmayan bir yol gibiydi.

Benzer bir damar üzerinde, aynı uzunluk ve karakter sınırlamalarına sahip olmayacak bir başka:

35 33 bayt

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

Bu, /karakter dizisindeki karaktere izin verir ve daha birçok karakteri destekler (tam olarak kaç tanesi uygulamaya bağlıdır).

(@Cows quack sayesinde buna -2 bayt)

Python 3, 56 bayt

Mağaza (33 bayt)

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

Al (23 bayt)

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

Sondaki yeni satır ile yazdırır.

Japt, 46 30 bayt

^{Shaggy sayesinde -16 bayt .}

Japt’i kullanmayı ilk kez denedim. JS değerlendirmesi bazen gizli olabilir. Tarayıcıyı kullanır window.localStorage.

Mağaza (16 bayt)

Ox`lo¯lSÈSge.P=U

Al (14 bayt)

Ox`lo¯lSÈSge.P

Haskell, 46 bayt

Mağaza (26 bayt):

getContents>>=writeFile"t"

Al (20 bayt):

readFile"t">>=putStr

Yakut (26 Bayt)

Ayarla (16 Bayt)

IO.write'a',gets

Alın (10 Bayt)

IO.read'a'

MATLAB (30 Bayt)

Ayarla (22 Bayt)

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

4 bayt'ı değiştirerek tıraş olabilir input(''), ancak bu, girişin tek tırnak içinde olmasını gerektirir:'input string'

Alın (8 Bayt)

load a;a

C (GCC), 98 bayt

Mağaza (46 bayt)

Giriş, ilk komut satırı argümanı ile yapılır.

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

Al (52 bayt)

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

Unportability

• Birkaç işaretçi tipinin sığmasını gerektirir int.

Teşekkür

• Ceilingcat sayesinde -2 bayt
• Peter Cordes sayesinde -10 bayt

APL (Dyalog Unicode) , 18 bayt

Mağaza: ⍞⎕NPUT⎕A 1 Çevrimiçi deneyin!
Almak: ⊃⎕NGET⎕A Çevrimiçi deneyin!

⍞ stdin'den satır almak  , büyük harfli alfabe
⎕NPUT denilen yerel bir dosyaya koyulur  ve eğer dosya varsa
⎕A1

⊃ ilk
⎕NGET dosya (veri, sonraki parça kodlanıyor ve satır biten tür) yerel dosyaya
⎕A büyük harf

R (27 bayt)

mağaza (21 bayt)

x=readLines('stdin')

yük (6 bayt)

cat(x)

Bunun çalışması için, ilk komut dosyasının komut satırı seçeneğiyle --save, ikincisinin de --restore(etkileşimli modda bu gerekli olmasa da: bu seçenekler varsayılandır) çağrılması gerekir.

Bu, 7 bayt ile kısaltılabilir, çünkü R'deki bir hatanın varsayılan argümanların readLineetkileşimli olmayan modda çalışmasını engellemesi gerçeği değildi . Etkileşimli modda, gerekli değildir ve bu nedenle çözüm yalnızca 20 bayt kullanır .

Java (JDK 10) , 204 Bayt

Uyarı: Herhangi bir java programının kullanıcı adınız için kaydettiği tercihlerin üzerine yazar!

Mağaza, 94 Bayt:

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

Çevrimiçi deneyin!

110 Baytı Al:

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

Çevrimiçi deneyin!

java S foo
java R
foo

Bu, girdiyi bir argüman olarak alıp, java.util.prefs tarafından sağlanan kullanıcı tercihleri ​​yedek deposuna kaydederek çalışır . Bir düğümü adlandırırken bir bayttan tasarruf etmek için kullanıcının kök düğümünün üzerine yazar. Tahribatsız bir şekilde test etmek istiyorsanız, ya bir kullanıcı adı üzerinden çalıştırın ya da "" tuşunu bir düğüm adına değiştirin.

C #, 157 Bayt

Ayarla, 74 Bayt:

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

Alın, 83 Bayt:

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

-1
VisualMelon sayesinde Bayt -2 LiefdeWen sayesinde Bayt

Perl 5, 48 26 23 bayt

Yaz, 20 + 1 (-n) bayt

Mafya sayesinde -3 bayt

open f,">>f";print f

Ben aslında bu konuda emin değilim, ama kriterleri karşılamaktadır. Geçmiş girişler için, sadece cli seçenekleri sayıldı, bu yüzden birlikte gidiyorum.

0 + 2 bayt oku

perl -pe "" f

Ataşesi , 23 + 16 = 39 bayt

Basitçe STDIN'i dosyaya yazar A, ardından dosyayı okur A.

store.@:

$A&FileWrite!AllInput[]

retrieve.@:

Echo!FileRead!$A

Test yapmak

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 bayt

Mağaza, 27 bayt

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

Al, 24 bayt

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

YAKUT

Mağaza (24 bayt)

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

Al (16 bayt)

p File.read('a')

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

Mağaza, 27 23 bayt

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

Al, 27 23 bayt

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

Bu temelde jofel'in cevabını bir C programına sarar .

Not: ddKomutlar bazı istatistikleri stderrçıkarır, böylece kabuğunda saf olarak çalıştırdığınızda bazı ek çıktılar görürsünüz. Meydan sadece kayıtlı dize üzerinde gösterilmesi gerekmektedir söylüyor Ancak, stdoutdeğil stderr, ben ek çıkışı izin verildiğini götürün stderrNeyse, bastırmak ... stderrçıkışını yerine kadar kolaydır ddile catbayt sayısını artırarak, her biri birer iki program.

PHP, 26 + 1 + 21 = 48 bayt

Store.php:

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

İle koş echo <input> | php -nF Store.php.

Retrieve.php:

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

İle koş php -n Retrieve.php.

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

Gcc'mde sadece birkaç uyarı ile derler.

store.c

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

Büyük olasılıkla dahil golf olabilir, ama nasıl olduğunu anlayamadım. Hiçbir şeyi geçemezsen, ama her neyse.

Peter Cordes: -1

read.c

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

Toplu İş - 11 Bayt

%12>f
type f

Girdi, bir komut satırı argümanı olarak alınır ve devam eder (CMD parametresini çalıştırmaya çalıştığından yürütme denemesi sırasında oluşturulan hata iletisiyle) f.

Toplu İş - 7 Bayt (rekabetçi olmayan)

'>%1
dir

Bir dosya adında geçersiz karakterler var, bu nedenle bu bazı dizeler için işe yaramaz, ancak bu aslında parametre tarafından verilen dosya adına rasgele bir karakter kazandırır. Okumak için dizgimiz de dahil olmak üzere dizindeki tüm dosyaları listeler.